Soru Filtreleme yardim

[elixer]

Merhaba arkadaslar,

Bir tablom var ve bu tabloda bazi datalari tek seferde filtrelemek istiyorum. Ornek dosyayi eke ilistirdim.

Bu sekilde liste halinde bir datayi tek seferde filtrelemenin bir yolu var mi? Simdiden tsk.

 

[turist]

Gelişmiş Filtre özelliğini kullanabilirsiniz.
Aşağıdaki kaynak bilgiyi inceleyiniz.
https://support.office.com/tr-tr/article/geli%C5%9Fmi%C5%9F-%C3%B6l%C3%A7%C3%BCtler-kullanarak-filtre-uygulama-4c9222fe-8529-4cd7-a898-3f16abdff32b

Not:Tablonuzda D1 hücresine A1 de yazan "Sehir" yazarak deneyin.

 

[çıtır]

Deneyiniz.

Sub TekFilitre()
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")
s1.Range("A1").Select
    s1.Range("$A$1:$A$21").AutoFilter Field:=1, Criteria1:=Array( _
    s1.Range("D2"), s1.Range("D3"), s1.Range("D4"), s1.Range("D5")), Operator:=xlFilterValues
End Sub

 

[KANTOK]

Deneyiniz.

Sub TekFilitre()
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")
s1.Range("A1").Select
    s1.Range("$A$1:$A$21").AutoFilter Field:=1, Criteria1:=Array( _
    s1.Range("D2"), s1.Range("D3"), s1.Range("D4"), s1.Range("D5")), Operator:=xlFilterValues
End Sub

İyi akşamlar bendeki dosyaya uygulayamıyorum, yardımcı olabilir misiniz?
Teşekkürler.

 

[çıtır]

Dosyanıza göre aşağıdaki kodu deneyiniz.

Sub TekFilitre()
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa2")
s1.Select
s1.Range("A1").Select
    s1.Range("$A$1:$A$12").AutoFilter Field:=1, Criteria1:=Array( _
    "=" & s1.Range("D2"), "=" & s1.Range("D3")), Operator:=xlFilterValues
End Sub

 

[KANTOK]

Hocam teşekkürler.

 

[çıtır]

Hocam teşekkürler.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.