Çözüldü Listbox da arananları göstermek (filtreleme)

[iucfatih]

Merhabalar. https://www.excel.web.tr/threads/userform-ile-veri-girisi.179134/#post-996939 bu postdan alıp kendime uyarladığım dosyaya yeni birşey daha eklemek istiyorum.
istediğim şey Ör. bi textbox a Fatih Özaydın yazacağım ve sadece ona yaptığım işler listboxda görünecek. Bunu yapabilirmiyim? Birnevi filtrelemek gibi birşey. Ekte verdiğim dosyaya uyarlamak istiyorum.
Şimdiden teşekkür ederim hayırlı akşamlar.

 

[Orion1]

Dosyanız ektedir.

Private Sub TextBox10_Change()
Dim sh As Worksheet
Sheets("Sayfa1").Select
Set sh = Sheets("SUZ59")
ListBox1.RowSource = ""
sh.Range("A1:H" & Rows.Count).Clear
Range("A1").AutoFilter
Range("A1").AutoFilter field:=2, Criteria1:=TextBox10.Value & "*"
Range("A1").AutoFilter field:=3, Criteria1:=TextBox11.Value & "*"
Range("A1").CurrentRegion.Copy sh.Range("A1")
ListBox1.RowSource = "SUZ59!A2:H" & sh.Cells(Rows.Count, "A").End(xlUp).Row
ActiveSheet.AutoFilterMode = False
End Sub

Private Sub TextBox11_Change()
Dim sh As Worksheet
Sheets("Sayfa1").Select
Set sh = Sheets("SUZ59")
ListBox1.RowSource = ""
sh.Range("A1:H" & Rows.Count).Clear
Range("A1").AutoFilter
Range("A1").AutoFilter field:=2, Criteria1:=TextBox10.Value & "*"
Range("A1").AutoFilter field:=3, Criteria1:=TextBox11.Value & "*"
Range("A1").CurrentRegion.Copy sh.Range("A1")
ListBox1.RowSource = "SUZ59!A2:H" & sh.Cells(Rows.Count, "A").End(xlUp).Row
ActiveSheet.AutoFilterMode = False
End Sub

 

[iucfatih]

Dosyanız ektedir.

Private Sub TextBox10_Change()
Dim sh As Worksheet
Sheets("Sayfa1").Select
Set sh = Sheets("SUZ59")
ListBox1.RowSource = ""
sh.Range("A1:H" & Rows.Count).Clear
Range("A1").AutoFilter
Range("A1").AutoFilter field:=2, Criteria1:=TextBox10.Value & "*"
Range("A1").AutoFilter field:=3, Criteria1:=TextBox11.Value & "*"
Range("A1").CurrentRegion.Copy sh.Range("A1")
ListBox1.RowSource = "SUZ59!A2:H" & sh.Cells(Rows.Count, "A").End(xlUp).Row
ActiveSheet.AutoFilterMode = False
End Sub

Private Sub TextBox11_Change()
Dim sh As Worksheet
Sheets("Sayfa1").Select
Set sh = Sheets("SUZ59")
ListBox1.RowSource = ""
sh.Range("A1:H" & Rows.Count).Clear
Range("A1").AutoFilter
Range("A1").AutoFilter field:=2, Criteria1:=TextBox10.Value & "*"
Range("A1").AutoFilter field:=3, Criteria1:=TextBox11.Value & "*"
Range("A1").CurrentRegion.Copy sh.Range("A1")
ListBox1.RowSource = "SUZ59!A2:H" & sh.Cells(Rows.Count, "A").End(xlUp).Row
ActiveSheet.AutoFilterMode = False
End Sub

harikasınız tam istediğim gibi çok teşekkür ederim elinize sağlık

 

[Orion1]

harikasınız tam istediğim gibi çok teşekkür ederim elinize sağlık

Rica ederim.
İyi çalışmalar.

 

[katip06]

Dosyanız ektedir.

Private Sub TextBox10_Change()
Dim sh As Worksheet
Sheets("Sayfa1").Select
Set sh = Sheets("SUZ59")
ListBox1.RowSource = ""
sh.Range("A1:H" & Rows.Count).Clear
Range("A1").AutoFilter
Range("A1").AutoFilter field:=2, Criteria1:=TextBox10.Value & "*"
Range("A1").AutoFilter field:=3, Criteria1:=TextBox11.Value & "*"
Range("A1").CurrentRegion.Copy sh.Range("A1")
ListBox1.RowSource = "SUZ59!A2:H" & sh.Cells(Rows.Count, "A").End(xlUp).Row
ActiveSheet.AutoFilterMode = False
End Sub

Private Sub TextBox11_Change()
Dim sh As Worksheet
Sheets("Sayfa1").Select
Set sh = Sheets("SUZ59")
ListBox1.RowSource = ""
sh.Range("A1:H" & Rows.Count).Clear
Range("A1").AutoFilter
Range("A1").AutoFilter field:=2, Criteria1:=TextBox10.Value & "*"
Range("A1").AutoFilter field:=3, Criteria1:=TextBox11.Value & "*"
Range("A1").CurrentRegion.Copy sh.Range("A1")
ListBox1.RowSource = "SUZ59!A2:H" & sh.Cells(Rows.Count, "A").End(xlUp).Row
ActiveSheet.AutoFilterMode = False
End Sub

Hocam öncelikle elinize emeğinize sağlık, sizin örneğinizde sadece ad ve soyad dan arama var ya onu diğer sütunlar için de uyarlayabilir miyiz, veri girilen her sütundan arama yapmak mümkün müdür, bir de arama koşulu içinde geçen şeklinde yapılabilir mi?