Aranacak kelimeleri listbox da görmek

[sinnernekolens]

iyi akşamlar, aşağıdaki kod ile arama yapıyorum. ancak söyle bir isteğim olacak buton ile arama kutusunu açtığımda aranacak listeyi listboxda görmek istiyorum. textbox lada istediğimi yazıp bulacam. bu kod sadece aradığını buyor listeyi göstermiyor.

Private Sub TextBox1_Change()
Dim i As Long
On Error Resume Next
Me.TextBox1.Text = StrConv(Me.TextBox1.Text, vbProperCase)
Me.ListBox1.Clear
For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
For x = 1 To 4
a = Len(Me.TextBox1.Text)
If Left(Sheet1.Cells(i, x).Value, a) = Me.TextBox1.Text And Me.TextBox1.Text <> "" Then
Me.ListBox1.AddItem Sheet1.Cells(i, 1).Value
For c = 1 To 4
Me.ListBox1.List(ListBox1.ListCount - 1, c) = Sheet1.Cells(i, c + 1).Value
Next c
End If
Next x
Next i
End Sub

 

[Ömer BARAN]

Merhaba.

-- Aşağıdaki kod satırlarının tümünü, TextBox1_Change kod blokundaki Dim satırının hemen altına,
-- Mavi satırı da UserForm_Initialize kod blokunda End Sub satırının hemen üstüne,
ekleyin.
.

If Me.TextBox1 = "" Then
    [COLOR="Blue"]ListBox1.RowSource = "Sheet1!A2:A" & Sheets("Sheet1").Cells(Rows.Count, 1).End(3).Row[/COLOR]
Else
    Me.ListBox1.RowSource = ""
End If

 

[sinnernekolens]

Ömer bey çok teşekkür ederim allah razı olsun. emeğinize sağlık.