Ya Pak HK, dengan asumsi, hasil penggabungan 2 buah kriteria di sheet
formulir sama dengan format nilai data di kolom A sheet database.
Kalau ndak salah, enumeration untuk parameter lookin adalah xlValues deh...
coba dicek ulang.
Wassalam,
Kid.
2014-06-07 14:18 GMT+07:00 Hendrik Karnadi hendrikkarn...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> 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' mr.nm...@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com> 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 agungdotco...@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> 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-
>>
>>
>
>
