Hai Rafly,
Misal diberi nama cboCari
Langkahnya :
1. buat combobox dan beri nama dengan cboCari
2. diuserform initialize diberi kode berikut :
'membuat nama range data isian (diberi nama _myData_ dan dimasukkan ke
combobox bernama cbocari)
dim rngData as range
set rngData = sheets("database").range("a8")
set rngData = range( rngdata , rngdata.end(xltoright).end(xldown) )
rngdata.name = "_myData_"
cboCari.rowsource="_myData_"
3. buat event click milik si tombol cari dan isi dengan script :
if cbocari.listindex<>-1 then
'tulis disini script untuk menulis data ke setiap field dalam userform
'misal akan mengambil kolom pertama dari database dan dimasukkan ke
textbox bernama tnama
tnama.text = cbocari.list( cbocari.listindex , 0 ) '0 adalah
kolom pertama dari combobox yang diisi dengan range _myData_
'dst sesuka Anda
endif
4. buat event change milik si combobox cbocari agar melakukan penghapusan
semua field userform ketika berubah isi
if cbocari.listindex=-1 then
'disini baris kode untuk membersihkan userform
'misal untuk membersihkan textbox bernama tnama
tnama.text=vbnullstring
'dst sesuka Anda
endif
5. dibagian event click tombol save (yang sudah ada isi script Anda), ubah
bagian :
'menemukan baris kosong pada database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
menjadi :
if cbocari.listindex<>-1 then
irow=8 + cbocari.listindex '8 adalah nomor baris excel record
pertama data
else
'menemukan baris kosong pada database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
endif
Selamat mencoba.
Wassalam,
Kid.
2013/10/7 Rafly Andi Nusu <[email protected]>
> **
>
>
> *** by Mods ***
>
> mbok yao ada isi emailnya disini. sepertinya penjelasan lebih detil
> tentang si kasus bisa diurai singkat disini
>
> Dear BeExceller,
>
> File yang dilampirkan penanya berisi VBA. Rekomendasinya, dibuka dalam
> keadaan selalu ditanya akan di-Enable atau tidak agar bisa dilihat isi
> VBA-nya.
>
> Kasusnya adalah menampilkan data yang ada yang sesuai kriteria pencarian
> ketika tombol Cari ditekan.
> Data bisa diubah lalu di-save. Form bisa digunakan untuk menambah record
> baru.
>
> *** by Mods ***
>
>
>
>
