Mau nanya sedikit Mr.Kid,
saya blm coba, cuma melihat penjelasan Mr. Kid bahwa yang dicari adalah data
yang sesuai dengan Range I7 sheet Formulir yang ada pada kolom A sheet
Database bukankah codenya menjadi seperti ini:
Set RgFind =Sheets("Database").Range("A4").CurrentRegion.Resize(,
1).Find(Range("I7"),LookIn:=xlValue)
Terima kasih.
Salam,
HK
Sent from Samsung Mobile"'Mr. Kid' [email protected] [belajar-excel]"
<[email protected]> wrote:Pak Agunk,
Bagian find diubah untuk mencari di kolom A database. Nilai yang di-search pada
Find adalah nilai cell i7 (hasil penggabungan). Parameter Lookin di set dengan
xlValues agar mencari di values-nya cell.
Set RgFind = Sheets("Database").Range("A4").CurrentRegion.Offset(0, 1).Resize(,
1).Find(Range("A:A"), LookIn:=xlValue)
Begitu dapat recordnya, cell F3 di formulir diisi dengan nilai dari kolom B nya
si baris hasil Find.
Jadi formula di cell F3-nya dibuang saja...
Artinya, RgFind sudah berisi sebuah cell di kolom A di sheet data yang sesuai
isian user di sheet formulir. Dari RgFind ini bisa didapatkan nomor baris Excel
yang berisi seluruh data yang harus di-copy ke sheet formulir.
Kalau data di sheet database yang akan diambil mulai kolom D sampai Z, berarti
berdasar RgFind hasil pencarian itu tadi, maka diambil pada dari kolom D
barisnya RgFind sampai kolom Z barisnya RgFind.
If Not RgFind Is Nothing Then
Sheets("Database").range("A" & rgfind.row & ":Z" & rngfind.row).copy
Range("F7").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats,
Transpose:=True
range("f3").value=sheets("database").range("B" & rgfind.row).value
application.cutcopymode=false
endif
*** Jangan lupa untuk sesuaikan bagian lain yang dipengaruhi oleh script yang
digantikan oleh script-script diatas.
Wassalam,
Kid.
2014-06-07 7:52 GMT+07:00 [email protected] [belajar-excel]
<[email protected]>:
Mr.Kid atau Be-Exceller yg lain gimna ya, saya masih penasaran nih, , belum ada
solusinya, , ,Untuk Solusinya Mr.Kid Saya masih belum begitu paham. .
.Barangkali Mr.Kid atau BeExceller yg lain ada yg mau memberi solusi atau
penjelasan ttg kasus ini.
Thanks,B'Regards
-Agunk-
