Listbox birden çok textbox ile filtreleme

[TURUNCU28]

Merhaba,

2 adet textbox ile listbox a çoklu filtreleme yapabilir miyiz? Örnek olarak listboxta 2 sütun var. ve 2 tane de textboxımız var. texboxlardan süzmeye başladığımda 1. textboxda yazdıklarımla oluşan filtrelemeyi 2. texboxa yazdıklarımla devam ettirmek istiyorum. Yani 1. textboxa "kahraman" yazdım tüm kahramanlar gelecek. 2. textboxa "yüksel" yazdığımda ikisi birlikte filtrelenip sadece "kahraman yüksel" filtrelenmiş olacak. Şuan yazdıklarımda kahraman ayrı yüksel ayrı filtreleniyor. textboxlar arası bir bağlantı kuramıyorum.

 

[Orion1]

Örnek dosya yüklerseniz daha çabuk yanıt alabilrisiniz.

 

[TURUNCU28]

Örnek dosya yüklerseniz daha çabuk yanıt alabilrisiniz.

Örnek dosyayı yüklemeyi başaramadım. Nasıl yükleyeceğim

 

[Orion1]

Örnek dosyayı yüklemeyi başaramadım. Nasıl yükleyeceğim

Bu siteden yükleyebilirsiniz.
https://dosya.co/

 

[TURUNCU28]

Bu siteden yükleyebilirsiniz.
https://dosya.co/

https://dosya.co/1itllhv1sjuy/PROGRAM.xls.html
Linki bu şekilde

 

[Orion1]

Dosyanız linktedir.

DOSYAYI INDIR

Private Sub suz59()
Dim sonsat1 As Long, sonsat2 As Long, s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Sayfa2")
Set s2 = Sheets("SUZ")
ListBox1.RowSource = ""
s2.Range("A:G").ClearContents
s1.Range("A1").AutoFilter
sonsat1 = s1.Cells(Rows.Count, "A").End(xlUp).Row
s1.Range("A1").AutoFilter field:=2, Criteria1:="*" & TextBox2.Value & "*"
s1.Range("A1").AutoFilter field:=3, Criteria1:="*" & TextBox3.Value & "*"
s1.Range("A1").CurrentRegion.Copy s2.Range("A1")
ListBox1.RowSource = "SUZ!A2:G" & s2.Cells(Rows.Count, "A").End(xlUp).Row
s1.Range("A1").AutoFilter
End Sub

 

[TURUNCU28]

Dosyanız linktedir.

DOSYAYI INDIR

Private Sub suz59()
Dim sonsat1 As Long, sonsat2 As Long, s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Sayfa2")
Set s2 = Sheets("SUZ")
ListBox1.RowSource = ""
s2.Range("A:G").ClearContents
s1.Range("A1").AutoFilter
sonsat1 = s1.Cells(Rows.Count, "A").End(xlUp).Row
s1.Range("A1").AutoFilter field:=2, Criteria1:="*" & TextBox2.Value & "*"
s1.Range("A1").AutoFilter field:=3, Criteria1:="*" & TextBox3.Value & "*"
s1.Range("A1").CurrentRegion.Copy s2.Range("A1")
ListBox1.RowSource = "SUZ!A2:G" & s2.Cells(Rows.Count, "A").End(xlUp).Row
s1.Range("A1").AutoFilter
End Sub

Elinize sağlık Orion1 tam istediğim gibi olmuş. Bir de bir textbox daha olsa listboxda bulduğumuz kişini aslında sayfada kaçıncı satırda olduğunu satır nosunu veren bölüm yapabilir miyiz acaba

 

[Orion1]

Elinize sağlık Orion1 tam istediğim gibi olmuş. Bir de bir textbox daha olsa listboxda bulduğumuz kişini aslında sayfada kaçıncı satırda olduğunu satır nosunu veren bölüm yapabilir miyiz acaba

Dosyanız linktedir.
Listboxa tıklayarak seçtiğiniz değerin 2 nci sayfadaki satırını veriyor.

DOSYAYI INDIR

Private Sub ListBox1_Click()
Dim k As Range
TextBox9.Value = ""
If ListBox1.ListCount < 1 Then Exit Sub
Set k = Sheets("Sayfa2").Range("A2:A" & Rows.Count).Find(ListBox1.Column(0), , xlValues, xlWhole)
If Not k Is Nothing Then TextBox9.Value = k.Row

TextBox8 = "Toplam " & ListBox1.ListCount & " adet kayıt var."
End Sub

 

[TURUNCU28]

Dosyanız linktedir.
Listboxa tıklayarak seçtiğiniz değerin 2 nci sayfadaki satırını veriyor.

DOSYAYI INDIR

Private Sub ListBox1_Click()
Dim k As Range
TextBox9.Value = ""
If ListBox1.ListCount < 1 Then Exit Sub
Set k = Sheets("Sayfa2").Range("A2:A" & Rows.Count).Find(ListBox1.Column(0), , xlValues, xlWhole)
If Not k Is Nothing Then TextBox9.Value = k.Row

TextBox8 = "Toplam " & ListBox1.ListCount & " adet kayıt var."
End Sub

Harikasınız çok teşekkür ediyorum.