Notifications
Clear all

Filtrar com data Tabela Dinamica  

  RSS

fabio.cmaa
(@fabio-cmaa)
Estimable Member
Entrou: 4 anos atrás
Posts: 169
03/09/2019 10:48 am  

Boa tarde Galera,

onde é que estou errando na programação abaixo?

eu quero digitar a data em uma célula, e automaticamente efetuar o filtro das tabelas dinamicas
tabela dinâmica 1,2 e 4

Sub filtrar_data()

Dim DataInicial As String

DataInicial = Range("C1").Text
    
    Dim Tabela As PivotTable
            
    Set Tabela = ActiveSheet.PivotTables("Tabela dinâmica1")
    
    Tabela.ClearAllFilters
        
    Tabela.PivotFields("DATA").PivotFilters.Add Type:=xlDate, Value:=DataInicial
    
End Sub

Editado por Adalberto: Ao postar código VBA use a ferramenta Code e não Quote que é para citação.


ResponderCitar (Quote)
Compartilhar: