Showalldata komutu

[kadir78]

İyi günler.

Sheets("OCAK").showalldata

Makro kodu Ocak sayfasında filtreleri temizliyor fakat Ocak sayfasında filtre olmadığı zaman hata veriyor. Bunun kod için if değeri ile kod yazamadım.

 

[Korhan Ayhan]

Deneyiniz.

On Error Resume Next
Sheets("OCAK").ShowAlldata
On Error Goto 0

 

[kadir78]

Korhan bey sağolun. Teşekkür ederim.

 

[Murat OSMA]

Alternatif olarak, sayfanın Filtermode özelliği True ise, yani filtreleme açıksa/yapıldıysa o zaman filtrelemeyi kaldırmayı deneyebilirsiniz.

    If Sheets("OCAK").Filtermode = True Then
        Sheets("OCAK").ShowAllData
    End If