Textbox ve Comboboxa göre filtreleme işlemi

[endexci]

Merhaba arkadaşlar,

Ekte bulunan Userformda il ve ilçe bazında filtreleme işlemi yapılabiliyor. ben il ve ilçe bazında değilde tarih ve il bazında filtreleme yapmak istiyorum yalnız tarih yazınca tarihe göre yalnız il yazınca il bazında her iki kriteri yazınca iki kritere göre filtrleme yapmasını istiyorum formda benzer konuları aradım ama yakın kod bulamadığım için yazamadım konuyla ilgili bana yardımcı olacak arkadaşların desteklerini bekliyorum. Teşekkürler

 

[Orion1]

Dosyanız ektedir.

Sub liste()
Dim s1 As Worksheet, s2 As Worksheet
Dim sonsat1 As Long, sonsat2 As Long
Set s1 = Sheets("Data")
Set s2 = Sheets("SUZ")
ListBox1.RowSource = ""
s2.Range("A2:M" & Rows.Count).Clear
s1.Range("A1").AutoFilter
sonsat1 = s1.Cells(Rows.Count, "B").End(xlUp).Row
On Error Resume Next
If IsDate(TextBox1.Value) Then
    s1.Range("A1").AutoFilter field:=2, Criteria1:=Format(CDate(TextBox1.Value), "dd.mm.yyyy")
End If
s1.Range("A1").AutoFilter field:=3, Criteria1:=ComboBox1.Value & "*"
s1.Range("A1").CurrentRegion.Offset(1, 0).Copy s2.Range("A2")
sonsat2 = s2.Cells(Rows.Count, "B").End(xlUp).Row
If sonsat2 > 1 Then ListBox1.RowSource = "SUZ!A2:M" & sonsat2
s1.Range("A1").AutoFilter
End Sub

 

[alicimri]

Cevap verilmiş.

 

[endexci]

Dosyanız ektedir.

Sub liste()
Dim s1 As Worksheet, s2 As Worksheet
Dim sonsat1 As Long, sonsat2 As Long
Set s1 = Sheets("Data")
Set s2 = Sheets("SUZ")
ListBox1.RowSource = ""
s2.Range("A2:M" & Rows.Count).Clear
s1.Range("A1").AutoFilter
sonsat1 = s1.Cells(Rows.Count, "B").End(xlUp).Row
On Error Resume Next
If IsDate(TextBox1.Value) Then
    s1.Range("A1").AutoFilter field:=2, Criteria1:=Format(CDate(TextBox1.Value), "dd.mm.yyyy")
End If
s1.Range("A1").AutoFilter field:=3, Criteria1:=ComboBox1.Value & "*"
s1.Range("A1").CurrentRegion.Offset(1, 0).Copy s2.Range("A2")
sonsat2 = s2.Cells(Rows.Count, "B").End(xlUp).Row
If sonsat2 > 1 Then ListBox1.RowSource = "SUZ!A2:M" & sonsat2
s1.Range("A1").AutoFilter
End Sub

Sayın Orion cevabınız için teşekkür ederim ama filtreleme işlemini çalıştıramadım

 

[Orion1]

Sayın Orion cevabınız için teşekkür ederim ama filtreleme işlemini çalıştıramadım

textbox1 ve combobox1 e veri girildikçe filktreleme yapıyor zaten.Filtreleme sonundada diğer sayfaya atıyor ,listboxta görüntüleniyor ve filtreyi kaldırıyor.

 

[endexci]

textbox1 ve combobox1 e veri girildikçe filktreleme yapıyor zaten.Filtreleme sonundada diğer sayfaya atıyor ,listboxta görüntüleniyor ve filtreyi kaldırıyor.

Sayın Orion ben yanlış bir işlem yapmışım tamamdır filtreleme çalıştı çok teşekkür ederim çözümünüz için

 

[Orion1]

Sayın Orion ben yanlış bir işlem yapmışım tamamdır filtreleme çalıştı çok teşekkür ederim çözümünüz için

Rica ederim.
İyi çalışmalar.