VBA Excel - Autofiltro - Contando as Listas de AutoFiltros - Excel List AutoFilter VBA - Count List AutoFilters

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

Segue mais um exemplo de programação VBA para manipular AutoFiltro no MS Excel. 

O uso desse código nas listas de dados contidas nas tabelas das nossas planilhas.

Quando nomeamos as nossas tabelas de dados constituimos um ListObject, o qual automaticamente recebe a sua própria propriedade AutoFiltro.

Autofiltro - Mostrando todos os registros (Show All Records)
Autofiltro - Acionando o AutoFiltro da nossa Lista (Turn On List AutoFilter)
Autofiltro - Desligando a Lista de AutoFiltro (Turn Off List AutoFilter)
Autofiltro - Contando as Listas de AutoFiltros (Count List AutoFilters)
Autofiltro - Ocultando todas as Setas da lista de AutoFiltro, exceto uma (Hide Arrows Specific Columns)
Autofiltro - Ocultando Setas específicas nas listas de AutoFiltro (Hide Arrows Specific Columns)
Autofiltro - Visualizar todas as setas da Lista AutoFiltro (Show All List AutoFilter Arrows)
Autofiltro - Copiando Linhas filtradas específicas, sem os títulos (Copy Filtered List Rows Without Headings)
Autofiltro - Copiando Linhas filtradas específicas, com os títulos (Copy Filtered List Rows With Headings)
Autofiltro - Conte as Linhas Visíveis da Lista (Count Visible List Rows)

Contando as Listas de AutoFiltros

Para contar todas as listas e tabelas nomeadas duma planilha, onde existem AutoFiltros ativos, usamos o código a seguir.

Sub CountListAutoFilters()

' Conta a Lista de AutoFiltros mesmo que todas as seta fiquem escondidas.

Dim Lst As ListObject

Dim i As Long

Let i = 0

For Each Lst In ActiveSheet.ListObjects

    If Lst.ShowAutoFilter = True Then

    Let i = i + 1

    End If

Next Lst

Debug.Print "Lista de autofiltros: " & i

End Sub

Tags: VBA, Excel, List, AutoFilter, autofiltro, worksheet, Show, Count

Excel VBA - AutoFiltro - Contando os Autofiltros no MS Excel - AutoFilter VBA

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

13 Dicas para se Falar em Público

Os 10 mandamentos do gerenciamento de projetos

KPI - Key Performance Indicator

Acesse: http://goo.gl/0v6AO   

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 

Tags: VBA, Excel, Autofilter, filtro, AutoFiltro, worksheet, filtered, count, 

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

       

VBA Excel - Contando células selecionadas.

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

13 Dicas para se Falar em Público

Os 10 mandamentos do gerenciamento de projetos

KPI - Key Performance Indicator

Acesse: http://goo.gl/0v6AO   

Pelos mais diversos motivos e situações, eventualmente precisamos saber quantas células estão selecionadas, eis como fazê-lo:

Sub CntSelected()

    Dim cell As Object

    Dim count As Integer

    Let count = 0

    For Each cell In Selection

        Let count = count + 1

    Next cell

    MsgBox count & " item(ns) selecionados..."

End Sub

Tags: Excel, count, cell,  contar, célula, selected, selecionada