Filtre butonu için mesaj

[ASLAN7410]

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

Ekte gönderdiğim sayfama filtre temizleme butonu ekledim, filtrelerin hepsi açık olduğunda butona bastığımda hata mesajı geliyor, bu hata mesajınıda On Error Resume Next kodu ile hatayı engelliyorum.

Filtreler kapalı iken butonla açtığımda Filtreler açıldı mesajı geliyor, benim istediğim tekrar butona bastığımda bütün filtreler açıksa Filtrelerin hepsi açık mesajı vermesini istiyorum.

Yardım edecek arkadaşlara şimdiden teşekkür ederim.

Sub FiltreTemizle()
    On Error Resume Next
    ActiveSheet.ShowAllData
    Range("B2").Select
    MsgBox "Filtreler açıldı"
End Sub

 

[ASLAN7410]

Arkadaşlar forumda araştırdım ancak böyle bir şey bulamadım.

 

[Ömer BARAN]

Merhaba Sayın ERASLAN.
.

Sub FiltreTemizle()
    If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData: MsgBox "Filtreler açıldı"
    Else: MsgBox "Filtrelerin hepsi açık": End If
End Sub

 

[ASLAN7410]

Sayın Ömer Bey hayırlı geceler diliyorum. Cevabınız için çok teşekkür ederim.

Sizden öğreneceğim daha çok şey var, hızır gibi yetiştiniz valla, şu zamana kadar çok sorunumu çözdünüz Allah razı olsun.

Sorun çözülmüştür hayırlı geceler.

 

[Ömer BARAN]

Sayın Ömer Bey hayırlı geceler diliyorum. Cevabınız için çok teşekkür ederim.

Sizden öğreneceğim daha çok şey var, hızır gibi yetiştiniz valla, şu zamana kadar çok sorunumu çözdünüz Allah razı olsun.

Sorun çözülmüştür hayırlı geceler.

Estağfurullah, iyi günler dilerim.