Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, retorna o número de linhas filtradas
Sub Numero_linha_Filtrada()
Dim vNumeroLinhas As Integer
For Each r In Sheets("Plan1").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows
vNumeroLinhas =vNumeroLinhas + 1
Next
MsgBox "Filtrado < " & vNumeroLinhas - 1 & " > Linhas", vbInformation, "XL-Eves®"
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel