7 New Messages
Digest #1740
1b
Re: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis by "Kid Mr." nmkid.family@ymail.com
2b
Bls: [belajar-excel] copy ComboBox dengan linkedcell ouput yang ikut by "neza ibaneza" nezaibaneza
Messages
Thu Aug 23, 2012 9:53 am (PDT) . Posted by:
"abu dimaz" abudimaz
Terimakasih, mas Hendrik.
Tujuannya sama seperti itu, namun yg dikehendaki fungsi MID nya menggunakan kode macro, kalau tidak salah menggunakan Worksheet_SelectionChange event, cuma karena sy tidak mengetahui/memahami koding, jd tidak tahu bagaimana membuatnya.
Jazakumullah khaira
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Kamis, 23 Agustus 2012 21:49
Judul: Re: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis
Jika yang diinginkan adalah seperti yang diberi huruf tebal(sesuai yang tertulis dalam milis di bawah ini) maka jawaban terlampir mungkin merupakan solusinya.
Semoga pas sesuai kebutuhan.
Salam,
Hendrik Karnadi
________________________________
From: abu dimaz <abudimaz@yahoo.co.id >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Wednesday, 22 August 2012, 18:16
Subject: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis
Terimakasih atas solusinya, namun yg sy inginkan adalah kode worksheet yg berfungsi memisahkan teks pada cell C ke kolom2 berikutnya per huruf secara otomatis.
________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 22 Agustus 2012 17:00
Judul: Re: [belajar-excel] Ekstrak teks ke kolom secara otomatis
Coba di d2 :
=mid( $c2, column()-3,1)
Wassalam,
Kid.
» Mohon maaf lahir dan batin «
On Aug 22, 2012 4:46 PM, "Padara Mbeneh" <abudimaz@yahoo.co.id > wrote:
>
>Mohon bantuannya, sy membutuhkan worksheet module untuk memisahkan teks jawaban pada kolom C ke kolom berikutnya, seperti fungsi MID, misal: dikolom C2 = ABCDAABCDABCD22234, maka otomatis di kolom D = A, kolom E=B, kolom E=C, dst.
>Terimakasih sebelumnya.
>
>
Tujuannya sama seperti itu, namun yg dikehendaki fungsi MID nya menggunakan kode macro, kalau tidak salah menggunakan Worksheet_Selection
Jazakumullah khaira
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Kamis, 23 Agustus 2012 21:49
Judul: Re: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis
Jika yang diinginkan adalah seperti yang diberi huruf tebal(sesuai yang tertulis dalam milis di bawah ini) maka jawaban terlampir mungkin merupakan solusinya.
Semoga pas sesuai kebutuhan.
Salam,
Hendrik Karnadi
____________
From: abu dimaz <abudimaz@yahoo.
To: "belajar-excel@
Sent: Wednesday, 22 August 2012, 18:16
Subject: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis
Terimakasih atas solusinya, namun yg sy inginkan adalah kode worksheet yg berfungsi memisahkan teks pada cell C ke kolom2 berikutnya per huruf secara otomatis.
____________
Dari: Kid Mr. <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Rabu, 22 Agustus 2012 17:00
Judul: Re: [belajar-excel] Ekstrak teks ke kolom secara otomatis
Coba di d2 :
=mid( $c2, column()-3,1)
Wassalam,
Kid.
» Mohon maaf lahir dan batin «
On Aug 22, 2012 4:46 PM, "Padara Mbeneh" <abudimaz@yahoo.
>
>Mohon bantuannya, sy membutuhkan worksheet module untuk memisahkan teks jawaban pada kolom C ke kolom berikutnya, seperti fungsi MID, misal: dikolom C2 = ABCDAABCDABCD22234, maka otomatis di kolom D = A, kolom E=B, kolom E=C, dst.
>Terimakasih sebelumnya.
>
>
Thu Aug 23, 2012 10:16 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Coba prosedur event worksheet change berikut :
private sub worksheet_change(byval target as range)
dim lChar as long 'variabel indeks karakter
application.enableevents=false 'set events lain tidak diproses
with target 'pada range yang berubah isinya
if .count=1 then 'jumlah cell yang berubah hanya 1
if .column=3 then 'kolom cell yang berubah adalah kolom ke-3
~ kolom C
'hapus isi cell dikanannya (hati-hati dengan cell kosong
diantara 2 cell isi)
range( .offset(0,1) , .end(xltoright) ).clearcontents
if len(.value)<>0 then 'tidak berubah jadi blank maupun
nullstring
for lchar=1 to len(.value) 'loop setiap karakter
data cell yang berubah isi
'isi cell kanan berturutan dengan setiap karakter
data berturutan
.offset(0,lchar).value=mid$(.value,lchar,1)
next lchar 'akhir blok loop
endif
endif
endif
end with
application.enableevents=true 'set events lain boleh diproses lagi
end sub
>> yang diwarna *merah *sebaiknya dibuat di VBE dengan memilih event
tersebut pada class worksheet terkait
>> sesuaikan rujukan ke cell agar sesuai kondisi setempat dan kebutuhannya
>> yang diwarna magenta, tidak akan berjalan baik jika ada cell kosong
(blank dan bukan nullstring) diantara 2 cell berisi data
Wassalam,
Kid.
2012/8/23 abu dimaz <abudimaz@yahoo.co.id >
> **
>
>
> Terimakasih, mas Hendrik.
> Tujuannya sama seperti itu, namun yg dikehendaki fungsi MID nya
> menggunakan kode macro, kalau tidak salah menggunakan
> Worksheet_SelectionChange event, cuma karena sy tidak mengetahui/memahami
> koding, jd tidak tahu bagaimana membuatnya.
> Jazakumullah khaira
>
>
>
> ------------------------------
> *Dari:* hendrik karnadi <hendrikkarnadi@yahoo.com >
> *Kepada:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Dikirim:* Kamis, 23 Agustus 2012 21:49
> *Judul:* Re: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis
>
>
> Jika yang diinginkan adalah seperti yang diberi huruf tebal (sesuai yang
> tertulis dalam milis di bawah ini) maka jawaban terlampir mungkin merupakan
> solusinya.
>
> Semoga pas sesuai kebutuhan.
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* abu dimaz <abudimaz@yahoo.co.id >
> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Sent:* Wednesday, 22 August 2012, 18:16
> *Subject:* Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis
>
>
> Terimakasih atas solusinya, namun yg sy inginkan adalah kode worksheet yg
> berfungsi memisahkan teks pada cell C ke kolom2 berikutnya per huruf secara
> otomatis.
>
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Rabu, 22 Agustus 2012 17:00
> *Judul:* Re: [belajar-excel] Ekstrak teks ke kolom secara otomatis
>
>
> Coba di d2 :
> =mid( $c2, column()-3,1)
> Wassalam,
> Kid.
> � Mohon maaf lahir dan batin �
> On Aug 22, 2012 4:46 PM, "Padara Mbeneh" <abudimaz@yahoo.co.id > wrote:
>
> **
>
> Mohon bantuannya, sy membutuhkan worksheet module untuk memisahkan teks
> jawaban pada kolom C ke kolom berikutnya, seperti fungsi MID, misal:
> dikolom C2 = ABCDAABCDABCD22234, maka otomatis di kolom D = A, kolom E=B,
> kolom E=C, dst.
> Terimakasih sebelumnya.
>
>
>
>
>
>
>
>
>
private sub worksheet_change(
dim lChar as long 'variabel indeks karakter
application.
with target 'pada range yang berubah isinya
if .count=1 then 'jumlah cell yang berubah hanya 1
if .column=3 then 'kolom cell yang berubah adalah kolom ke-3
~ kolom C
'hapus isi cell dikanannya (hati-hati dengan cell kosong
diantara 2 cell isi)
range( .offset(0,1) , .end(xltoright) ).clearcontents
if len(.value)<
nullstring
for lchar=1 to len(.value) 'loop setiap karakter
data cell yang berubah isi
'isi cell kanan berturutan dengan setiap karakter
data berturutan
.offset(0,lchar)
next lchar 'akhir blok loop
endif
endif
endif
end with
application.
end sub
>> yang diwarna *merah *sebaiknya dibuat di VBE dengan memilih event
tersebut pada class worksheet terkait
>> sesuaikan rujukan ke cell agar sesuai kondisi setempat dan kebutuhannya
>> yang diwarna magenta, tidak akan berjalan baik jika ada cell kosong
(blank dan bukan nullstring) diantara 2 cell berisi data
Wassalam,
Kid.
2012/8/23 abu dimaz <abudimaz@yahoo.
> **
>
>
> Terimakasih, mas Hendrik.
> Tujuannya sama seperti itu, namun yg dikehendaki fungsi MID nya
> menggunakan kode macro, kalau tidak salah menggunakan
> Worksheet_Selection
> koding, jd tidak tahu bagaimana membuatnya.
> Jazakumullah khaira
>
>
>
> ------------
> *Dari:* hendrik karnadi <hendrikkarnadi@
> *Kepada:* "belajar-excel@
> *Dikirim:* Kamis, 23 Agustus 2012 21:49
> *Judul:* Re: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis
>
>
> Jika yang diinginkan adalah seperti yang diberi huruf tebal (sesuai yang
> tertulis dalam milis di bawah ini) maka jawaban terlampir mungkin merupakan
> solusinya.
>
> Semoga pas sesuai kebutuhan.
>
> Salam,
> Hendrik Karnadi
>
> ------------
> *From:* abu dimaz <abudimaz@yahoo.
> *To:* "belajar-excel@
> *Sent:* Wednesday, 22 August 2012, 18:16
> *Subject:* Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis
>
>
> Terimakasih atas solusinya, namun yg sy inginkan adalah kode worksheet yg
> berfungsi memisahkan teks pada cell C ke kolom2 berikutnya per huruf secara
> otomatis.
>
> ------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Rabu, 22 Agustus 2012 17:00
> *Judul:* Re: [belajar-excel] Ekstrak teks ke kolom secara otomatis
>
>
> Coba di d2 :
> =mid( $c2, column()-3,1)
> Wassalam,
> Kid.
> � Mohon maaf lahir dan batin �
> On Aug 22, 2012 4:46 PM, "Padara Mbeneh" <abudimaz@yahoo.
>
> **
>
> Mohon bantuannya, sy membutuhkan worksheet module untuk memisahkan teks
> jawaban pada kolom C ke kolom berikutnya, seperti fungsi MID, misal:
> dikolom C2 = ABCDAABCDABCD22234, maka otomatis di kolom D = A, kolom E=B,
> kolom E=C, dst.
> Terimakasih sebelumnya.
>
>
>
>
>
>
>
>
>
Thu Aug 23, 2012 10:35 am (PDT) . Posted by:
"abu dimaz" abudimaz
@Master Kid
Terimakasih. Kode tersebut sudah sesuai dg harapan saya.
atas ilmunya sy ucapkan Jazakumullah khaira.
@Master Hendrik
Mohon maaf, karena keterburunafsuan sy sehingga tdk melihat kode yg ada.
Semoga para master tdk bosan memberikan ilmunya. Terimakasih
____________
Dari: Kid Mr. <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Jumat, 24 Agustus 2012 0:15
Judul: Re: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis
Coba prosedur event worksheet change berikut :
private sub worksheet_change(
dim lChar as long 'variabel indeks karakter
application.
with target 'pada range yang berubah isinya
if .count=1 then 'jumlah cell yang berubah hanya 1
if .column=3 then 'kolom cell yang berubah adalah kolom ke-3 ~ kolom C
'hapus isi cell dikanannya (hati-hati dengan cell kosong diantara 2 cell isi)
range( .offset(0,1) , .end(xltoright) ).clearcontents
if len(.value)<
for lchar=1 to len(.value) 'loop setiap karakter data cell yang berubah isi
'isi cell kanan berturutan dengan setiap karakter data berturutan
.offset(0,lchar)
next lchar 'akhir blok loop
endif
endif
endif
end with
application.
end sub
>> yang diwarna merah sebaiknya dibuat di VBE dengan memilih event tersebut pada class worksheet terkait
>> sesuaikan rujukan ke cell agar sesuai kondisi setempat dan kebutuhannya
>> yang diwarna magenta, tidak akan berjalan baik jika ada cell kosong (blank dan bukan nullstring) diantara 2 cell berisi data
Wassalam,
Kid.
2012/8/23 abu dimaz <abudimaz@yahoo.
>
>Terimakasih, mas Hendrik.
>Tujuannya sama seperti itu, namun yg dikehendaki fungsi MID nya menggunakan kode macro, kalau tidak salah menggunakan Worksheet_Selection
>Jazakumullah khaira
>
>
>
>
>
>
>
>___________
> Dari: hendrik karnadi <hendrikkarnadi@
>Kepada: "belajar-excel@
>Dikirim: Kamis, 23 Agustus 2012 21:49
>Judul: Re: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis
>
>
>
>
>Jika yang diinginkan adalah seperti yang diberi huruf tebal(sesuai yang tertulis dalam milis di bawah ini) maka jawaban terlampir mungkin merupakan solusinya.
>
>
>Semoga pas sesuai kebutuhan.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>___________
> From: abu dimaz <abudimaz@yahoo.
>To: "belajar-excel@
>Sent: Wednesday, 22 August 2012, 18:16
>Subject: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis
>
>
>
>Terimakasih atas solusinya, namun yg sy inginkan adalah kode worksheet yg berfungsi memisahkan teks pada cell C ke kolom2 berikutnya per huruf secara otomatis.
>
>
>
>
>___________
> Dari: Kid Mr. <mr.nmkid@gmail.
>Kepada: belajar-excel@
>Dikirim: Rabu, 22 Agustus 2012 17:00
>Judul: Re: [belajar-excel] Ekstrak teks ke kolom secara otomatis
>
>
>
>Coba di d2 :
>=mid( $c2, column()-3,1)
>Wassalam,
>Kid.
>» Mohon maaf lahir dan batin «
>
>On Aug 22, 2012 4:46 PM, "Padara Mbeneh" <abudimaz@yahoo.
>
>
>>
>>Mohon bantuannya, sy membutuhkan worksheet module untuk memisahkan teks jawaban pada kolom C ke kolom berikutnya, seperti fungsi MID, misal: dikolom C2 = ABCDAABCDABCD22234, maka otomatis di kolom D = A, kolom E=B, kolom E=C, dst.
>>Terimakasih sebelumnya.
>>
>>
>
>
>
>
>
>
Thu Aug 23, 2012 10:35 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Ops... ada yang gak pas di baris :
If InStr(LCase$(shp.Name), "mydropdown") <> 0 Then
diubah menjadi :
If InStr(LCase$(shp.Name), "drop") <> 0 Then
cara pakai :
>> hapus isi cell E1 (1 kali saja)
>> blok E4 sampai G4 (selalu blok mulai kolom E dan bisa multi baris),
>> tekan Ctrl C (copy ke clipboard),
>> kemudian pindah ke E7 (selalu paste data di 1 cell pada kolom E baris
yang dikehendaki),
>> tekan Ctrl V (paste)
Wassalam,
Kid.
2012/8/23 neza ibaneza <nezaibaneza@yahoo.co.id >
> **
>
>
> terima kasih Mr. KID, tetapi filenya sy kurang mengerti penggunaannya..
>
> Neza.
>
>
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Jumat, 17 Agustus 2012 23:11
>
> *Judul:* Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang
> ikut berubah
>
>
>
> Coba file terlampir.
>
> Nama dropdown jenis form control object adalah myDropDown.
> Event worksheet change :
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim lCtlNew As Long
> Dim shp As Shape
> Dim rngShp As Range
>
> Application.EnableEvents = False
> 'turn off opsi event boleh aktif
> lCtlNew = ActiveSheet.Shapes.Count - Range("e1").Value
> 'jumlah shape baru (shape apa saja)
> If lCtlNew > 0 Then
> 'cek ada shape yang baru
> For Each shp In ActiveSheet.Shapes
> 'loop setiap shape
> If shp.FormControlType = xlDropDown Then
> 'cek tipe form control
> If InStr(LCase$(shp.Name), "mydropdown") <> 0 Then
> 'cek berdasar namanya
> Set rngShp = shp.TopLeftCell
> 'simpan topleftcell dari si shape
> If rngShp.Column = 5 Then
> 'cek kolom rangenya
> 'set linkedcell (ole format link)
> 'karena posisi topleftcell tidak pada baris yang
> sama dengan linked cell
> 'maka perlu offset baris
> shp.OLEFormat.Object.LinkedCell = rngShp.Offset(1,
> 1).Address(False, False)
> End If
> End If
> End If
> Next shp
> End If
> Range("e1").Value = ActiveSheet.Shapes.Count
> 'simpan jumlah shape
> Application.EnableEvents = True
> 'turn on opsi event boleh aktif
> End Sub
>
> Wassalam,
> Kid.
>
> 2012/8/16 neza ibaneza <nezaibaneza@yahoo.co.id >
>
> **
>
> ok thanks untuk dwint r, mungkin ada koment dari master excel yg lain...
>
> ditunggu..
>
> salam
> neza
>
> ------------------------------
> *Dari:* dwint ruswanto <dwint.ruswanto@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 16 Agustus 2012 12:03
>
> *Judul:* Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang
> ikut berubah
>
>
>
> hai neza,
>
> jika tetap ingin memakai ComboBox, satu-satunya cara adalah menggunakan
> VBA, berhubung saya masih dalam tahap belajar tentang macro dan pengetahuan
> saya tentang cara mengambil komponen ActiveX Object ke worksheet belum
> memadai.. jadi untuk kasus ini saya nyerah dulu.. PR untuk saya..
>
> kita tunggu saja solusi dari para master di Millis ini.. ^_^ ==> ini akan
> menjadi ilmu baru bagi saya juga :-))
>
> wassalam,
>
> -dwint-
>
> Pada 16 Agustus 2012 07:25, neza ibaneza <nezaibaneza@yahoo.co.id >menulis:
>
> **
>
> dear dwint,
>
> apakah untuk pertnyaan awal saya g ada pemecahannya... khusus ke ComboBox
> saja..
>
> salam
> Neza
>
> ------------------------------
> *Dari:* dwint ruswanto <dwint.ruswanto@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Rabu, 15 Agustus 2012 15:43
>
> *Judul:* Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang
> ikut berubah
>
>
>
> Untuk mencegah hal tersebut, coba non aktifkan fitur "Enable fill handle
> and cell drag-and-drop"
>
> Fitur ini bisa diakses melalui Excel Option >> Advance, setelah itu protek
> worksheet dengan menggunakan password.
>
> wassalam,
>
> -dwint-
>
> Pada 15 Agustus 2012 14:29, neza ibaneza <nezaibaneza@yahoo.co.id >menulis:
>
> **
>
> Hi, Dwint Ruswanto,
> Saya sudah pikir kesitu juga, tp kelebihan dari ComboBox adalah outputnya
> akan tetap sama walauppun kita timpa dengan angka lain
>
> Salam
> Neza
> ------------------------------
> *Dari:* dwint ruswanto <dwint.ruswanto@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Rabu, 15 Agustus 2012 15:05
> *Judul:* Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang
> ikut berubah
>
>
>
> hai Neza,
>
> bagaimana kalo combo boxnya diganti dengan Data Validation.. prinsip
> kerjanya serupa yaitu user akan memilih Kode Gudang menggunakan drop down
> list,
> untuk mengambil Nama barang bisa menggunakan VLookUp
>
> hasilnya nanti bisa dicopy ke baris yang lain sesuai dengan keinginan
> tanpa harus mengubah linked Cell, karena Data validation ini tidak memiliki
> linked cell
>
> silakan lihat di lampiran
>
> wassalam,
>
> -dwint-
>
> Pada 15 Agustus 2012 13:31, neza ibaneza <nezaibaneza@yahoo.co.id >menulis:
>
> **
>
> Dear all, Be-Excel
>
> Baru nongol lagi nih...
> Saya punya sedikit masalah seperti lampiran, (membuat linkedcell output
> ComboBox berubah sesuai jajaran cell penempatannya)
> mohon pencerahannya... karena membuka satu persatu ComboBox dan mengubah
> linkedcellnya sangat ribet, apalagi jika dah masuk ratusan copy..
>
> Salam
> Neza
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
If InStr(LCase$
diubah menjadi :
If InStr(LCase$
cara pakai :
>> hapus isi cell E1 (1 kali saja)
>> blok E4 sampai G4 (selalu blok mulai kolom E dan bisa multi baris),
>> tekan Ctrl C (copy ke clipboard),
>> kemudian pindah ke E7 (selalu paste data di 1 cell pada kolom E baris
yang dikehendaki)
>> tekan Ctrl V (paste)
Wassalam,
Kid.
2012/8/23 neza ibaneza <nezaibaneza@
> **
>
>
> terima kasih Mr. KID, tetapi filenya sy kurang mengerti penggunaannya.
>
> Neza.
>
>
> ------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Jumat, 17 Agustus 2012 23:11
>
> *Judul:* Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang
> ikut berubah
>
>
>
> Coba file terlampir.
>
> Nama dropdown jenis form control object adalah myDropDown.
> Event worksheet change :
> Private Sub Worksheet_Change(
> Dim lCtlNew As Long
> Dim shp As Shape
> Dim rngShp As Range
>
> Application.
> 'turn off opsi event boleh aktif
> lCtlNew = ActiveSheet.
> 'jumlah shape baru (shape apa saja)
> If lCtlNew > 0 Then
> 'cek ada shape yang baru
> For Each shp In ActiveSheet.
> 'loop setiap shape
> If shp.FormControlType = xlDropDown Then
> 'cek tipe form control
> If InStr(LCase$
> 'cek berdasar namanya
> Set rngShp = shp.TopLeftCell
> 'simpan topleftcell dari si shape
> If rngShp.Column = 5 Then
> 'cek kolom rangenya
> 'set linkedcell (ole format link)
> 'karena posisi topleftcell tidak pada baris yang
> sama dengan linked cell
> 'maka perlu offset baris
> shp.OLEFormat.
> 1).Address(False, False)
> End If
> End If
> End If
> Next shp
> End If
> Range("e1").
> 'simpan jumlah shape
> Application.
> 'turn on opsi event boleh aktif
> End Sub
>
> Wassalam,
> Kid.
>
> 2012/8/16 neza ibaneza <nezaibaneza@
>
> **
>
> ok thanks untuk dwint r, mungkin ada koment dari master excel yg lain...
>
> ditunggu..
>
> salam
> neza
>
> ------------
> *Dari:* dwint ruswanto <dwint.ruswanto@
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 16 Agustus 2012 12:03
>
> *Judul:* Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang
> ikut berubah
>
>
>
> hai neza,
>
> jika tetap ingin memakai ComboBox, satu-satunya cara adalah menggunakan
> VBA, berhubung saya masih dalam tahap belajar tentang macro dan pengetahuan
> saya tentang cara mengambil komponen ActiveX Object ke worksheet belum
> memadai.. jadi untuk kasus ini saya nyerah dulu.. PR untuk saya..
>
> kita tunggu saja solusi dari para master di Millis ini.. ^_^ ==> ini akan
> menjadi ilmu baru bagi saya juga :-))
>
> wassalam,
>
> -dwint-
>
> Pada 16 Agustus 2012 07:25, neza ibaneza <nezaibaneza@
>
> **
>
> dear dwint,
>
> apakah untuk pertnyaan awal saya g ada pemecahannya.
> saja..
>
> salam
> Neza
>
> ------------
> *Dari:* dwint ruswanto <dwint.ruswanto@
> *Kepada:* belajar-excel@
> *Dikirim:* Rabu, 15 Agustus 2012 15:43
>
> *Judul:* Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang
> ikut berubah
>
>
>
> Untuk mencegah hal tersebut, coba non aktifkan fitur "Enable fill handle
> and cell drag-and-drop"
>
> Fitur ini bisa diakses melalui Excel Option >> Advance, setelah itu protek
> worksheet dengan menggunakan password.
>
> wassalam,
>
> -dwint-
>
> Pada 15 Agustus 2012 14:29, neza ibaneza <nezaibaneza@
>
> **
>
> Hi, Dwint Ruswanto,
> Saya sudah pikir kesitu juga, tp kelebihan dari ComboBox adalah outputnya
> akan tetap sama walauppun kita timpa dengan angka lain
>
> Salam
> Neza
> ------------
> *Dari:* dwint ruswanto <dwint.ruswanto@
> *Kepada:* belajar-excel@
> *Dikirim:* Rabu, 15 Agustus 2012 15:05
> *Judul:* Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang
> ikut berubah
>
>
>
> hai Neza,
>
> bagaimana kalo combo boxnya diganti dengan Data Validation.. prinsip
> kerjanya serupa yaitu user akan memilih Kode Gudang menggunakan drop down
> list,
> untuk mengambil Nama barang bisa menggunakan VLookUp
>
> hasilnya nanti bisa dicopy ke baris yang lain sesuai dengan keinginan
> tanpa harus mengubah linked Cell, karena Data validation ini tidak memiliki
> linked cell
>
> silakan lihat di lampiran
>
> wassalam,
>
> -dwint-
>
> Pada 15 Agustus 2012 13:31, neza ibaneza <nezaibaneza@
>
> **
>
> Dear all, Be-Excel
>
> Baru nongol lagi nih...
> Saya punya sedikit masalah seperti lampiran, (membuat linkedcell output
> ComboBox berubah sesuai jajaran cell penempatannya)
> mohon pencerahannya.
> linkedcellnya sangat ribet, apalagi jika dah masuk ratusan copy..
>
> Salam
> Neza
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Thu Aug 23, 2012 8:42 pm (PDT) . Posted by:
"neza ibaneza" nezaibaneza
Terima kasih banyak Mr. KID, programnya sudah ok.....
salam
Neza
________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 24 Agustus 2012 1:34
Judul: Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang ikut berubah
Ops... ada yang gak pas di baris :
If InStr(LCase$(shp.Name), "mydropdown") <> 0 Then
diubah menjadi :
If InStr(LCase$(shp.Name), "drop") <> 0 Then
cara pakai :
>> hapus isi cell E1 (1 kali saja)
>> blok E4 sampai G4 (selalu blok mulai kolom E dan bisa multi baris),
>> tekan Ctrl C (copy ke clipboard),
>> kemudian pindah ke E7 (selalu paste data di 1 cell pada kolom E baris yang dikehendaki),
>> tekan Ctrl V (paste)
Wassalam,
Kid.
2012/8/23 neza ibaneza <nezaibaneza@yahoo.co.id >
>
>terima kasih Mr. KID, tetapi filenya sy kurang mengerti penggunaannya..
>
>Neza.
>
>
>
>
>
>
>________________________________
> Dari: Kid Mr. <mr.nmkid@gmail.com >
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Jumat, 17 Agustus 2012 23:11
>
>Judul: Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang ikut berubah
>
>
>
>
>
>Coba file terlampir.
>
>Nama dropdown jenis form control object adalah myDropDown.
>Event worksheet change :
>Private Sub Worksheet_Change(ByVal Target As Range)
> Dim lCtlNew As Long
> Dim shp As Shape
> Dim rngShp As Range
>
> Application.EnableEvents = False 'turn off opsi event boleh aktif
> lCtlNew = ActiveSheet.Shapes.Count - Range("e1").Value 'jumlah shape baru (shape apa saja)
> If lCtlNew > 0 Then 'cek ada shape yang baru
> For Each shp In ActiveSheet.Shapes 'loop setiap shape
> If shp.FormControlType = xlDropDown Then 'cek tipe form control
> If InStr(LCase$(shp.Name), "mydropdown") <> 0 Then 'cek berdasar namanya
> Set rngShp = shp.TopLeftCell 'simpan topleftcell dari si shape
> If rngShp.Column = 5 Then 'cek kolom rangenya
> 'set linkedcell (ole format link)
> 'karena posisi topleftcell tidak pada baris yang sama dengan linked cell
> 'maka perlu offset baris
> shp.OLEFormat.Object.LinkedCell = rngShp.Offset(1, 1).Address(False, False)
> End If
> End If
> End If
> Next shp
> End If
> Range("e1").Value = ActiveSheet.Shapes.Count 'simpan jumlah shape
> Application.EnableEvents = True 'turn on opsi event boleh aktif
>End Sub
>
>Wassalam,
>Kid.
>
>
>2012/8/16 neza ibaneza <nezaibaneza@yahoo.co.id >
>
>
>>
>>ok thanks untuk dwint r, mungkin ada koment dari master excel yg lain...
>>
>>
>>ditunggu..
>>
>>
>>salam
>>neza
>>
>>
>>
>>
>>________________________________
>> Dari: dwint ruswanto <dwint.ruswanto@gmail.com >
>>Kepada: belajar-excel@yahoogroups.com
>>Dikirim: Kamis, 16 Agustus 2012 12:03
>>
>>Judul: Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang ikut berubah
>>
>>
>>
>>
>>
>>hai neza,
>>
>>
>>jika tetap ingin memakai ComboBox, satu-satunya cara adalah menggunakan VBA, berhubung saya masih dalam tahap belajar tentang macro dan pengetahuan saya tentang cara mengambil komponen ActiveX Object ke worksheet belum memadai.. jadi untuk kasus ini saya nyerah dulu.. PR untuk saya..
>>
>>
>>kita tunggu saja solusi dari para master di Millis ini.. ^_^ ==> ini akan menjadi ilmu baru bagi saya juga :-))
>>
>>
>>wassalam,
>>
>>
>>-dwint-
>>
>>
>>Pada 16 Agustus 2012 07:25, neza ibaneza <nezaibaneza@yahoo.co.id > menulis:
>>
>>
>>>
>>>dear dwint,
>>>
>>>
>>>apakah untuk pertnyaan awal saya g ada pemecahannya... khusus ke ComboBox saja..
>>>
>>>
>>>salam
>>>
>>>Neza
>>>
>>>
>>>
>>>
>>>________________________________
>>> Dari: dwint ruswanto <dwint.ruswanto@gmail.com >
>>>Kepada: belajar-excel@yahoogroups.com
>>>Dikirim: Rabu, 15 Agustus 2012 15:43
>>>
>>>Judul: Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang ikut berubah
>>>
>>>
>>>
>>>
>>>
>>>Untuk mencegah hal tersebut, coba non aktifkan fitur "Enable fill handle and cell drag-and-drop"
>>>
>>>
>>>Fitur ini bisa diakses melalui Excel Option >> Advance, setelah itu protek worksheet dengan menggunakan password.
>>>
>>>
>>>wassalam,
>>>
>>>
>>>-dwint-
>>>
>>>
>>>Pada 15 Agustus 2012 14:29, neza ibaneza <nezaibaneza@yahoo.co.id > menulis:
>>>
>>>
>>>>
>>>>Hi, Dwint Ruswanto,
>>>>Saya sudah pikir kesitu juga, tp kelebihan dari ComboBox adalah outputnya akan tetap sama walauppun kita timpa dengan angka lain
>>>>
>>>>
>>>>Salam
>>>>Neza
>>>>
>>>>
>>>>________________________________
>>>> Dari: dwint ruswanto <dwint.ruswanto@gmail.com >
>>>>Kepada: belajar-excel@yahoogroups.com
>>>>Dikirim: Rabu, 15 Agustus 2012 15:05
>>>>Judul: Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang ikut berubah
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>hai Neza,
>>>>
>>>>
>>>>bagaimana kalo combo boxnya diganti dengan Data Validation.. prinsip kerjanya serupa yaitu user akan memilih Kode Gudang menggunakan drop down list,
>>>>untuk mengambil Nama barang bisa menggunakan VLookUp
>>>>
>>>>
>>>>hasilnya nanti bisa dicopy ke baris yang lain sesuai dengan keinginan tanpa harus mengubah linked Cell, karena Data validation ini tidak memiliki linked cell
>>>>
>>>>
>>>>silakan lihat di lampiran
>>>>
>>>>
>>>>wassalam,
>>>>
>>>>
>>>>-dwint-
>>>>
>>>>
>>>>Pada 15 Agustus 2012 13:31, neza ibaneza <nezaibaneza@yahoo.co.id > menulis:
>>>>
>>>>
>>>>>
>>>>>Dear all, Be-Excel
>>>>>
>>>>>
>>>>>Baru nongol lagi nih...
>>>>>Saya punya sedikit masalah seperti lampiran, (membuat linkedcell output ComboBox berubah sesuai jajaran cell penempatannya)
>>>>>mohon pencerahannya... karena membuka satu persatu ComboBox dan mengubah linkedcellnya sangat ribet, apalagi jika dah masuk ratusan copy..
>>>>>
>>>>>
>>>>>Salam
>>>>>Neza
>>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>>
>>
>>
>
>
>
>
>
>
salam
Neza
____________
Dari: Kid Mr. <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Jumat, 24 Agustus 2012 1:34
Judul: Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang ikut berubah
Ops... ada yang gak pas di baris :
If InStr(LCase$
diubah menjadi :
If InStr(LCase$
cara pakai :
>> hapus isi cell E1 (1 kali saja)
>> blok E4 sampai G4 (selalu blok mulai kolom E dan bisa multi baris),
>> tekan Ctrl C (copy ke clipboard),
>> kemudian pindah ke E7 (selalu paste data di 1 cell pada kolom E baris yang dikehendaki)
>> tekan Ctrl V (paste)
Wassalam,
Kid.
2012/8/23 neza ibaneza <nezaibaneza@
>
>terima kasih Mr. KID, tetapi filenya sy kurang mengerti penggunaannya.
>
>Neza.
>
>
>
>
>
>
>___________
> Dari: Kid Mr. <mr.nmkid@gmail.
>Kepada: belajar-excel@
>Dikirim: Jumat, 17 Agustus 2012 23:11
>
>Judul: Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang ikut berubah
>
>
>
>
>
>Coba file terlampir.
>
>Nama dropdown jenis form control object adalah myDropDown.
>Event worksheet change :
>Private Sub Worksheet_Change(
> Dim lCtlNew As Long
> Dim shp As Shape
> Dim rngShp As Range
>
> Application.
> lCtlNew = ActiveSheet.
> If lCtlNew > 0 Then 'cek ada shape yang baru
> For Each shp In ActiveSheet.
> If shp.FormControlType = xlDropDown Then 'cek tipe form control
> If InStr(LCase$
> Set rngShp = shp.TopLeftCell 'simpan topleftcell dari si shape
> If rngShp.Column = 5 Then 'cek kolom rangenya
> 'set linkedcell (ole format link)
> 'karena posisi topleftcell tidak pada baris yang sama dengan linked cell
> 'maka perlu offset baris
> shp.OLEFormat.
> End If
> End If
> End If
> Next shp
> End If
> Range("e1").
> Application.
>End Sub
>
>Wassalam,
>Kid.
>
>
>2012/8/16 neza ibaneza <nezaibaneza@
>
>
>>
>>ok thanks untuk dwint r, mungkin ada koment dari master excel yg lain...
>>
>>
>>ditunggu..
>>
>>
>>salam
>>neza
>>
>>
>>
>>
>>__________
>> Dari: dwint ruswanto <dwint.ruswanto@
>>Kepada: belajar-excel@
>>Dikirim: Kamis, 16 Agustus 2012 12:03
>>
>>Judul: Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang ikut berubah
>>
>>
>>
>>
>>
>>hai neza,
>>
>>
>>jika tetap ingin memakai ComboBox, satu-satunya cara adalah menggunakan VBA, berhubung saya masih dalam tahap belajar tentang macro dan pengetahuan saya tentang cara mengambil komponen ActiveX Object ke worksheet belum memadai.. jadi untuk kasus ini saya nyerah dulu.. PR untuk saya..
>>
>>
>>kita tunggu saja solusi dari para master di Millis ini.. ^_^ ==> ini akan menjadi ilmu baru bagi saya juga :-))
>>
>>
>>wassalam,
>>
>>
>>-dwint-
>>
>>
>>Pada 16 Agustus 2012 07:25, neza ibaneza <nezaibaneza@
>>
>>
>>>
>>>dear dwint,
>>>
>>>
>>>apakah untuk pertnyaan awal saya g ada pemecahannya.
>>>
>>>
>>>salam
>>>
>>>Neza
>>>
>>>
>>>
>>>
>>>_________
>>> Dari: dwint ruswanto <dwint.ruswanto@
>>>Kepada: belajar-excel@
>>>Dikirim: Rabu, 15 Agustus 2012 15:43
>>>
>>>Judul: Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang ikut berubah
>>>
>>>
>>>
>>>
>>>
>>>Untuk mencegah hal tersebut, coba non aktifkan fitur "Enable fill handle and cell drag-and-drop"
>>>
>>>
>>>Fitur ini bisa diakses melalui Excel Option >> Advance, setelah itu protek worksheet dengan menggunakan password.
>>>
>>>
>>>wassalam,
>>>
>>>
>>>-dwint-
>>>
>>>
>>>Pada 15 Agustus 2012 14:29, neza ibaneza <nezaibaneza@
>>>
>>>
>>>>
>>>>Hi, Dwint Ruswanto,
>>>>Saya sudah pikir kesitu juga, tp kelebihan dari ComboBox adalah outputnya akan tetap sama walauppun kita timpa dengan angka lain
>>>>
>>>>
>>>>Salam
>>>>Neza
>>>>
>>>>
>>>>________
>>>> Dari: dwint ruswanto <dwint.ruswanto@
>>>>Kepada: belajar-excel@
>>>>Dikirim: Rabu, 15 Agustus 2012 15:05
>>>>Judul: Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang ikut berubah
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>hai Neza,
>>>>
>>>>
>>>>bagaimana kalo combo boxnya diganti dengan Data Validation.. prinsip kerjanya serupa yaitu user akan memilih Kode Gudang menggunakan drop down list,
>>>>untuk mengambil Nama barang bisa menggunakan VLookUp
>>>>
>>>>
>>>>hasilnya nanti bisa dicopy ke baris yang lain sesuai dengan keinginan tanpa harus mengubah linked Cell, karena Data validation ini tidak memiliki linked cell
>>>>
>>>>
>>>>silakan lihat di lampiran
>>>>
>>>>
>>>>wassalam,
>>>>
>>>>
>>>>-dwint-
>>>>
>>>>
>>>>Pada 15 Agustus 2012 13:31, neza ibaneza <nezaibaneza@
>>>>
>>>>
>>>>>
>>>>>Dear all, Be-Excel
>>>>>
>>>>>
>>>>>Baru nongol lagi nih...
>>>>>Saya punya sedikit masalah seperti lampiran, (membuat linkedcell output ComboBox berubah sesuai jajaran cell penempatannya)
>>>>>mohon pencerahannya.
>>>>>
>>>>>
>>>>>Salam
>>>>>Neza
>>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>>
>>
>>
>
>
>
>
>
>
Thu Aug 23, 2012 12:50 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Waalaikumussalam Wr. Wb.
Taqabbalallahu minna wa minkum
File terlampir memanfaatkan sebuah kolom bantu.
Wassalamualaikum Wr. Wb.,
Kid.
On Thu, Aug 23, 2012 at 1:36 PM, M. Ferdiansyah <muh_ferdy@pusri.co.id >wrote:
> **
>
>
> Assalamualaikum, wr., wb.,
> Dear rekan" excel yg berbahagia,
>
> Sebelumnya Minal Aidin Walfaidzin, mohon maaf lahir & bathin,
> selamat Hari Raya Idul Fitri 1433H.
>
> Selanjutnya langsung saja kepermasalahannya ya, saya mempunyai daftar
> tagihan pada tabel 1, kemudian akan saya saring menjadi tabel 2 dengan
> kriteria jika sudah lunas pada tabel 1 tidak terdaftar kembali pada tabel
> 2, atau lebih jelasnya bisa dilihat dilampiran..
>
> Mohon bantuannya, bisa dengan macro, pivot tabel, atau diharapkan formula
> filternya saja..
>
> Terimakasih,
>
> wassalam,
>
> Ferdy
>
> ____________ _________ _________ _________ _________ _________ _________
> Notice : This e-mail (and any attachment) is strictly confidential and
> is intended only for the addressee(s)above. Is strictly prohibited to
> forward, print, copy, or otherwise reproduce this message that would
> allow it to be viewed by any individual not originally listed as
> a recipient(s). If you have received this e-mail in error, please
> immediately notify the sender and delete this message. The opinions
> expressed in this e-mail (and any attachment) are those of the individual
> sender and may not necessarily reflect the views of PT Pusri.
> ____________ _________ _________ _________ _________ _________ _________
>
>
Taqabbalallahu minna wa minkum
File terlampir memanfaatkan sebuah kolom bantu.
Wassalamualaikum Wr. Wb.,
Kid.
On Thu, Aug 23, 2012 at 1:36 PM, M. Ferdiansyah <muh_ferdy@pusri.
> **
>
>
> Assalamualaikum, wr., wb.,
> Dear rekan" excel yg berbahagia,
>
> Sebelumnya Minal Aidin Walfaidzin, mohon maaf lahir & bathin,
> selamat Hari Raya Idul Fitri 1433H.
>
> Selanjutnya langsung saja kepermasalahannya ya, saya mempunyai daftar
> tagihan pada tabel 1, kemudian akan saya saring menjadi tabel 2 dengan
> kriteria jika sudah lunas pada tabel 1 tidak terdaftar kembali pada tabel
> 2, atau lebih jelasnya bisa dilihat dilampiran..
>
> Mohon bantuannya, bisa dengan macro, pivot tabel, atau diharapkan formula
> filternya saja..
>
> Terimakasih,
>
> wassalam,
>
> Ferdy
>
> ____________ _________ _________ _________ _________ _________ _________
> Notice : This e-mail (and any attachment) is strictly confidential and
> is intended only for the addressee(s)
> forward, print, copy, or otherwise reproduce this message that would
> allow it to be viewed by any individual not originally listed as
> a recipient(s)
> immediately notify the sender and delete this message. The opinions
> expressed in this e-mail (and any attachment) are those of the individual
> sender and may not necessarily reflect the views of PT Pusri.
> ____________ _________ _________ _________ _________ _________ _________
>
>
Thu Aug 23, 2012 1:21 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Coba buat event worksheet before double click di VBE pada sheet tersebut.
Kemudian isi dengan :
dim oShellApp as object
dim sFullFileName as string
with target 'pada range yang di double click
if .count=1 then 'hanya 1 cell
if .column=7 then 'di kolom ke-7
if .row>3 then 'nomor baris excel-nya > 3
if len(.value)=3 then 'isinya hanya 3 karakter
'set nama file lengkap dengan foldernya
'ganti *thiswrokbook.path* dengan pathfile-nya
'seperti : *D:\mydata\folderku*
sfullfilename=*thisworkbook.path* & "\" & .value & ".pdf"
if lenb(dir$(sfullfilename)<>0 then 'filenya ada beneran
set oShellApp=createobject("WScript.Shell") 'buat shell
command
oshellapp.run sfullfilename 'run file dari shell
command
cancel=true 'batalkan perintah double click
endif
endif
endif
endif
endif
end with
Wassalam,
Kid.
2012/8/22 Yayat Ply <yayat_ply@ymail.com >
> **
>
>
> ** Maap saya lupa melampirkannya
> Nih, saya kirimkan kembali.
> Terima kasih
> ------------------------------
> *From: * hendrik karnadi <hendrikkarnadi@yahoo.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Wed, 22 Aug 2012 04:44:50 -0700 (PDT)
> *To: *belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Open file secara otomatis
>
>
>
> Lampirannya ga kelihatan Pak.
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* "yayat_ply@ymail.com " <yayat_ply@ymail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, 22 August 2012, 10:39
> *Subject:* [belajar-excel] Open file secara otomatis
>
> Selamat siang para master excel.
> Mohon bantunya dan petunjuk atas masalah yg sudah saya lampirkan pada
> email ini.
> Sebelumnya saya ucapkan banyak erima kasih.
> Maap kalau email saya terlalu singkat :)
> Powered by Telkomsel BlackBerry�
>
> ------------------------------------
>
> ----------------------------------------------------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-subscribe@yahoogroups.com
>
> posting ke milis, kirimkan ke:
> belajar-excel@yahoogroups.com
>
> berkunjung ke web milis
> http://tech.groups.yahoo.com/group/belajar-excel/messages
>
> melihat file archive / mendownload lampiran
> http://www.mail-archive.com/belajar-excel@yahoogroups.com/
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-belajar-excel.1048464.n5.nabble.com/
>
> menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
>
> keluar dari membership milis (UnSubscribe):
> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
>
>
>
Kemudian isi dengan :
dim oShellApp as object
dim sFullFileName as string
with target 'pada range yang di double click
if .count=1 then 'hanya 1 cell
if .column=7 then 'di kolom ke-7
if .row>3 then 'nomor baris excel-nya > 3
if len(.value)=
'set nama file lengkap dengan foldernya
'ganti *thiswrokbook.
'seperti : *D:\mydata\folderku
sfullfilename=
if lenb(dir$(sfullfile
set oShellApp=createobj
command
oshellapp.run sfullfilename 'run file dari shell
command
cancel=true 'batalkan perintah double click
endif
endif
endif
endif
endif
end with
Wassalam,
Kid.
2012/8/22 Yayat Ply <yayat_ply@ymail.
> **
>
>
> ** Maap saya lupa melampirkannya
> Nih, saya kirimkan kembali.
> Terima kasih
> ------------
> *From: * hendrik karnadi <hendrikkarnadi@
> *Sender: * belajar-excel@
> *Date: *Wed, 22 Aug 2012 04:44:50 -0700 (PDT)
> *To: *belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] Open file secara otomatis
>
>
>
> Lampirannya ga kelihatan Pak.
>
> Salam,
> Hendrik Karnadi
>
> ------------
> *From:* "yayat_ply@ymail.
> *To:* belajar-excel@
> *Sent:* Wednesday, 22 August 2012, 10:39
> *Subject:* [belajar-excel] Open file secara otomatis
>
> Selamat siang para master excel.
> Mohon bantunya dan petunjuk atas masalah yg sudah saya lampirkan pada
> email ini.
> Sebelumnya saya ucapkan banyak erima kasih.
> Maap kalau email saya terlalu singkat :)
> Powered by Telkomsel BlackBerry�
>
> ------------
>
> ------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-
>
> posting ke milis, kirimkan ke:
> belajar-excel@
>
> berkunjung ke web milis
> http://tech.
>
> melihat file archive / mendownload lampiran
> http://www.mail-
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-
>
> menghubungi moderators & owners: belajar-excel-
>
> keluar dari membership milis (UnSubscribe)
> kirim mail kosong ke belajar-excel-
> ------------
> Groups Links
>
>
>
>
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar