YUSLIHAN FAIJAR

--------------------------------------------------------------------------------------
Private Sub TextBox4_Change()
ListBox1.Clear

    With Sheets("database").Range("B1:B100")
    Set c = .Find(TextBox4.Value, LookAt:=xlPart, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            Set c = .FindNext(c)
            
            ListBox1.AddItem c
                                    
         Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub
--------------------------------------------------------------------------------------


Adapun untuk mengambil salah satu data hasil dari pencarian pada Listbox1 dan ditampilkan di textbox4 maka buat perintah seperti dibawah ini.

--------------------------------------------------
Private Sub ListBox1_Click()

         TextBox4.Value = namax

End Sub
--------------------------------------------------