Süz kodunu kısaltmak

[ASLAN7410]

Merhaba arkadaşlar hayırlı akşamlar.

Aşağıdaki kod bayağı uzun oluyor, bu kodu nasıl kısaltabilirim, süzler Z sütununa kadar gidiyor.

Sub SüzleriAç()
    ActiveSheet.Range("$A$1:$z$500").AutoFilter Field:=1
    ActiveSheet.Range("$A$1:$z$500").AutoFilter Field:=2
    ActiveSheet.Range("$A$1:$z$500").AutoFilter Field:=3
    ActiveSheet.Range("$A$1:$z$500").AutoFilter Field:=4
    ActiveSheet.Range("$A$1:$z$500").AutoFilter Field:=5
    ActiveSheet.Range("$A$1:$z$500").AutoFilter Field:=6
    ActiveSheet.Range("$A$1:$z$500").AutoFilter Field:=7
    ActiveSheet.Range("$A$1:$z$500").AutoFilter Field:=8
    ActiveSheet.Range("$A$1:$z$500").AutoFilter Field:=9
    ActiveSheet.Range("$A$1:$z$500").AutoFilter Field:=10
    ActiveSheet.Range("$A$1:$z$500").AutoFilter Field:=11
    ActiveSheet.Range("$A$1:$z$500").AutoFilter Field:=12
End Sub

 

[Emir Hüseyin Çoban]

. . .

Makro kaydet ile filtre temizleyi kullanın.

. . .

 

[ASLAN7410]

Sayın Hüseyin Bey çok teşekkür ederim, süper oldu hayırlı geceler.

 

[Ömer BARAN]

Sanırım aşağıdaki satırlar ile de olur.

On Error Resume Next
If ActiveSheet.AutoFilterMode = True Then ShowAllData

Bence; Sayın Çoban'ın söylediğini ve benim gönderdiğimi
.....filtre var, filtreleme yapılmış
.....filtre var, filtreleme yapılmamış
.....filtre yok iken
denemek lazım.

 

[Orion1]

Buyurun.

ActiveSheet.AutoFilterMode = False

 

[ASLAN7410]

Sayın Ömer Bey ve Evren Bey ilginize çok teşekkür ediyorum, hayırlı çalışmalar hayırlı geceler.

 

[Orion1]

Rica ederim.
İyi geceler.