ListBox da süzme işlemi

[sdegirmenci]

Merhaba;
Ekli dosyam üzerindeki Formda ListBoxta süzme yapmak istedim, Forumda bayağı araştırdım, ancak bir türlü kendi listbox uma uyarlayamadım. List Box üzerindeki "Ürün adı " (Kırmızı ile) yazılı textbox a aşağıda sıralanan (3.sütun) ürün adlarından birini yazdığımda yalnızca listede o isimdeki ürünlerin listelenmesini istiyorum. Bu konuda yardımcı olabilirseniz sevinirim.İlginize şimdiden teşekkür ediyorum. Saygılarımla

 

[Orion1]

Dosyanız ektedir.

Private Sub ürünadıtext_Change()
Dim sh As Worksheet, sat As Long
Set sh = Sheets("Kiler")
sat = sh.Cells(sh.Rows.Count, "E").End(xlUp).Row
ListBox1.RowSource = ""
Application.ScreenUpdating = False
sh.Range("C4").AutoFilter
sh.Range("C4:R4").AutoFilter field:=3, Criteria1:=ürünadıtext.Text & "*"
sh.Range("C4").CurrentRegion.Offset(2, 0).Copy Sheets("SUZ").Range("C4")
ListBox1.RowSource = "SUZ!C5:R" & sat

End Sub

 

[sdegirmenci]

Sayon Orion;
İlginize çok teşekkür ederim, Hocam ben yalnızca ListBox üzerinde süzme istemiştim, ayrıdan süz sayfası açmanızı anlayamadım , tekrar bakabilirseniz sevinirim