Excel VBA - AutoFiltro - Contando as Linhas visíveis - AutoFilter VBA

Excel VBA - AutoFiltro - Contando as Linhas visíveis - AutoFilter VBA

Usar AutoFiltro para filtrar dados é uma maneira rápida e fácil de encontrar e trabalhar com um subconjunto de dados em um intervalo de células ou tabela. Depois de filtrar dados em um intervalo de células ou tabela, você pode reaplicar um filtro para obter resultados, ou limpar um filtro para exibir novamente todos os dados.

Podemos definir AutoFiltros dentro de uma pasta de trabalho do MS Excel. 

Para que não criemos um monte de código supérfluo, segue-se um bom exemplo abaixo:

Contando as Linhas visíveis

Com este código de exemplo poderemos exibir uma mensagem que mostra a contagem das linhas visíveis com o filtro aplicado:

Sub CountVisRows()

'by Tom Ogilvy

Dim rng As Range

Set rng = ActiveSheet.AutoFilter.Range

MsgBox rng.Columns(1). _

   SpecialCells(xlCellTypeVisible).Count - 1 _

   & " of " & rng _

   .Rows.Count - 1 & " Records"

End Sub

brazilsalesforceeffectiveness@gmail.com