Need help : fill listbox with search result

[skan19]

Hi all,:hi:

I am looking for some help with VBA, i have textbox and listbox
i want to populate a listbox in a userform based with search result with find function

[mana]

Option Explicit


Private Sub CommandButton1_Click()
Dim r As Range
Dim c As Range
Dim f As String

Set r = Worksheets("Sheet1").UsedRange

With ListBox1
.Clear
.ColumnCount = 2
.ColumnWidths = "30;300"

Set c = r.Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
f = c.Address
Do
.AddItem c.Address(0, 0)
.List(.ListCount - 1, 1) = c.Value

Set c = r.FindNext(c)
Loop Until c.Address = f
End If
End With


End Sub

[skan19]

Thank you so much : pray2: mana , after adaptation it work
but on the first listbox column it give me a cell address of search result
i have a table with ID , Name and birthday date,
i want it to display all this criteria on the same line