Filtreleme Makrosu

[3641]

Arkadaşlar Merhaba,
Excel sayfası içerisinde aşağıdaki makroyu kullanıyorum. Bu Makro Aktif sayfada A3 ile K471 aralığında 5. Sütuna göre filtreleme yapıyor.

Sub düzfiltre()
'
' düzfiltre Makro
'

'
    ActiveSheet.Range("$A$3:$J$471").AutoFilter Field:=5, Criteria1:=">=1", _
        Operator:=xlAnd
End Sub

Benim ihtiyacım ise Tek Buton ile
Bölüm1 Sayfasında A3 ile K471 Aralığında 5. Sütuna Göre
Bölüm2 Sayfasında A3 ile M471 Aralığında 6. Sütuna Göre
Bölüm3 Sayfasında A3 ile Q471 Aralığında 8. Sütuna Göre
Bölüm4 Sayfasında A3 ile X471 Aralığında 5. Sütuna Göre
Bölüm5 Sayfasında A3 ile AF471 Aralığında 11. Sütuna Göre
Bölüm6 Sayfasında A3 ile Y471 Aralığında 7. Sütuna Göre
Filtreleme yapması mümkün müdür acaba.

Şimdiden teşekkür ederim. Sağlıklı günleriniz olsun...

 

[Ömer]

Merhaba,

Aşağıdaki gibi ekleme yapabilirsiniz.

Sub düzfiltre()
'
' düzfiltre Makro
'

    Sheets("Bölüm1").Range("A3:K471").AutoFilter Field:=5, Criteria1:=">=1", _
        Operator:=xlAnd
        
    Sheets("Bölüm2").Range("A3:M471").AutoFilter Field:=6, Criteria1:=">=1", _
        Operator:=xlAnd
    
End Sub

 

[3641]

Çok teşekkür ederim Ömer Bey,