Filtrar com data Tabela Dinamica

Tabela e gráficos dinâmicos!

Filtrar com data Tabela Dinamica

Mensagempor fabio.cmaa » Ter Set 03, 2019 1:48 pm

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

Código: Selecionar todos
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.
Avatar do usuário
fabio.cmaa
Membro
Membro
 
Mensagens: 198
Registrado em: Qua Jul 20, 2016 7:34 am
Has thanked: 59 times
Have thanks: 10 times

{ SO_SELECT }

Re: Filtrar com data Tabela Dinamica

Mensagempor pfarias » Ter Set 17, 2019 5:34 pm

Altera a linha abaixo:
Código: Selecionar todos
Tabela.PivotFields("DATA").PivotFilters.Add Type:=xlDate, Value:=DataInicial


para

Código: Selecionar todos
Tabela.PivotFields("DATA").PivotFilters.Add Type:=xlSpecificDate, Value1:=DataInicial
Pietro Farias

Imagem

Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.

AnalistaX.com
Avatar do usuário
pfarias
Membro
Membro
 
Mensagens: 296
Registrado em: Dom Mai 11, 2014 7:17 pm
Localização: Recife,PE - Brasil
Has thanked: 56 times
Have thanks: 65 times


Voltar para Tabela Dinâmica

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 2 visitantes