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