TextBox Personel Adıyla ListView Kayıtlarını Süzme

[sedat2161]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Hayırlı günler sayın hocalarım. Ekli dosyamdaki userformda ki bul texbox ı ile listviewde personel adına göre süzme yapmak istiyorum. Yardımlarınızı bekliyorum.

 

[sedat2161]

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

 

[ExcelDepo]

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

 

[ExcelDepo]

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

 

[Burhan.cesur]

Arama özelliği olan kodlar eklenmiştir.

 

[sedat2161]

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

Arama özelliği olan kodlar eklenmiştir.

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