Szia!

 

Ezen már én is agyaltam tegnap, sőt, egy picit még kutattam is a témában... A munkalap események közül talán a Worksheet_Calculate használható, de ekkor a kérdéses munkalapra fel kell venni egy függvényt pl. MA(). Ezt ugye minden munkalap eseménynél frissíti...

 

Szóval, ha felteszel egy tetszőleges függvényt, akkor megoldás lehet ez:

 

Private Sub Worksheet_Calculate()
Dim x As Byte
Dim s As String

 

  If ActiveSheet.AutoFilterMode = True Then ' ha a munkalapon az autoszűrő aktív
    For x = 1 To ActiveSheet.AutoFilter.Filters.Count
      If ActiveSheet.AutoFilter.Filters(x).On Then ' itt nézzük meg, hogy aktív-e valamelyik
        s = Mid(ActiveSheet.AutoFilter.Filters(x).Criteria1, 2, Len(ActiveSheet.AutoFilter.Filters(x).Criteria1))
        MsgBox "Indulhat a program, a(z) " & x & ". szűrő aktiválva, értéke: " & s
      End If
    Next x
  Else: MsgBox "Autoszűrő kikapcsolva"
  End If
 
End Sub