Dear Bang Heru
Sudah saya aplikasikan kode VBA tersebut dan work, terima kasih atas bantuannya Bang Best Regards, *"---SE---"* 2016-06-24 11:35 GMT+07:00 'Heru Safrudin' [email protected] [belajar-excel] < [email protected]>: > > > 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 > > > > > > [image: Heru Safrudin][image: BISI,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---"* > > > > >
