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