![Poki](./pictures/avatars/8584.jpg)
co takhle:
Sub FILTR_ZOBRAZITVSE()
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
MsgBox "Vše je zobrazeno", vbInformation
Else
MsgBox "Toto lze provést jen při aktivním filtru!", vbCritical
End If
End Subcitovat
Sub FILTR_ZOBRAZITVSE()
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
MsgBox "Vše je zobrazeno", vbInformation
Else
MsgBox "Toto lze provést jen při aktivním filtru!", vbCritical
End If
End Subcitovat