Listboxu Textbox ile süzme

[SELIMT]

Değerli Forum Üyeleri;

Textbox3'e girdiğim değere göre listboxu filtreleme yapmak istiyorum. Bu kod hakkında değerli yardımlarınıza ihtiyacım var.

Saygılarımla;


Private Sub CommandButton5_Click()
ListBox1.RowSource = Empty
ListBox1.Clear
ListBox1.ColumnCount = 28
For Each isim In Range("O6:O" & Range("C5000").End(xlUp).Row)
If UCase(LCase(isim)) Like UCase(LCase(TextBox3)) & "*" Then
liste = ListBox1.ListCount
ListBox1.ColumnCount = 28
ListBox1.ColumnWidths = "30,60,60,60,35,70,100,80,35,35,70,100,120,100,100,55,60,100,35,35,80,80,80,50,100,130,100,100"
ListBox1.RowSource = "ÇALIŞMA!B6:AC" & Sheets("ÇALIŞMA").Cells(Rows.Count, "B").End(3).Row
ListBox1.ColumnHeads = 1
End If
Next
End Sub

 

[ExcelF1]

Textbox3 'e göre sayfa üzerinde filtreleme yapıp, veriyi ondan sonra listbox'a aldırsanız ?

 

[SELIMT]

Amaç listbox üzerinde filtrelemeler yapma. Eğer mümkünse.