VBA Excel - Autofiltro - Acionando o AutoFiltro da nossa Lista - Excel List AutoFilter VBA - Turn On List AutoFilter

| 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)

Acionado o AutoFiltro da nossa Lista

Ao usar o código a seguir, você ligará o AutoFiltro do Excel na 1ª lista da planilha ativa.

Sub TurnAutoFilterOnList1()

' Liga o AutoFiltro na 1ª lista.

Dim Lst As ListObject

Set Lst = ActiveSheet.ListObjects (1)

Let Lst.ShowAutoFilter = True

End Sub

Tags: VBA, Excel, List, AutoFilter, autofiltro, worksheet, Show, Turn On, 

Excel VBA - AutoFiltro - Mostrando todos os Registros numa planilha protegida - AutoFilter VBA

| Blog Office VBA | Blog Excel | Blog Access |

+ de 100.000 VISITAS

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

Se a planilha está protegida, sem senha, use este código para desprotegê-la, mostre tudo, e então coloque a proteção novamente.

Veja:

Sub ShowAllProtected()

With ActiveSheet

    .Unprotect

    .ShowAllData

    .Protect _

        Contents:=True, _

        AllowFiltering:=True, _

        UserInterfaceOnly:=True

End With

End Sub

Tags: VBA, Excel, Autofilter, filtro, AutoFiltro, worksheet, filtered, desligar, turn on,

Excel VBA - AutoFiltro - Mostrando todos os Registros do Filtro numa planilha protegida com senha - AutoFilter VBA

| Blog Office VBA | Blog Excel | Blog Access |

+ de 100.000 VISITAS

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

Se a planilha estiver protegida com senha, use um código para desprotegê-la, mostre tudo, e então coloque a proteção novamente.

Veja abaixo:

Sub ShowAllProtectedPwd()

Dim strPwd As String

strPwd = "andrebernardes"

With ActiveSheet

    .Unprotect Password:=strPwd

    .ShowAllData

    .Protect _

        Contents:=True, _

        AllowFiltering:=True, _

        UserInterfaceOnly:=True, _

        Password:=strPwd

End With

End Sub

Tags: VBA, Excel, Autofilter, filtro, AutoFiltro, worksheet, filtered, desligar, turn on,

Excel VBA - AutoFiltro - Ligue o AutoFiltro do MS Excel - AutoFilter VBA

| Blog Office VBA | Blog Excel | Blog Access |

+ de 100.000 VISITAS

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

Saber ligar os AutoFiltros numa aplicação pode ser útil. 

Veja abaixo:

Ligue o AutoFiltro do MS Excel

Use este código para ligar um AutoFiltro do Excel, caso não exista nenhum.

Sub TurnAutoFilterOn()

  If Not ActiveSheet.AutoFilterMode Then

    ActiveSheet.Range("A1").AutoFilter

  End If

End Sub

Tags: VBA, Excel, Autofilter, filtro, AutoFiltro, worksheet, filtered, desligar, turn on,