tüm sekmelerde filtre

[cuneytturkoglu]

Merhabalar ,

yaklaşık 40 sekmeden oluşan bir raporum var ve tüm sekmedeki rapor türü aynıdır sadece veriler değişiyor.

Tek bir formülle yada makro ile A1 ile Z1 hücrelerini nasıl filtrelerim. Markoyu yada formülü yazdığımda tüm sekmelerde filtre oluşmuş olması gereklidir.

konu hakkında yardımlarınızı bekliyorum

 

[Emir Hüseyin Çoban]

. . .

Sadece filtre oluşması yeterli mi.
Devamında süzme işlemi yapacak mı.

. . .

 

[cuneytturkoglu]

. . .

Sadece filtre oluşması yeterli mi.
Devamında süzme işlemi yapacak mı.

. . .

sadece filtre yeterlidir

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
    For i = 1 To Sheets.Count
        With Sheets(i)
            On Error Resume Next
            If Not .AutoFilterMode Then
                .Range("A1:Z1").AutoFilter
            Else
                .ShowAllData
            End If
        End With
    Next i
End Sub

. . .

 

[cuneytturkoglu]

çok teşekkür ederim , iyi çalışmalar.