Çözüldü filtreleme

[tukayf]

değerli hocalarım, P sütununda Ankara ve İstanbul değerleri dışında ne varsa filtreye ekleyip daha sonra P-S sütunlarında bulunan filtrelenmiş değerleri silmek istiyorum yardımcı olabilirseniz sevinirim.

Yine aynı dosyada farklı butona yazacağım kod ile dosya içerisinde yazdığım filtrelemeyi yapmak istiyorum.

 

[uzmanamele]

Merhaba
Deneyiniz.

Sub Filter()

    ActiveSheet.Range("$A$4:$W$34").AutoFilter Field:=7, Criteria1:="<>EGE", Operator:=xlFilterValues
    ActiveSheet.Range("$A$4:$W$34").AutoFilter Field:=16, Criteria1:="="
    ActiveSheet.Range("$A$4:$W$34").AutoFilter Field:=20, Criteria1:="="
    
End Sub

 

[tukayf]

Hocam yanıt için teşekkür ederim. Diğer bir sorum daha vardı aynı dosya da ona da bakabilmeniz mümkün müdür acaba.
Bir de bu kodu çalıştırdıktan sonra filtreden nasıl çıkabilirim. Tekrar başka bir kod ile filtreleme dışında bir çözüm var mı acaba.

 

[uzmanamele]

Merhaba
Deneyiniz

Sub NoFilter()
    ActiveSheet.ShowAllData
End Sub

 

[uzmanamele]

Merhaba

Başka alternatif

Sub Hidden()
    Cells.EntireRow.Hidden = False
   
ssat = Range("G1048576").End(3).Row
Range("G5" & ":" & "G" & ssat).EntireRow.Hidden = True

For i = 5 To ssat
If Range("G" & i).Text <> "EGE" And Range("P" & i).Text = "" And Range("T" & i) = "" Then
        Range("G" & i).EntireRow.Hidden = False
End If
Next
End Sub

Sub NoHidden()
    Cells.EntireRow.Hidden = False
End Sub

 

[tukayf]

Hocam yanıtlarınız için çok teşekkür ederim. Çok sağolun ikisi de çalışıyor.