textboxta süz listview de göster

[öğrtm]

mrblar
excelde ki verilerimi form üzerine yerleştirdiğim textbox la süzmeye çalıştım.(textboxa harf girdikçe süzme gerçekleşecek)
fakat yazdığım komutlar istediğim işlemi yapmıyor
konuyla ilgili yardımlarınızı bekliyorum

örneğim ektedir

 

[Orion1]

Dosyanız ektedir.

Private Sub TextBox4_Change()
Dim i  As Long, sat As Long, sh As Worksheet, deg As String, x As Long
Set sh = Sheets("Rehber")
sat = sh.Cells(65536, "A").End(xlUp).Row
ListView1.ListItems.Clear
deg = UCase(Replace(Replace(TextBox4.Text, "ı", "I"), "i", "İ")) & "*"
For i = 1 To sat
    If TextBox4.Text = "" Then deg = UCase(Replace(Replace(sh.Cells(i, "B").Value, "ı", "I"), "i", "İ"))
    If UCase(Replace(Replace(sh.Cells(i, "B").Value, "ı", "I"), "i", "İ")) Like deg Then
        x = x + 1
        ListView1.ListItems.Add , , sh.Cells(i, "A").Value
        ListView1.ListItems(x).SubItems(1) = sh.Cells(i, "B").Value
        ListView1.ListItems(x).SubItems(2) = sh.Cells(i, "C").Value
    End If
Next i
End Sub

 

[öğrtm]

evren bey teşekkür ederim
sorunum sayenizde çözüldü.iyi akşamlar

 

[Orion1]

evren bey teşekkür ederim
sorunum sayenizde çözüldü.iyi akşamlar

Rica ederim.Bidiğimiz kadar ,elimizden geldiğince yardım ediyoruz işte.
İyi çalışmalr.