Texbox ile listviewde personel bul

Daha önce böyle bir kodum vardı uyarlamaya çalıştım hata veriyor yardımlarınızı bekliyorum.
Private Sub TextBoxBUL_Change()
'Arama için
Set s1 = ThisWorkbook.Sheets("GENEL BİLGİLER")
s1son = s1.Cells(Rows.Count, 1).End(2).Row
ListView1.ListItems.Clear: ListView1.Gridlines = True
With ListView1
For sat = 2 To s1son
For sut = 1 To 11
If CStr(s1.Cells(sat, sut)) = CStr(Me.TextBoxBUL) Or InStr(1, s1.Cells(sat, sut), TextBoxBUL, vbTextCompare) > 0 Then
i = ListView1.ListItems.Count + 1
.ListItems.Add , , s1.Cells(sat, 2)
For ekle = 1 To 11: .ListItems(i).SubItems(ekle) = s1.Cells(sat, ekle + 2).Text: Next
Exit For
End If
Next
Next
End With
End Sub

TextBoxa Yazdığına Göre ListBoxta Filtreleme işinize yarayabilir. Dosyalar kısmında arama yapmanızı tavsiye ederim.

Pardon ListView'i ListBox olarak okumuşum ama benzer mantık ile işlem çözülebilir.

admin' Alıntı:

Pardon ListView'i ListBox olarak okumuşum ama benzer mantık ile işlem çözülebilir.

Genişletmek için tıklayın ...

Burhan.cesur' Alıntı:

Arama özelliği olan kodlar eklenmiştir.

Genişletmek için tıklayın ...

Hocam çok teşekkür ederim emeğinize sağlık. Allah razı olsun. İyiki varsınız. Sorun çözülmüştür.