Pinjam script-nya ya miss...
mo nambahin dikit... sapa tahu ada gunanya...
Dugaan :
1. bisa jadi nanti akan menjadikan userform sebagai alat edit juga.
>> baris deklarasi variabel range diubah agar ber-scope module dengan
memindahkan dan mengubah scope baris berbunyi :
Dim rgFind As Range 'yang ada dalam prosedur sub event change si textbox
menjadi :
private rgFind As Range 'di blok deklarasi (baris paling atas dalam
module tersebut setelah teks Option Explicit [jika ada])
2. nilai data yang dicari pasti lebih dari 3 karakter (ada penulisan teks 0
di karakter pertama)
>> diberi kondisi terhadap jumlah karakter inputan yang diletakkan sebelum
baris berbunyi :
Set rgFind = Range("b:b").Find(sKey, lookat:=xlWhole)
dengan bunyi script kondisinya adalah :
if len(skey)<4 then
exit sub
endif
Wassalam,
Kid.
2014-01-29 Jan Raisin <[email protected]>
>
>
> Hai Haris,
>
> pada textbox 1 dikasih event change, lalu diberi script seperti ini:
>
> Dim sKey As String
> Dim rgFind As Range
>
> sKey = TextBox1.Text ' simpan nilai textbox 1 ke dalam
> variabel
> TextBox2.Text = vbNullString ' hapus isi textbox 2
> TextBox3.Text = vbNullString ' hapus isi textbox 3
> Set rgFind = Range("b:b").Find(sKey, lookat:=xlWhole) ' cari isi
> textbox 1 di kolom B, isinya harus sama persis
> If Not rgFind Is Nothing Then ' jika data
> ditemukan
> TextBox2.Text = rgFind.Offset(, 1).Value ' isi
> textbox 2 dengan nilai 1 kolom di sebelah kanan data
> TextBox3.Text = rgFind.Offset(, 2).Value ' isi
> textbox 3 dengan nilai 2 kolom si sebelah kanan data
> End If
>
>
> Wassalam.
>
> -Miss Jan Raisin-
>
>
> Pada 29 Januari 2014 14.47, <[email protected]> menulis:
>
>>
>>
>> Salam BeExceler.
>>
>>
>> Mohon arahanya ne agan-agan.
>> Saya punya 3 textbox, saya pengin Textbox2 & Textbox3 terisi secara
>> otomatis setelah Textbox1 selesai diinput secara manual. Isi Textbox2 &
>> Textbox3 sesuai dengan data dalam Database mengikuti keypoint yang diinput
>> dalam Textbox1.
>>
>> Untuk lebih jelasnya saya lampirkan file-nya.
>>
>>
>> Haris
>>
>>
>>
>
