Dear Mas Misbahul Anwar, Boleh dicoba coding berikut ini : --------------------------------------------------
Private Sub CmbNo_Change()
Application.ScreenUpdating = False
Dim r As Integer
Dim dKey As Range
Dim dTbl As Range
Set dKey = Sheets("Db").Range("B5")
Set dKey = Range(dKey, dKey.End(xlDown))
dKey.Name = "dKey"
Set dTbl = Range(dKey, dKey.End(xlToRight))
dTbl.Name = "dTabel"
r = CmbNo.ListIndex + 1
TxNama = dTbl(r, 3)
End Sub
--------------------------------------------------
AA
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On
Behalf Of Misbahul Anwar
Sent: 25 Juni 2013 11:12
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] List Nama
Mohon Bantuan...!
Kepada para master mohon bantuan pemecahan...
Kode VBA untuk txNama bagaimana, Supaya muncul sesuai nomor urut
data input masuk ke sheet Alamat, seperti pada gambar dan file yg saya
lampirkan.
Terima kasih.
<<inline: image001.jpg>>
<<inline: image002.jpg>>
