14 Messages
Digest #2805
2a
Re: Hubungan Antara ComboBox dengan TextBox (Edited by Mod) [1 Attac by "Mr. Kid" nmkid.family@ymail.com
4c
Bls: [belajar-excel] Menguhubungkan UserForm dengan Database by "Krisan Flower" krisan_flower@rocketmail.com
Messages
Wed Feb 26, 2014 7:47 am (PST) . Posted by:
"Tjahya Hartono" tjahyahartono
Woooow, its works. Thank u Pak Heri
Wasalam
Tjahya H
Pada Rabu, 26 Februari 2014 19:21, Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com> menulis:
Semangat pagi,
Mau tanya, apakah Merge di alamat dibutuhkan ?!
Coba trik Mr. Kid menggunakan Center Accross Selection
Salam Excell-ent
On 26/02/2014 18:53, Tjahya Hartono wrote:
>
>
>Dear be-exceller,
>
>
>Para master di belajar excel, mohon petunjuknya dunk. Kenapa ya macro ini debug terus? Mohon diperbaiki file nya dan mohon maaf nih, sy minta ijin dulu karena ini dari file teman2 be-exceller lainnya yang sedikit saya modif.
>Terima kasih sebelumnya
>
>
>
>Wassalam
>
>Tjahya Hartono
>
>
>
Wasalam
Tjahya H
Pada Rabu, 26 Februari 2014 19:21, Heri Pamungkas ( Gmail ) <ghery.dharma@
Semangat pagi,
Mau tanya, apakah Merge di alamat dibutuhkan ?!
Coba trik Mr. Kid menggunakan Center Accross Selection
Salam Excell-ent
On 26/02/2014 18:53, Tjahya Hartono wrote:
>
>
>Dear be-exceller,
>
>
>Para master di belajar excel, mohon petunjuknya dunk. Kenapa ya macro ini debug terus? Mohon diperbaiki file nya dan mohon maaf nih, sy minta ijin dulu karena ini dari file teman2 be-exceller lainnya yang sedikit saya modif.
>Terima kasih sebelumnya
>
>
>
>Wassalam
>
>Tjahya Hartono
>
>
>
Wed Feb 26, 2014 1:52 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Biasanya, setiap proses komputasi matematis terhadap suatu nilai dalam
textbox dilakukan atau ditambahkan dengan proses antisipasi terhadap
seluruh kemungkinan proses nilai yang terinput dalam textbox tersebut.
Untuk kasus ini, saat ini bisa dengan mengubah event change milik txtQty
ataupun prosedur lain yang berkaitan dengan komputasi matematis terhadap
control txtQty dan txtHrg# dengan mengubah bunyi baris-baris kode pada
bagian :
txtQty.Text menjadi 0 & txtQty.Text
dan
txtHrg# menjadi 0 & txtHrg#.text '# berisi indeks angka yang Anda gunakan
dalam penamaan textbox tersebut
Wassalamu'alaikum Wr. Wb.
Kid.
2014-02-26 11:13 GMT+07:00 aisyah zahrah <aisyahzahrah00@gmail.com>:
>
>
> Assalamu`alaikum.....
> Dear Be Excel-er
> saya mempunyai data,dimana data tersebut masing-masing mempunyai kriteria
> dan masing-masing kriteria memiliki jumlah data yang tidak sama
> Umpama ada kriteria Hewan Pemakan Daging (Carnivora), Hewan Pemakan
> Tumbuhan (Herbivora),
> Hewan Pemakan Daging dan Tumbuhan (Omnivora) dan yang terakhir dan Hewan
> Pemakan Uang (yang ini apa ya? rayap kali ya..) [ misal :-) ]
> masing-masing jumlahnya 5:5:5:4
>
> jadi saya membuat Textbox,dimana Textbox tersebut saya hubungkan dengan
> ComboBox
> banyaknya Textbox yang saya buat berdasarkan jumlah kriteria yang paling
> banyak ( dalam kasus ini berarti 5 )
> sewaktu ComboBox berbunyi"Hewan Pemakan Uuang",otomatis TextBox yang
> terakhir akan kosong
> Masalahnya semua textbox tersebut ada yang di sangkutpautkan dengan
> TextBox yang lain,dan TextBox yang lain inilah yang jadi masalah,beliau
> selalu Debug jika ada salah satu textbox yang kosong
> apa karna jumlah dari masing-masing kriteria tidak sama ??ataukah ada yang
> keliru di script-nya ??
> Atas bantuannya saya ucapkan terima kasih
> Wassalamu`alaikum...
>
>
> Untuk lebih Jelasnya,saya lampirkan File tersebut
>
> ----- Mods -----
> Dilarang menuliskan pertanyaan dan judul dengan huruf besar semua,
> pastikan tombol Caps Lock di komputer anda tidak rusak saat menulis email
> :)
>
> Penulisan dengan huruf besar di dumay seolah2 anda berteriak kepada yang
> lain
> ___________
>
>
>
Biasanya, setiap proses komputasi matematis terhadap suatu nilai dalam
textbox dilakukan atau ditambahkan dengan proses antisipasi terhadap
seluruh kemungkinan proses nilai yang terinput dalam textbox tersebut.
Untuk kasus ini, saat ini bisa dengan mengubah event change milik txtQty
ataupun prosedur lain yang berkaitan dengan komputasi matematis terhadap
control txtQty dan txtHrg# dengan mengubah bunyi baris-baris kode pada
bagian :
txtQty.Text menjadi 0 & txtQty.Text
dan
txtHrg# menjadi 0 & txtHrg#.text '# berisi indeks angka yang Anda gunakan
dalam penamaan textbox tersebut
Wassalamu'
Kid.
2014-02-26 11:13 GMT+07:00 aisyah zahrah <aisyahzahrah00@
>
>
> Assalamu`alaikum.
> Dear Be Excel-er
> saya mempunyai data,dimana data tersebut masing-masing mempunyai kriteria
> dan masing-masing kriteria memiliki jumlah data yang tidak sama
> Umpama ada kriteria Hewan Pemakan Daging (Carnivora), Hewan Pemakan
> Tumbuhan (Herbivora),
> Hewan Pemakan Daging dan Tumbuhan (Omnivora) dan yang terakhir dan Hewan
> Pemakan Uang (yang ini apa ya? rayap kali ya..) [ misal :-) ]
> masing-masing jumlahnya 5:5:5:4
>
> jadi saya membuat Textbox,dimana Textbox tersebut saya hubungkan dengan
> ComboBox
> banyaknya Textbox yang saya buat berdasarkan jumlah kriteria yang paling
> banyak ( dalam kasus ini berarti 5 )
> sewaktu ComboBox berbunyi"
> terakhir akan kosong
> Masalahnya semua textbox tersebut ada yang di sangkutpautkan dengan
> TextBox yang lain,dan TextBox yang lain inilah yang jadi masalah,beliau
> selalu Debug jika ada salah satu textbox yang kosong
> apa karna jumlah dari masing-masing kriteria tidak sama ??ataukah ada yang
> keliru di script-nya ??
> Atas bantuannya saya ucapkan terima kasih
> Wassalamu`alaikum.
>
>
> Untuk lebih Jelasnya,saya lampirkan File tersebut
>
> ----- Mods -----
> Dilarang menuliskan pertanyaan dan judul dengan huruf besar semua,
> pastikan tombol Caps Lock di komputer anda tidak rusak saat menulis email
> :)
>
> Penulisan dengan huruf besar di dumay seolah2 anda berteriak kepada yang
> lain
> ___________
>
>
>
Wed Feb 26, 2014 2:25 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba formula baris 3 :
=E3*IF(COUNTIF(A$3:A$28,D3),COUNTIF(A$3:A$28,D3)>COUNTIF(D$2:D2,D3),1)
Wassalam,
Kid.
2014-02-26 15:41 GMT+07:00 Shenly <shenly_excelmania@yahoo.co.id>:
>
>
> buat mas wira....sya masih blm mengerti rumus yg mas buat, hehehehe
> untuk mas bagus, rumusnya hampir sesuai tapi masalahnya jika ada data
> doubel dalam 1 tabel maka hasilnya juga bakalan nol (0) harusnya tidak
> contoh
>
> tabel1
> tabel2 tabel hasil pencocokan
> code amount code amount
> hasil
> hdl01 50000 hdl01
> 50000 0
> hdl01
> 50000 50000
>
> nah yg saya inginkan seprti di atas, untuk rumusan dari mas bagus hapir
> benar, tpi hasilnya akan 0 semua jika code dan amount nya sama...
> mohon bantuannya kembali... :)
>
>
> Salam
> Shenly ^^*
>
>
> Pada Selasa, 25 Februari 2014 19:18, WIRAnata Kemala 鄧又銘 <
> kwiranata.milis@gmail.com> menulis:
>
> eh sepertinya hasil nya gak konsisten deh pake formula yang ini.
>
> mungkin pakai COUNTIF akan lebih bener :)
>
>
> 2014-02-25 19:05 GMT+07:00 WIRAnata Kemala 鄧又銘 <kwiranata.milis@gmail.com>
> :
>
> newbie coba bantu jawab yah, semoga pengertian saya benar :)
>
> di cell G3: formula =
> =IFERROR(IF(INDEX(D3,MATCH($A$3:$A$28,D3))<>"#N/A",0,""),"")
>
> am sure pasti banyak cara yang lebih cantik, tapi sepertinya formula di
> atas jalan :)
>
>
>
> 2014-02-25 17:57 GMT+07:00 Shenly <shenly_excelmania@yahoo.co.id>:
>
>
> halo master...tolong di bantu bagaimana caranya mencocokan data dari
> beberapa tabel
> file terlampir. terima kasih
>
> Salam
> Shenly ^^*
>
>
>
>
> --
> regards, Wira 鄧又銘
> on desktop FireFox
>
>
>
>
> --
> regards, Wira 鄧又銘
> on desktop FireFox
>
>
>
>
=E3*IF(COUNTIF(
Wassalam,
Kid.
2014-02-26 15:41 GMT+07:00 Shenly <shenly_excelmania@
>
>
> buat mas wira....sya masih blm mengerti rumus yg mas buat, hehehehe
> untuk mas bagus, rumusnya hampir sesuai tapi masalahnya jika ada data
> doubel dalam 1 tabel maka hasilnya juga bakalan nol (0) harusnya tidak
> contoh
>
> tabel1
> tabel2 tabel hasil pencocokan
> code amount code amount
> hasil
> hdl01 50000 hdl01
> 50000 0
> hdl01
> 50000 50000
>
> nah yg saya inginkan seprti di atas, untuk rumusan dari mas bagus hapir
> benar, tpi hasilnya akan 0 semua jika code dan amount nya sama...
> mohon bantuannya kembali... :)
>
>
> Salam
> Shenly ^^*
>
>
> Pada Selasa, 25 Februari 2014 19:18, WIRAnata Kemala 鄧又銘 <
> kwiranata.milis@
>
> eh sepertinya hasil nya gak konsisten deh pake formula yang ini.
>
> mungkin pakai COUNTIF akan lebih bener :)
>
>
> 2014-02-25 19:05 GMT+07:00 WIRAnata Kemala 鄧又銘 <kwiranata.milis@
> :
>
> newbie coba bantu jawab yah, semoga pengertian saya benar :)
>
> di cell G3: formula =
> =IFERROR(IF(
>
> am sure pasti banyak cara yang lebih cantik, tapi sepertinya formula di
> atas jalan :)
>
>
>
> 2014-02-25 17:57 GMT+07:00 Shenly <shenly_excelmania@
>
>
> halo master...tolong di bantu bagaimana caranya mencocokan data dari
> beberapa tabel
> file terlampir. terima kasih
>
> Salam
> Shenly ^^*
>
>
>
>
> --
> regards, Wira 鄧又銘
> on desktop FireFox
>
>
>
>
> --
> regards, Wira 鄧又銘
> on desktop FireFox
>
>
>
>
Wed Feb 26, 2014 7:47 pm (PST) . Posted by:
"Haris Rifai" haris.rifai
Dear Mr. Kid.
Terimaksih atas arahanya.
Untuk nomor 1.
Saya sudah coba seperti ini pada point membuka workbook;
set wbktarget=workbooks.open("DATA (J:)\\BelajarVBA\COBA2",2)
Tapi saat dijalankan muncul debug yang mengarah pada script tersebut,
Mungkin kesalahan pada penulisan script alamat file, karena memang saya belum tau bagaimana cara penulisannya.
File yang saya maksud ada di partisi/drive "D" pada folder "BelajarVBA". Berada satu folder dengan file kerjanya (userform).
Dalam penulisan alamat file target terdpat angka "2" sebelum tanda kurung penutup, apa arti angka tersebut Mr. Kid.
Untuk nomor 3.
Yang saya maksud adalah saya ingin membuka/menampilkan sebuah sheet dari suatu file dengan cara klik pada sebuah commond button.
Misalnya sheet tersebut berada di partisi/drive "D" pada folder "BelajarVBA" nama file "Coba3" sheet "Database";. Bagaimana coding yang harus saya tuliskan pada commond button yang saya maksud.
Mohon maaf klo saya kurang bisa cepat faham, tapi saya pengen bisa.
Insya Allah saya akan share aplikasi vba yang sedang saya buat, dengan harapan minimal bisa buat referensi bagi para pemula seperti saya.
Terimakasih.
Haris.
Pada Sabtu, 22 Februari 2014 15:44, Mr. Kid <mr.nmkid@gmail.com> menulis:
Wa'alaikumussalam Wr. Wb.
Hai Haris,
1. Bagaimana caranya (teknis & coding) bila sheet DATABASE berada di file yang berbeda.
>> sebelum proses save, lakukan kegiatan membuka file target
dim wbkApp as workbook, wbkTarget as workbook
set wbkapp=thisworkbook
set wbktarget=workbooks.open( "alamat lengkap si file target",2)
wbkapp.activate
>> proses penulisan ke sebuah cell target ditambahkan dengan object workbook target dan sheet targetnya
wbktarget.sheets("nama sheet target").range("alamat range target").value = txtIsian1.text 'misalnya
'dst
>> selesai tulis, lakukan penyimpanan file target dan tutup sekalian
application.displayalerts=false
wbktarget.close true
application.displayalerts=true
2. Kalau data dari "Combobox"; berada di file yang berbeda bagaimana penulisan coding untuk memanggilnya.
>> Hal ini dilakukan saat akan membuka userform
>> cara 1, salin datanya dari file sumber ke file kerja lalu gunakan dalam userform. Cara ini dimungkinkan untuk bisa menggunakan properti rowsource (properti listfillrange jika activex object ada dalam worksheet)
>> cara 2, buka file sumber lalu baca setiap item sumber sembari menambahkan ke combobox.
Cara buka file sumber : (mirip nomor 2)
dim wbkApp as workbook, wbkSumber as workbook
set wbkapp=thisworkbook
set wbksumber = workbooks.open( "alamat lengkap si file target",2)
wbkapp.activate
Cara copy item set sumber
wbksumber.sheets("sumbernya").range("alamat range si items sumber").copy
with wbkapp.sheets("lokasi di file kerja").range("alamat range si items di lokasi kerja")
.clearcontents
.resize(1,1).pastespecial xlpastevalues
end with
Kalau buka lalu add satu-satu :
dim rng as range
with cboDiUserform
.listindex=-1
.clear
for each rng in wbksumber.sheets("sumbernya").range("alamat range si items sumber").resize(,1).offset(1) 'offset 1 kalau ada headernya
if len(rng,value)<>0 then
.add rng.value
endif
next rng
end with
3. Kalo pada UserForm saya tambahkan CommandButton untuk meng-edit sheet yang berisi data dari isi Combobox yang saya maksud di atas bagaimana coding yang harus saya buat.
>> masih belum paham maksudnya
Wassalam,
Kid.
2014-02-22 14:38 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:
>
>Assalamu'alaikum.
>
>
>Salam BeXceler.
>
>
>Dear master excel.
>Mohon arahnnya lagi nih...
>Bagaimana caranya jika kita ingin data hasil input pada UserForm disimpan pada file excel yang berbeda dari file tempat Userform berada.
>
>
>Untuk memperjelas apa yang saya maksud berikut saya lampirkan file-nya.
>
>
>wassalam.
>Haris.
Terimaksih atas arahanya.
Untuk nomor 1.
Saya sudah coba seperti ini pada point membuka workbook;
set wbktarget=workbooks
Tapi saat dijalankan muncul debug yang mengarah pada script tersebut,
Mungkin kesalahan pada penulisan script alamat file, karena memang saya belum tau bagaimana cara penulisannya.
File yang saya maksud ada di partisi/drive "D" pada folder "BelajarVBA&qu
Dalam penulisan alamat file target terdpat angka "2" sebelum tanda kurung penutup, apa arti angka tersebut Mr. Kid.
Untuk nomor 3.
Yang saya maksud adalah saya ingin membuka/menampilkan sebuah sheet dari suatu file dengan cara klik pada sebuah commond button.
Misalnya sheet tersebut berada di partisi/drive "D" pada folder "BelajarVBA&qu
Mohon maaf klo saya kurang bisa cepat faham, tapi saya pengen bisa.
Insya Allah saya akan share aplikasi vba yang sedang saya buat, dengan harapan minimal bisa buat referensi bagi para pemula seperti saya.
Terimakasih.
Haris.
Pada Sabtu, 22 Februari 2014 15:44, Mr. Kid <mr.nmkid@gmail.
Wa'alaikumussal
Hai Haris,
1. Bagaimana caranya (teknis & coding) bila sheet DATABASE berada di file yang berbeda.
>> sebelum proses save, lakukan kegiatan membuka file target
dim wbkApp as workbook, wbkTarget as workbook
set wbkapp=thisworkbook
set wbktarget=workbooks
wbkapp.activate
>> proses penulisan ke sebuah cell target ditambahkan dengan object workbook target dan sheet targetnya
wbktarget.sheets(
'dst
>> selesai tulis, lakukan penyimpanan file target dan tutup sekalian
application.
wbktarget.close true
application.
2. Kalau data dari "Combobox"
>> Hal ini dilakukan saat akan membuka userform
>> cara 1, salin datanya dari file sumber ke file kerja lalu gunakan dalam userform. Cara ini dimungkinkan untuk bisa menggunakan properti rowsource (properti listfillrange jika activex object ada dalam worksheet)
>> cara 2, buka file sumber lalu baca setiap item sumber sembari menambahkan ke combobox.
Cara buka file sumber : (mirip nomor 2)
dim wbkApp as workbook, wbkSumber as workbook
set wbkapp=thisworkbook
set wbksumber = workbooks.open( "alamat lengkap si file target"
wbkapp.activate
Cara copy item set sumber
wbksumber.sheets(
with wbkapp.sheets(
.clearcontents
.resize(1,1)
end with
Kalau buka lalu add satu-satu :
dim rng as range
with cboDiUserform
.listindex=-
.clear
for each rng in wbksumber.sheets(
if len(rng,value)
.add rng.value
endif
next rng
end with
3. Kalo pada UserForm saya tambahkan CommandButton untuk meng-edit sheet yang berisi data dari isi Combobox yang saya maksud di atas bagaimana coding yang harus saya buat.
>> masih belum paham maksudnya
Wassalam,
Kid.
2014-02-22 14:38 GMT+07:00 Haris Rifai <haris.rifai@
>
>Assalamu&#
>
>
>Salam BeXceler.
>
>
>Dear master excel.
>Mohon arahnnya lagi nih...
>Bagaimana caranya jika kita ingin data hasil input pada UserForm disimpan pada file excel yang berbeda dari file tempat Userform berada.
>
>
>Untuk memperjelas apa yang saya maksud berikut saya lampirkan file-nya.
>
>
>wassalam.
>Haris.
Wed Feb 26, 2014 11:55 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Haris,
1. set wbktarget=workbooks.open("DATA (J:)\\BelajarVBA\COBA2",2)
>> set wbktarget=workbooks.open("J:\BelajarVBA\COBA2.xlsx",2)
>> nama drive ditulis seperti J:\ diikuti folder dan seterusnya
>> nama file disertai ekstensi filenya yang dapat dilihat saat membuka file
tersebut di Excel atau di Windows Explorer.
>> nilai 2 pada ,2 berarti tidak melakukan update link
3. setelah bisa membuka workbook, maka pelajari cara menyusun item pilihan
dalam combobox mulai dari
sini<http://b-excel.blogspot.com/2014/02/belajarvba-102-combobox-01.html>
.
Wassalam,
Kid.
2014-02-27 8:37 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:
>
>
> Dear Mr. Kid.
>
> Terimaksih atas arahanya.
>
> Untuk nomor 1.
> Saya sudah coba seperti ini pada point membuka workbook;
> set wbktarget=workbooks.open("DATA (J:)\\BelajarVBA\COBA2",2)
>
> Tapi saat dijalankan muncul debug yang mengarah pada script tersebut,
> Mungkin kesalahan pada penulisan script alamat file, karena memang saya
> belum tau bagaimana cara penulisannya.
>
> File yang saya maksud ada di partisi/drive "D" pada folder "BelajarVBA".
> Berada satu folder dengan file kerjanya (userform).
>
> Dalam penulisan alamat file target terdpat angka "2" sebelum tanda kurung
> penutup, apa arti angka tersebut Mr. Kid.
>
> Untuk nomor 3.
> Yang saya maksud adalah saya ingin membuka/menampilkan sebuah sheet dari
> suatu file dengan cara klik pada sebuah commond button.
> Misalnya sheet tersebut berada di partisi/drive "D" pada folder
> "BelajarVBA" nama file "Coba3" sheet "Database";. Bagaimana coding yang
> harus saya tuliskan pada commond button yang saya maksud.
>
> Mohon maaf klo saya kurang bisa cepat faham, tapi saya pengen bisa.
> Insya Allah saya akan share aplikasi vba yang sedang saya buat, dengan
> harapan minimal bisa buat referensi bagi para pemula seperti saya.
>
> Terimakasih.
>
> Haris.
>
>
> Pada Sabtu, 22 Februari 2014 15:44, Mr. Kid <mr.nmkid@gmail.com>
> menulis:
>
> Wa'alaikumussalam Wr. Wb.
>
> Hai Haris,
>
> 1. Bagaimana caranya (teknis & coding) bila sheet DATABASE berada di file
> yang berbeda.
> >> sebelum proses save, lakukan kegiatan membuka file target
> dim wbkApp as workbook, wbkTarget as workbook
> set wbkapp=thisworkbook
> set wbktarget=workbooks.open( "alamat lengkap si file target",2)
> wbkapp.activate
>
> >> proses penulisan ke sebuah cell target ditambahkan dengan object
> workbook target dan sheet targetnya
> wbktarget.sheets("nama sheet target").range("alamat range target").value =
> txtIsian1.text 'misalnya
> 'dst
>
> >> selesai tulis, lakukan penyimpanan file target dan tutup sekalian
> application.displayalerts=false
> wbktarget.close true
> application.displayalerts=true
>
> 2. Kalau data dari "Combobox"; berada di file yang berbeda bagaimana
> penulisan coding untuk memanggilnya.
> >> Hal ini dilakukan saat akan membuka userform
> >> cara 1, salin datanya dari file sumber ke file kerja lalu gunakan dalam
> userform. Cara ini dimungkinkan untuk bisa menggunakan properti rowsource
> (properti listfillrange jika activex object ada dalam worksheet)
> >> cara 2, buka file sumber lalu baca setiap item sumber sembari
> menambahkan ke combobox.
>
> Cara buka file sumber : (mirip nomor 2)
> dim wbkApp as workbook, wbkSumber as workbook
> set wbkapp=thisworkbook
> set wbksumber = workbooks.open( "alamat lengkap si file target",2)
> wbkapp.activate
>
> Cara copy item set sumber
> wbksumber.sheets("sumbernya").range("alamat range si items sumber").copy
> with wbkapp.sheets("lokasi di file kerja").range("alamat range si items di
> lokasi kerja")
> .clearcontents
> .resize(1,1).pastespecial xlpastevalues
> end with
>
> Kalau buka lalu add satu-satu :
> dim rng as range
> with cboDiUserform
> .listindex=-1
> .clear
> for each rng in wbksumber.sheets("sumbernya").range("alamat range si
> items sumber").resize(,1).offset(1) 'offset 1 kalau ada headernya
> if len(rng,value)<>0 then
> .add rng.value
> endif
> next rng
> end with
>
> 3. Kalo pada UserForm saya tambahkan CommandButton untuk meng-edit sheet
> yang berisi data dari isi Combobox yang saya maksud di atas bagaimana
> coding yang harus saya buat.
> >> masih belum paham maksudnya
>
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2014-02-22 14:38 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:
>
>
> Assalamu'alaikum.
>
> Salam BeXceler.
>
> Dear master excel.
> Mohon arahnnya lagi nih...
> Bagaimana caranya jika kita ingin data hasil input pada UserForm disimpan
> pada file excel yang berbeda dari file tempat Userform berada.
>
> Untuk memperjelas apa yang saya maksud berikut saya lampirkan file-nya.
>
> wassalam.
> Haris.
>
>
>
>
>
>
1. set wbktarget=workbooks
>> set wbktarget=workbooks
>> nama drive ditulis seperti J:\ diikuti folder dan seterusnya
>> nama file disertai ekstensi filenya yang dapat dilihat saat membuka file
tersebut di Excel atau di Windows Explorer.
>> nilai 2 pada ,2 berarti tidak melakukan update link
3. setelah bisa membuka workbook, maka pelajari cara menyusun item pilihan
dalam combobox mulai dari
sini<http://b-excel.
.
Wassalam,
Kid.
2014-02-27 8:37 GMT+07:00 Haris Rifai <haris.rifai@
>
>
> Dear Mr. Kid.
>
> Terimaksih atas arahanya.
>
> Untuk nomor 1.
> Saya sudah coba seperti ini pada point membuka workbook;
> set wbktarget=workbooks
>
> Tapi saat dijalankan muncul debug yang mengarah pada script tersebut,
> Mungkin kesalahan pada penulisan script alamat file, karena memang saya
> belum tau bagaimana cara penulisannya.
>
> File yang saya maksud ada di partisi/drive "D" pada folder "BelajarVBA&qu
> Berada satu folder dengan file kerjanya (userform).
>
> Dalam penulisan alamat file target terdpat angka "2" sebelum tanda kurung
> penutup, apa arti angka tersebut Mr. Kid.
>
> Untuk nomor 3.
> Yang saya maksud adalah saya ingin membuka/menampilkan sebuah sheet dari
> suatu file dengan cara klik pada sebuah commond button.
> Misalnya sheet tersebut berada di partisi/drive "D" pada folder
> "BelajarVBA&qu
> harus saya tuliskan pada commond button yang saya maksud.
>
> Mohon maaf klo saya kurang bisa cepat faham, tapi saya pengen bisa.
> Insya Allah saya akan share aplikasi vba yang sedang saya buat, dengan
> harapan minimal bisa buat referensi bagi para pemula seperti saya.
>
> Terimakasih.
>
> Haris.
>
>
> Pada Sabtu, 22 Februari 2014 15:44, Mr. Kid <mr.nmkid@gmail.
> menulis:
>
> Wa'alaikumussal
>
> Hai Haris,
>
> 1. Bagaimana caranya (teknis & coding) bila sheet DATABASE berada di file
> yang berbeda.
> >> sebelum proses save, lakukan kegiatan membuka file target
> dim wbkApp as workbook, wbkTarget as workbook
> set wbkapp=thisworkbook
> set wbktarget=workbooks
> wbkapp.activate
>
> >> proses penulisan ke sebuah cell target ditambahkan dengan object
> workbook target dan sheet targetnya
> wbktarget.sheets(
> txtIsian1.text 'misalnya
> 'dst
>
> >> selesai tulis, lakukan penyimpanan file target dan tutup sekalian
> application.
> wbktarget.close true
> application.
>
> 2. Kalau data dari "Combobox"
> penulisan coding untuk memanggilnya.
> >> Hal ini dilakukan saat akan membuka userform
> >> cara 1, salin datanya dari file sumber ke file kerja lalu gunakan dalam
> userform. Cara ini dimungkinkan untuk bisa menggunakan properti rowsource
> (properti listfillrange jika activex object ada dalam worksheet)
> >> cara 2, buka file sumber lalu baca setiap item sumber sembari
> menambahkan ke combobox.
>
> Cara buka file sumber : (mirip nomor 2)
> dim wbkApp as workbook, wbkSumber as workbook
> set wbkapp=thisworkbook
> set wbksumber = workbooks.open( "alamat lengkap si file target"
> wbkapp.activate
>
> Cara copy item set sumber
> wbksumber.sheets(
> with wbkapp.sheets(
> lokasi kerja")
> .clearcontents
> .resize(1,1)
> end with
>
> Kalau buka lalu add satu-satu :
> dim rng as range
> with cboDiUserform
> .listindex=-
> .clear
> for each rng in wbksumber.sheets(
> items sumber"
> if len(rng,value)
> .add rng.value
> endif
> next rng
> end with
>
> 3. Kalo pada UserForm saya tambahkan CommandButton untuk meng-edit sheet
> yang berisi data dari isi Combobox yang saya maksud di atas bagaimana
> coding yang harus saya buat.
> >> masih belum paham maksudnya
>
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2014-02-22 14:38 GMT+07:00 Haris Rifai <haris.rifai@
>
>
> Assalamu'
>
> Salam BeXceler.
>
> Dear master excel.
> Mohon arahnnya lagi nih...
> Bagaimana caranya jika kita ingin data hasil input pada UserForm disimpan
> pada file excel yang berbeda dari file tempat Userform berada.
>
> Untuk memperjelas apa yang saya maksud berikut saya lampirkan file-nya.
>
> wassalam.
> Haris.
>
>
>
>
>
>
Thu Feb 27, 2014 12:39 am (PST) . Posted by:
"Krisan Flower" krisan_flower@rocketmail.com
Salam, Mr Kid,
Sory ikut nimbrung saya sedang coba2 dari masalah yang disajikan Pak haris,
saya coba kenapa masih error Pak Kid. Bisa gak disertakan dengan contoh.
Terimaksih.
Krisan
Pada Kamis, 27 Februari 2014 15:55, Mr. Kid <mr.nmkid@gmail.com> menulis:
Hai Haris,
1. set wbktarget=workbooks.open("DATA (J:)\\BelajarVBA\COBA2",2)
>> set wbktarget=workbooks.open("J:\BelajarVBA\COBA2.xlsx",2)
>> nama drive ditulis seperti J:\ diikuti folder dan seterusnya
>> nama file disertai ekstensi filenya yang dapat dilihat saat membuka file tersebut di Excel atau di Windows Explorer.
>> nilai 2 pada ,2 berarti tidak melakukan update link
3. setelah bisa membuka workbook, maka pelajari cara menyusun item pilihan dalam combobox mulai dari sini.
Wassalam,
Kid.
2014-02-27 8:37 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:
>
>Dear Mr. Kid.
>
>
>Terimaksih atas arahanya.
>
>
>Untuk nomor 1.
>Saya sudah coba seperti ini pada point membuka workbook;
>set wbktarget=workbooks.open("DATA (J:)\\BelajarVBA\COBA2",2)
>
>
>Tapi saat dijalankan muncul debug yang mengarah pada script tersebut,
>Mungkin kesalahan pada penulisan script alamat file, karena memang saya belum tau bagaimana cara penulisannya.
>
>
>File yang saya maksud ada di partisi/drive "D" pada folder "BelajarVBA". Berada satu folder dengan file kerjanya (userform).
>
>
>Dalam penulisan alamat file target terdpat angka "2" sebelum tanda kurung penutup, apa arti angka tersebut Mr. Kid.
>
>
>Untuk nomor 3.
>Yang saya maksud adalah saya ingin membuka/menampilkan sebuah sheet dari suatu file dengan cara klik pada sebuah commond button.
>Misalnya sheet tersebut berada di partisi/drive "D" pada folder "BelajarVBA" nama file "Coba3" sheet "Database";. Bagaimana coding yang harus saya tuliskan pada commond button yang saya maksud.
>
>
>Mohon maaf klo saya kurang bisa cepat faham, tapi saya pengen bisa.
>Insya Allah saya akan share aplikasi vba yang sedang saya buat, dengan harapan minimal bisa buat referensi bagi para pemula seperti saya.
>
>
>Terimakasih.
>
>
>Haris.
>
>
>
>Pada Sabtu, 22 Februari 2014 15:44, Mr. Kid <mr.nmkid@gmail.com> menulis:
>
>
>Wa'alaikumussalam Wr. Wb.
>
>Hai Haris,
>
>1. Bagaimana caranya (teknis & coding) bila sheet DATABASE berada di file yang berbeda.
>>> sebelum proses save, lakukan kegiatan membuka file target
>dim wbkApp as workbook, wbkTarget as workbook
>set wbkapp=thisworkbook
>set wbktarget=workbooks.open( "alamat lengkap si file target",2)
>
>wbkapp.activate
>
>
>
>>> proses penulisan ke sebuah cell target ditambahkan dengan object workbook target dan sheet targetnya
>
>wbktarget.sheets("nama sheet target").range("alamat range target").value = txtIsian1.text 'misalnya
>
>'dst
>
>
>>> selesai tulis, lakukan penyimpanan file target dan tutup sekalian
>
>application.displayalerts=false
>
>wbktarget.close true
>
>application.displayalerts=true
>
>
>2. Kalau data dari "Combobox"; berada di file yang berbeda bagaimana penulisan coding untuk memanggilnya.
>
>>> Hal ini dilakukan saat akan membuka userform
>
>>> cara 1, salin datanya dari file sumber ke file kerja lalu gunakan dalam userform. Cara ini dimungkinkan untuk bisa menggunakan properti rowsource (properti listfillrange jika activex object ada dalam worksheet)
>
>>> cara 2, buka file sumber lalu baca setiap item sumber sembari menambahkan ke combobox.
>
>
>Cara buka file sumber : (mirip nomor 2)
>
>dim wbkApp as workbook, wbkSumber as workbook
>
>set wbkapp=thisworkbook
>
>set wbksumber = workbooks.open( "alamat lengkap si file target",2)
>
>wbkapp.activate
>
>
>Cara copy item set sumber
>
>wbksumber.sheets("sumbernya").range("alamat range si items sumber").copy
>
>with wbkapp.sheets("lokasi di file kerja").range("alamat range si items di lokasi kerja")
> .clearcontents
> .resize(1,1).pastespecial xlpastevalues
>
>end with
>
>
>Kalau buka lalu add satu-satu :
>
>dim rng as range
>
>with cboDiUserform
>
> .listindex=-1
> .clear
>
> for each rng in wbksumber.sheets("sumbernya").range("alamat range si items sumber").resize(,1).offset(1) 'offset 1 kalau ada headernya
>
> if len(rng,value)<>0 then
>
> .add rng.value
>
> endif
>
> next rng
>end with
>
>
>3. Kalo pada UserForm saya tambahkan CommandButton untuk meng-edit sheet yang berisi data dari isi Combobox yang saya maksud di atas bagaimana coding yang harus saya buat.
>
>>> masih belum paham maksudnya
>
>
>
>
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>
>
>2014-02-22 14:38 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:
>
>
>>
>>Assalamu'alaikum.
>>
>>
>>Salam BeXceler.
>>
>>
>>Dear master excel.
>>Mohon arahnnya lagi nih...
>>Bagaimana caranya jika kita ingin data hasil input pada UserForm disimpan pada file excel yang berbeda dari file tempat Userform berada.
>>
>>
>>Untuk memperjelas apa yang saya maksud berikut saya lampirkan file-nya.
>>
>>
>>wassalam.
>>Haris.
>
>
>
Sory ikut nimbrung saya sedang coba2 dari masalah yang disajikan Pak haris,
saya coba kenapa masih error Pak Kid. Bisa gak disertakan dengan contoh.
Terimaksih.
Krisan
Pada Kamis, 27 Februari 2014 15:55, Mr. Kid <mr.nmkid@gmail.
Hai Haris,
1. set wbktarget=workbooks
>> set wbktarget=workbooks
>> nama drive ditulis seperti J:\ diikuti folder dan seterusnya
>> nama file disertai ekstensi filenya yang dapat dilihat saat membuka file tersebut di Excel atau di Windows Explorer.
>> nilai 2 pada ,2 berarti tidak melakukan update link
3. setelah bisa membuka workbook, maka pelajari cara menyusun item pilihan dalam combobox mulai dari sini.
Wassalam,
Kid.
2014-02-27 8:37 GMT+07:00 Haris Rifai <haris.rifai@
>
>Dear Mr. Kid.
>
>
>Terimaksih atas arahanya.
>
>
>Untuk nomor 1.
>Saya sudah coba seperti ini pada point membuka workbook;
>set wbktarget=workbooks
>
>
>Tapi saat dijalankan muncul debug yang mengarah pada script tersebut,
>Mungkin kesalahan pada penulisan script alamat file, karena memang saya belum tau bagaimana cara penulisannya.
>
>
>File yang saya maksud ada di partisi/drive "D" pada folder "BelajarVBA&qu
>
>
>Dalam penulisan alamat file target terdpat angka "2" sebelum tanda kurung penutup, apa arti angka tersebut Mr. Kid.
>
>
>Untuk nomor 3.
>Yang saya maksud adalah saya ingin membuka/menampilkan sebuah sheet dari suatu file dengan cara klik pada sebuah commond button.
>Misalnya sheet tersebut berada di partisi/drive "D" pada folder "BelajarVBA&qu
>
>
>Mohon maaf klo saya kurang bisa cepat faham, tapi saya pengen bisa.
>Insya Allah saya akan share aplikasi vba yang sedang saya buat, dengan harapan minimal bisa buat referensi bagi para pemula seperti saya.
>
>
>Terimakasih.
>
>
>Haris.
>
>
>
>Pada Sabtu, 22 Februari 2014 15:44, Mr. Kid <mr.nmkid@gmail.
>
>
>Wa'alaikumu
>
>Hai Haris,
>
>1. Bagaimana caranya (teknis & coding) bila sheet DATABASE berada di file yang berbeda.
>>> sebelum proses save, lakukan kegiatan membuka file target
>dim wbkApp as workbook, wbkTarget as workbook
>set wbkapp=thisworkbook
>set wbktarget=workbooks
>
>wbkapp.activate
>
>
>
>>> proses penulisan ke sebuah cell target ditambahkan dengan object workbook target dan sheet targetnya
>
>wbktarget.
>
>'dst
>
>
>>> selesai tulis, lakukan penyimpanan file target dan tutup sekalian
>
>application.
>
>wbktarget.
>
>application.
>
>
>2. Kalau data dari "Combobox"
>
>>> Hal ini dilakukan saat akan membuka userform
>
>>> cara 1, salin datanya dari file sumber ke file kerja lalu gunakan dalam userform. Cara ini dimungkinkan untuk bisa menggunakan properti rowsource (properti listfillrange jika activex object ada dalam worksheet)
>
>>> cara 2, buka file sumber lalu baca setiap item sumber sembari menambahkan ke combobox.
>
>
>Cara buka file sumber : (mirip nomor 2)
>
>dim wbkApp as workbook, wbkSumber as workbook
>
>set wbkapp=thisworkbook
>
>set wbksumber = workbooks.open( "alamat lengkap si file target"
>
>wbkapp.activate
>
>
>Cara copy item set sumber
>
>wbksumber.
>
>with wbkapp.sheets(
> .clearcontents
> .resize(1,1)
>
>end with
>
>
>Kalau buka lalu add satu-satu :
>
>dim rng as range
>
>with cboDiUserform
>
> .listindex=-
> .clear
>
> for each rng in wbksumber.sheets(
>
> if len(rng,value)
>
> .add rng.value
>
> endif
>
> next rng
>end with
>
>
>3. Kalo pada UserForm saya tambahkan CommandButton untuk meng-edit sheet yang berisi data dari isi Combobox yang saya maksud di atas bagaimana coding yang harus saya buat.
>
>>> masih belum paham maksudnya
>
>
>
>
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>
>
>2014-02-
>
>
>>
>>Assalamu&#
>>
>>
>>Salam BeXceler.
>>
>>
>>Dear master excel.
>>Mohon arahnnya lagi nih...
>>Bagaimana caranya jika kita ingin data hasil input pada UserForm disimpan pada file excel yang berbeda dari file tempat Userform berada.
>>
>>
>>Untuk memperjelas apa yang saya maksud berikut saya lampirkan file-nya.
>>
>>
>>wassalam.
>>Haris.
>
>
>
Thu Feb 27, 2014 12:45 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hehehe...
kira-kira bunyi script yang Anda gunakan seperti apa ?
Misal ada file bernama Contoh1.xlsx di drive D pada folder bernama Belajar
(pastikan ada file excel bernama contoh1.xlsx dulu ya)
Lalu buat file excel baru, dan bisa di-save misal dengan nama Filenya
dengan type Excel Macro Enabled workbook (.xlsm)
Kemudian dibuat sebuah prosedur sub bernama BukaFile pada sebuah general
module (code module)
Prosedur tersebut diisi dengan script :
dim wbkApp as workbook, wbkTarget as workbook
set wbkapp=thisworkbook
set wbktarget=workbooks.open( "d:\belajar\contoh1.xlsx",2)
wbkapp.activate
sehingga bunyi prosedur sub bernama BukaFile menjadi :
public sub BukaFile()
dim wbkApp as workbook, wbkTarget as workbook
set wbkapp=thisworkbook
set wbktarget=workbooks.open( "d:\belajar\contoh1.xlsx",2)
wbkapp.activate
end sub
Demikian contoh filenya.
Wassalam,
Kid.
2014-02-27 15:36 GMT+07:00 Krisan Flower <krisan_flower@rocketmail.com>:
>
>
> Salam, Mr Kid,
>
> Sory ikut nimbrung saya sedang coba2 dari masalah yang disajikan Pak haris,
> saya coba kenapa masih error Pak Kid. Bisa gak disertakan dengan contoh.
>
> Terimaksih.
>
> Krisan
>
>
>
> Pada Kamis, 27 Februari 2014 15:55, Mr. Kid <mr.nmkid@gmail.com>
> menulis:
>
> Hai Haris,
>
> 1. set wbktarget=workbooks.open("DATA (J:)\\BelajarVBA\COBA2",2)
> >> set wbktarget=workbooks.open("J:\BelajarVBA\COBA2.xlsx",2)
> >> nama drive ditulis seperti J:\ diikuti folder dan seterusnya
> >> nama file disertai ekstensi filenya yang dapat dilihat saat membuka
> file tersebut di Excel atau di Windows Explorer.
> >> nilai 2 pada ,2 berarti tidak melakukan update link
>
> 3. setelah bisa membuka workbook, maka pelajari cara menyusun item pilihan
> dalam combobox mulai dari sini<http://b-excel.blogspot.com/2014/02/belajarvba-102-combobox-01.html>
> .
>
> Wassalam,
> Kid.
>
>
>
> 2014-02-27 8:37 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:
>
>
> Dear Mr. Kid.
>
> Terimaksih atas arahanya.
>
> Untuk nomor 1.
> Saya sudah coba seperti ini pada point membuka workbook;
> set wbktarget=workbooks.open("DATA (J:)\\BelajarVBA\COBA2",2)
>
> Tapi saat dijalankan muncul debug yang mengarah pada script tersebut,
> Mungkin kesalahan pada penulisan script alamat file, karena memang saya
> belum tau bagaimana cara penulisannya.
>
> File yang saya maksud ada di partisi/drive "D" pada folder "BelajarVBA".
> Berada satu folder dengan file kerjanya (userform).
>
> Dalam penulisan alamat file target terdpat angka "2" sebelum tanda kurung
> penutup, apa arti angka tersebut Mr. Kid.
>
> Untuk nomor 3.
> Yang saya maksud adalah saya ingin membuka/menampilkan sebuah sheet dari
> suatu file dengan cara klik pada sebuah commond button.
> Misalnya sheet tersebut berada di partisi/drive "D" pada folder
> "BelajarVBA" nama file "Coba3" sheet "Database";. Bagaimana coding yang
> harus saya tuliskan pada commond button yang saya maksud.
>
> Mohon maaf klo saya kurang bisa cepat faham, tapi saya pengen bisa.
> Insya Allah saya akan share aplikasi vba yang sedang saya buat, dengan
> harapan minimal bisa buat referensi bagi para pemula seperti saya.
>
> Terimakasih.
>
> Haris.
>
>
> Pada Sabtu, 22 Februari 2014 15:44, Mr. Kid <mr.nmkid@gmail.com>
> menulis:
>
> Wa'alaikumussalam Wr. Wb.
>
> Hai Haris,
>
> 1. Bagaimana caranya (teknis & coding) bila sheet DATABASE berada di file
> yang berbeda.
> >> sebelum proses save, lakukan kegiatan membuka file target
> dim wbkApp as workbook, wbkTarget as workbook
> set wbkapp=thisworkbook
> set wbktarget=workbooks.open( "alamat lengkap si file target",2)
> wbkapp.activate
>
> >> proses penulisan ke sebuah cell target ditambahkan dengan object
> workbook target dan sheet targetnya
> wbktarget.sheets("nama sheet target").range("alamat range target").value =
> txtIsian1.text 'misalnya
> 'dst
>
> >> selesai tulis, lakukan penyimpanan file target dan tutup sekalian
> application.displayalerts=false
> wbktarget.close true
> application.displayalerts=true
>
> 2. Kalau data dari "Combobox"; berada di file yang berbeda bagaimana
> penulisan coding untuk memanggilnya.
> >> Hal ini dilakukan saat akan membuka userform
> >> cara 1, salin datanya dari file sumber ke file kerja lalu gunakan dalam
> userform. Cara ini dimungkinkan untuk bisa menggunakan properti rowsource
> (properti listfillrange jika activex object ada dalam worksheet)
> >> cara 2, buka file sumber lalu baca setiap item sumber sembari
> menambahkan ke combobox.
>
> Cara buka file sumber : (mirip nomor 2)
> dim wbkApp as workbook, wbkSumber as workbook
> set wbkapp=thisworkbook
> set wbksumber = workbooks.open( "alamat lengkap si file target",2)
> wbkapp.activate
>
> Cara copy item set sumber
> wbksumber.sheets("sumbernya").range("alamat range si items sumber").copy
> with wbkapp.sheets("lokasi di file kerja").range("alamat range si items di
> lokasi kerja")
> .clearcontents
> .resize(1,1).pastespecial xlpastevalues
> end with
>
> Kalau buka lalu add satu-satu :
> dim rng as range
> with cboDiUserform
> .listindex=-1
> .clear
> for each rng in wbksumber.sheets("sumbernya").range("alamat range si
> items sumber").resize(,1).offset(1) 'offset 1 kalau ada headernya
> if len(rng,value)<>0 then
> .add rng.value
> endif
> next rng
> end with
>
> 3. Kalo pada UserForm saya tambahkan CommandButton untuk meng-edit sheet
> yang berisi data dari isi Combobox yang saya maksud di atas bagaimana
> coding yang harus saya buat.
> >> masih belum paham maksudnya
>
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2014-02-22 14:38 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:
>
>
> Assalamu'alaikum.
>
> Salam BeXceler.
>
> Dear master excel.
> Mohon arahnnya lagi nih...
> Bagaimana caranya jika kita ingin data hasil input pada UserForm disimpan
> pada file excel yang berbeda dari file tempat Userform berada.
>
> Untuk memperjelas apa yang saya maksud berikut saya lampirkan file-nya.
>
> wassalam.
> Haris.
>
>
>
>
>
>
>
>
>
kira-kira bunyi script yang Anda gunakan seperti apa ?
Misal ada file bernama Contoh1.xlsx di drive D pada folder bernama Belajar
(pastikan ada file excel bernama contoh1.xlsx dulu ya)
Lalu buat file excel baru, dan bisa di-save misal dengan nama Filenya
dengan type Excel Macro Enabled workbook (.xlsm)
Kemudian dibuat sebuah prosedur sub bernama BukaFile pada sebuah general
module (code module)
Prosedur tersebut diisi dengan script :
dim wbkApp as workbook, wbkTarget as workbook
set wbkapp=thisworkbook
set wbktarget=workbooks
wbkapp.activate
sehingga bunyi prosedur sub bernama BukaFile menjadi :
public sub BukaFile()
dim wbkApp as workbook, wbkTarget as workbook
set wbkapp=thisworkbook
set wbktarget=workbooks
wbkapp.activate
end sub
Demikian contoh filenya.
Wassalam,
Kid.
2014-02-27 15:36 GMT+07:00 Krisan Flower <krisan_flower@
>
>
> Salam, Mr Kid,
>
> Sory ikut nimbrung saya sedang coba2 dari masalah yang disajikan Pak haris,
> saya coba kenapa masih error Pak Kid. Bisa gak disertakan dengan contoh.
>
> Terimaksih.
>
> Krisan
>
>
>
> Pada Kamis, 27 Februari 2014 15:55, Mr. Kid <mr.nmkid@gmail.
> menulis:
>
> Hai Haris,
>
> 1. set wbktarget=workbooks
> >> set wbktarget=workbooks
> >> nama drive ditulis seperti J:\ diikuti folder dan seterusnya
> >> nama file disertai ekstensi filenya yang dapat dilihat saat membuka
> file tersebut di Excel atau di Windows Explorer.
> >> nilai 2 pada ,2 berarti tidak melakukan update link
>
> 3. setelah bisa membuka workbook, maka pelajari cara menyusun item pilihan
> dalam combobox mulai dari sini<http://b-excel.
> .
>
> Wassalam,
> Kid.
>
>
>
> 2014-02-27 8:37 GMT+07:00 Haris Rifai <haris.rifai@
>
>
> Dear Mr. Kid.
>
> Terimaksih atas arahanya.
>
> Untuk nomor 1.
> Saya sudah coba seperti ini pada point membuka workbook;
> set wbktarget=workbooks
>
> Tapi saat dijalankan muncul debug yang mengarah pada script tersebut,
> Mungkin kesalahan pada penulisan script alamat file, karena memang saya
> belum tau bagaimana cara penulisannya.
>
> File yang saya maksud ada di partisi/drive "D" pada folder "BelajarVBA&qu
> Berada satu folder dengan file kerjanya (userform).
>
> Dalam penulisan alamat file target terdpat angka "2" sebelum tanda kurung
> penutup, apa arti angka tersebut Mr. Kid.
>
> Untuk nomor 3.
> Yang saya maksud adalah saya ingin membuka/menampilkan sebuah sheet dari
> suatu file dengan cara klik pada sebuah commond button.
> Misalnya sheet tersebut berada di partisi/drive "D" pada folder
> "BelajarVBA&qu
> harus saya tuliskan pada commond button yang saya maksud.
>
> Mohon maaf klo saya kurang bisa cepat faham, tapi saya pengen bisa.
> Insya Allah saya akan share aplikasi vba yang sedang saya buat, dengan
> harapan minimal bisa buat referensi bagi para pemula seperti saya.
>
> Terimakasih.
>
> Haris.
>
>
> Pada Sabtu, 22 Februari 2014 15:44, Mr. Kid <mr.nmkid@gmail.
> menulis:
>
> Wa'alaikumussal
>
> Hai Haris,
>
> 1. Bagaimana caranya (teknis & coding) bila sheet DATABASE berada di file
> yang berbeda.
> >> sebelum proses save, lakukan kegiatan membuka file target
> dim wbkApp as workbook, wbkTarget as workbook
> set wbkapp=thisworkbook
> set wbktarget=workbooks
> wbkapp.activate
>
> >> proses penulisan ke sebuah cell target ditambahkan dengan object
> workbook target dan sheet targetnya
> wbktarget.sheets(
> txtIsian1.text 'misalnya
> 'dst
>
> >> selesai tulis, lakukan penyimpanan file target dan tutup sekalian
> application.
> wbktarget.close true
> application.
>
> 2. Kalau data dari "Combobox"
> penulisan coding untuk memanggilnya.
> >> Hal ini dilakukan saat akan membuka userform
> >> cara 1, salin datanya dari file sumber ke file kerja lalu gunakan dalam
> userform. Cara ini dimungkinkan untuk bisa menggunakan properti rowsource
> (properti listfillrange jika activex object ada dalam worksheet)
> >> cara 2, buka file sumber lalu baca setiap item sumber sembari
> menambahkan ke combobox.
>
> Cara buka file sumber : (mirip nomor 2)
> dim wbkApp as workbook, wbkSumber as workbook
> set wbkapp=thisworkbook
> set wbksumber = workbooks.open( "alamat lengkap si file target"
> wbkapp.activate
>
> Cara copy item set sumber
> wbksumber.sheets(
> with wbkapp.sheets(
> lokasi kerja")
> .clearcontents
> .resize(1,1)
> end with
>
> Kalau buka lalu add satu-satu :
> dim rng as range
> with cboDiUserform
> .listindex=-
> .clear
> for each rng in wbksumber.sheets(
> items sumber"
> if len(rng,value)
> .add rng.value
> endif
> next rng
> end with
>
> 3. Kalo pada UserForm saya tambahkan CommandButton untuk meng-edit sheet
> yang berisi data dari isi Combobox yang saya maksud di atas bagaimana
> coding yang harus saya buat.
> >> masih belum paham maksudnya
>
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2014-02-22 14:38 GMT+07:00 Haris Rifai <haris.rifai@
>
>
> Assalamu'
>
> Salam BeXceler.
>
> Dear master excel.
> Mohon arahnnya lagi nih...
> Bagaimana caranya jika kita ingin data hasil input pada UserForm disimpan
> pada file excel yang berbeda dari file tempat Userform berada.
>
> Untuk memperjelas apa yang saya maksud berikut saya lampirkan file-nya.
>
> wassalam.
> Haris.
>
>
>
>
>
>
>
>
>
Wed Feb 26, 2014 11:51 pm (PST) . Posted by:
"FIRMANSYAH" firmanpake_syah
dear mas Tjahya Hartono,
*Mengapa terjadi bug, karena*
*"Sheet5.Range("j3:j5,g10:M19,k20,h25:h26").ClearContents"*
*pada area yang ditunjuk terdapat marged cell (menggabungkan cell )*
*coba hapus dulu cell yg di marged tersebut, mudah2an bisa*
*Moga manfaat.*
*salam *
*firman*
Pada 26 Februari 2014 18.53, Tjahya Hartono <tjahyahartono@yahoo.co.id>menulis:
>
>
>
> Dear be-exceller,
>
> Para master di belajar excel, mohon petunjuknya dunk. Kenapa ya macro ini
> debug terus? Mohon diperbaiki file nya dan mohon maaf nih, sy minta ijin
> dulu karena ini dari file teman2 be-exceller lainnya yang sedikit saya
> modif.
> Terima kasih sebelumnya
>
> Wassalam
>
> Tjahya Hartono
>
>
>
>
*Mengapa terjadi bug, karena*
*"Sheet5.
*pada area yang ditunjuk terdapat marged cell (menggabungkan cell )*
*coba hapus dulu cell yg di marged tersebut, mudah2an bisa*
*Moga manfaat.*
*salam *
*firman*
Pada 26 Februari 2014 18.53, Tjahya Hartono <tjahyahartono@
>
>
>
> Dear be-exceller,
>
> Para master di belajar excel, mohon petunjuknya dunk. Kenapa ya macro ini
> debug terus? Mohon diperbaiki file nya dan mohon maaf nih, sy minta ijin
> dulu karena ini dari file teman2 be-exceller lainnya yang sedikit saya
> modif.
> Terima kasih sebelumnya
>
> Wassalam
>
> Tjahya Hartono
>
>
>
>
Thu Feb 27, 2014 12:31 am (PST) . Posted by:
"Juwono Radyanto Edi" juwono.re2002
Dear all,
Mohon bantuannya untuk menghitung incentive bagi karyawan sesuai gaji masing-masing yang dibayarkan setiap bulan sesuai dengan buan masuknya dengan syarat memenuhi masa kerja sesuai di syarat dan ketentuan dan status nya
Terlampir file nya
Jika ada trit terdahulu yang sama/mirip mungkin bisa saya pelajari
Terima kasih
Juwono RE
Mohon bantuannya untuk menghitung incentive bagi karyawan sesuai gaji masing-masing yang dibayarkan setiap bulan sesuai dengan buan masuknya dengan syarat memenuhi masa kerja sesuai di syarat dan ketentuan dan status nya
Terlampir file nya
Jika ada trit terdahulu yang sama/mirip mungkin bisa saya pelajari
Terima kasih
Juwono RE
Thu Feb 27, 2014 12:40 am (PST) . Posted by:
"Bagus" bagus4bls
Pak Juwono;
Coba begini:
=IF(OR(AND(D3="Permanen",G3>=1,MONTH(E3)=MONTH($E$1)),AND(D3="Kontrak",G3>=2,MONTH(E3)=MONTH($E$1))),H3,0)
Copas kebawah
Wassalam
~ Bagus ~
----- Original Message -----
From: Juwono Radyanto Edi
To: belajar-excel@yahoogroups.com
Sent: Thursday, February 27, 2014 3:29 PM
Subject: [belajar-excel] Hitung Incentive banyak syarat [1 Attachment]
Dear all,
Mohon bantuannya untuk menghitung incentive bagi karyawan sesuai gaji masing-masing yang dibayarkan setiap bulan sesuai dengan buan masuknya dengan syarat memenuhi masa kerja sesuai di syarat dan ketentuan dan status nya
Terlampir file nya
Jika ada trit terdahulu yang sama/mirip mungkin bisa saya pelajari
Terima kasih
Juwono RE
Coba begini:
=IF(OR(AND(D3=
Copas kebawah
Wassalam
~ Bagus ~
----- Original Message -----
From: Juwono Radyanto Edi
To: belajar-excel@
Sent: Thursday, February 27, 2014 3:29 PM
Subject: [belajar-excel] Hitung Incentive banyak syarat [1 Attachment]
Dear all,
Mohon bantuannya untuk menghitung incentive bagi karyawan sesuai gaji masing-masing yang dibayarkan setiap bulan sesuai dengan buan masuknya dengan syarat memenuhi masa kerja sesuai di syarat dan ketentuan dan status nya
Terlampir file nya
Jika ada trit terdahulu yang sama/mirip mungkin bisa saya pelajari
Terima kasih
Juwono RE
Thu Feb 27, 2014 1:37 am (PST) . Posted by:
"Juwono Radyanto Edi" juwono.re2002
OK, akan saya coba dulu, dari tadi error, sepertinya tanda kurungnya nggak pas. Kalau ini yakin deh saya...
Makaksih mas Bagus
Pada Kamis, 27 Februari 2014 16:41, Bagus <bagus@kingjim.co.id> menulis:
Pak Juwono;
Coba begini:
=IF(OR(AND(D3="Permanen",G3>=1,MONTH(E3)=MONTH($E$1)),AND(D3="Kontrak",G3>=2,MONTH(E3)=MONTH($E$1))),H3,0)
Copas kebawah
Wassalam
~
Bagus ~
----- Original Message -----
>From: Juwono Radyanto Edi
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, February 27, 2014 3:29 PM
>Subject: [belajar-excel] Hitung Incentive banyak syarat [1 Attachment]
>
>
>Dear all,
>Mohon bantuannya untuk menghitung incentive bagi karyawan sesuai gaji masing-masing yang dibayarkan setiap bulan sesuai dengan buan masuknya dengan syarat memenuhi masa kerja sesuai di syarat dan ketentuan dan status nya
>Terlampir file nya
>Jika ada trit terdahulu yang sama/mirip mungkin bisa saya pelajari
>
>
>
>Terima kasih
>
>
>Juwono RE
Makaksih mas Bagus
Pada Kamis, 27 Februari 2014 16:41, Bagus <bagus@kingjim.
Pak Juwono;
Coba begini:
=IF(OR(AND(D3=
Copas kebawah
Wassalam
~
Bagus ~
----- Original Message -----
>From: Juwono Radyanto Edi
>To: belajar-excel@
>Sent: Thursday, February 27, 2014 3:29 PM
>Subject: [belajar-excel] Hitung Incentive banyak syarat [1 Attachment]
>
>
>Dear all,
>Mohon bantuannya untuk menghitung incentive bagi karyawan sesuai gaji masing-masing yang dibayarkan setiap bulan sesuai dengan buan masuknya dengan syarat memenuhi masa kerja sesuai di syarat dan ketentuan dan status nya
>Terlampir file nya
>Jika ada trit terdahulu yang sama/mirip mungkin bisa saya pelajari
>
>
>
>Terima kasih
>
>
>Juwono RE
Thu Feb 27, 2014 1:20 am (PST) . Posted by:
"Tuti Hartati"
Dear para master,
Mohon bantuannya data terlampir ketika saya edit rumus dikarenakan hanya
menambahkan kolom tetapi kenapa hasilnya tidak muncul ya dan menjadi #NUM#,
sebelumnya saya ucapkan terimakasih.
Tuti Hartati
Thu Feb 27, 2014 1:29 am (PST) . Posted by:
"Bagus" bagus4bls
Setelah edit rumus..
tekanlah tombol Ctr+Shift+Enter
Wassalam
~ Bagus ~
----- Original Message -----
From: Tuti Hartati
To: belajar-excel@yahoogroups.com
Sent: Thursday, February 27, 2014 4:12 PM
Subject: [belajar-excel] Emailing: Analisasinyal.xlsx [1 Attachment]
Dear para master,
Mohon bantuannya data terlampir ketika saya edit rumus dikarenakan hanya
menambahkan kolom tetapi kenapa hasilnya tidak muncul ya dan menjadi #NUM#,
sebelumnya saya ucapkan terimakasih.
Tuti Hartati
tekanlah tombol Ctr+Shift+Enter
Wassalam
~ Bagus ~
----- Original Message -----
From: Tuti Hartati
To: belajar-excel@
Sent: Thursday, February 27, 2014 4:12 PM
Subject: [belajar-excel] Emailing: Analisasinyal.
Dear para master,
Mohon bantuannya data terlampir ketika saya edit rumus dikarenakan hanya
menambahkan kolom tetapi kenapa hasilnya tidak muncul ya dan menjadi #NUM#,
sebelumnya saya ucapkan terimakasih.
Tuti Hartati
Thu Feb 27, 2014 3:20 am (PST) . Posted by:
"Tuti Hartati"
Masih belum bisa ya mas bagus.
Tuti Hartati
PT. Fukusuke Kogyo Indonesia
Phone : 62 (21) 898 0444
Fax : 62 (21) 898 0311
Email : tuti-hartati@fukusuke-kogyo.co.id
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Bagus
Sent: Thursday, February 27, 2014 4:48 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Emailing: Analisasinyal.xlsx
Setelah edit rumus..
tekanlah tombol Ctr+Shift+Enter
Wassalam
~ Bagus ~
----- Original Message -----
From: Tuti Hartati <mailto:tuti-hartati@fukusuke-kogyo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Thursday, February 27, 2014 4:12 PM
Subject: [belajar-excel] Emailing: Analisasinyal.xlsx [1 Attachment]
Dear para master,
Mohon bantuannya data terlampir ketika saya edit rumus dikarenakan hanya
menambahkan kolom tetapi kenapa hasilnya tidak muncul ya dan menjadi #NUM#,
sebelumnya saya ucapkan terimakasih.
Tuti Hartati
Tuti Hartati
PT. Fukusuke Kogyo Indonesia
Phone : 62 (21) 898 0444
Fax : 62 (21) 898 0311
Email : tuti-hartati@
From: belajar-excel@
On Behalf Of Bagus
Sent: Thursday, February 27, 2014 4:48 PM
To: belajar-excel@
Subject: Re: [belajar-excel] Emailing: Analisasinyal.
Setelah edit rumus..
tekanlah tombol Ctr+Shift+Enter
Wassalam
~ Bagus ~
----- Original Message -----
From: Tuti Hartati <mailto:tuti-hartati@
To: belajar-excel@
Sent: Thursday, February 27, 2014 4:12 PM
Subject: [belajar-excel] Emailing: Analisasinyal.
Dear para master,
Mohon bantuannya data terlampir ketika saya edit rumus dikarenakan hanya
menambahkan kolom tetapi kenapa hasilnya tidak muncul ya dan menjadi #NUM#,
sebelumnya saya ucapkan terimakasih.
Tuti Hartati
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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