[ChrisGT7]

Καλημέρα Γιώργο,

Όπως σωστά αναφέρεις, θα πρέπει να μετρηθούν οι εμφανείς γραμμές του φίλτρου που εφαρμόζεις.

Έστω ότι ο πίνακας των δεδομένων σου είναι ο "ΠΙΝΑΚΑΣ1", τότε μπορείς να κάνεις τον παρακάτω έλεγχο:

    If ActiveSheet.ListObjects("ΠΙΝΑΚΑΣ1").Range.Rows.SpecialCells(xlCellTypeVisible).Count=0 Then Exit Sub

Μετά την παραπάνω γραμμή, θα πρέπει να ακολουθεί ο κώδικας που θέλεις να εκτελεστεί. Αν υπάρχει πρόβλημα, τότε ανέβασε ένα δείγμα του κώδικα που χρησιμοποιείς για περαιτέρω έλεγχο.