Dear Eko,
Ganti prosedur berikut :
Private Sub cmdfind_Click()
Dim X As Integer
With Sheets("KATALOG")
For X = 1 To .Range("A3").CurrentRegion.Rows.Count + 2
If InStr(.Cells(X, 7).Value, tnama.Text) > 0 Then
ListBox1.AddItem .Cells(X, 5).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(X, 7).Value
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(X, 13).Value
ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(X, 14).Value
End If
Next
End With
End Sub
<ymsgr:sendIM?heru.safrudin> Heru SafrudinBISI,Heru Safrudin,YM online
From: Septian Eko Saputro [email protected] [belajar-excel]
[mailto:[email protected]]
Sent: 23 Juni 2016 11:07
To: [email protected]
Subject: [belajar-excel] List Box Hasil Input Data [1 Attachment]
Dear Master Excel
saya mengalami kesulitan dalam menampilkan hasil data inputan yang telah
diinputkan sebelumnya melalui form kedalam bentuk list box dan kata kunci
pencarian berdasarkan nama penyewa. (jadi misalkan kita masukkan kata kunci
ahmad maka akan muncul beberapa nama ahmad yang mendekati seperti Ahmad, ahmad
subarja, ahmad soni, dll). mohon bantuan kode vba terkait hal tersebut terima
kasih. (terlampir)
Best Regards,
"---SE---"
