Saber quantos AutoFiltros dentro de uma pasta de trabalho estão aplicados pode ser útil.
Veja o exemplo abaixo:
Contando os Autofiltros no MS Excel
Se houver uma planilha com AutoFiltro na planilha ativa, este código irá retornar uma contagem deles.
Sub CountSheetAutoFilters()
Dim iARM As Long
If ActiveSheet.AutoFilterMode = True Then iARM = 1
Debug.Print "Nº de AutoFiltros: " & iARM
End Sub
Contando os Autofiltros no MS Excel
Se houver uma planilha com AutoFiltro na planilha ativa, este código irá retornar uma contagem deles.
Sub CountSheetAutoFilters()
Dim iARM As Long
If ActiveSheet.AutoFilterMode = True Then iARM = 1
Debug.Print "Nº de AutoFiltros: " & iARM
End Sub
Contando os Autofiltros no MS Excel
Se houver uma planilha com AutoFiltro na planilha ativa, este código irá retornar uma contagem deles.
Sub CountSheetAutoFilters()
Dim iARM As Long
If ActiveSheet.AutoFilterMode = True Then iARM = 1
Debug.Print "Nº de AutoFiltros: " & iARM
End Sub
Tags: VBA, Excel, Autofilter, filtro, AutoFiltro, worksheet, filtered, count,
