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-
>
>
>
