Este fórum está sendo desativado

[MatheusCarreira]

Boa noite
Como título já diz, preciso de ajuda para minhas tabelas dinâmicas, se atualizem sozinhas. Tenho uma planilha que alimento ela o dia todo, e tenho que fazer manualmente a atualização para os gráficos ficarem corretos.
Gostaria de saber como faço para que assim que colocar as informações, as tabelas sejam atualizadas sozinhas, são 4 tabela dinamica na mesma planilha.

[osvaldomp]

Coloquei na busca do Google ~~~> excel atualizar tabela dinâmica automaticamente e retornou 10+ mil resultados, dentre eles esse do link abaixo. Veja se aproveita. Retorne se precisar de algum ajuste no código.


https://www.youtube.com/watch?v=te-zTsmMhVU

[MatheusCarreira]

Vi o vídeo mas não me serve esse tipo, pois minhas tabelas tem filtros de segmentos de dados, que tem que ser retirados antes de atualizar, e colocar de volta, sendo que assim que acrescento dados novos, eu já faço as atualizações... Existe alguma forma?

[osvaldomp]

Você gravou uma macro ?

[MatheusCarreira]

Gravei deu erro no iniciou dos comandos gravados, pq para atualizar minha tabela, precisa desativar ligações delas, pq a tabela dinamica nao aceita.
vou colocar codigo abaixo.
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <= 10 Then

ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_DIA").PivotTables. _
RemovePivotTable (ActiveSheet.PivotTables("VENDAS E REMESSAS"))
ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_RAÇÃO").PivotTables. _
RemovePivotTable (ActiveSheet.PivotTables("VENDAS E REMESSAS"))
Range("K3").Select
ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_DIA").PivotTables. _
RemovePivotTable (ActiveSheet.PivotTables("INSUMOS"))
ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_RAÇÃO").PivotTables. _
RemovePivotTable (ActiveSheet.PivotTables("INSUMOS"))
Range("H3").Select
ActiveWorkbook.RefreshAll
Range("H14").Select
ActiveWorkbook.RefreshAll
Range("H23").Select
ActiveWorkbook.RefreshAll
Range("K3").Select
ActiveWorkbook.RefreshAll
ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_DIA").PivotTables.AddPivotTable _
(ActiveSheet.PivotTables("INSUMOS"))
ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_RAÇÃO").PivotTables. _
AddPivotTable (ActiveSheet.PivotTables("INSUMOS"))
Range("H14").Select
ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_DIA").PivotTables.AddPivotTable _
(ActiveSheet.PivotTables("VENDAS E REMESSAS"))
ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_RAÇÃO").PivotTables. _
AddPivotTable (ActiveSheet.PivotTables("VENDAS E REMESSAS"))

End If



End Sub


Nao funcionou.... quiser eu coloco uma planilha pra vc entender.
Não sei se da forma que criei os graficos e as tabelas influenciou a não dar certo.

[osvaldomp]

.... quiser eu coloco uma planilha pra vc entender.

Sim, seria oportuno disponibilizar diretamente aqui no fórum o seu arquivo Excel.

[MatheusCarreira]

Segue arquivo para analise.
Agradeço desde já a ajuda prestada.
Muito obrigado mesmo.

[osvaldomp]

1. em quais planilhas estão as Tabelas Dinâmicas ?
2. em quais planilhas estão os dados que servem de base para as TDs ?
3. você não instalou o código que já tentou e que não funcionou
4. disponibilize um arquivo com SOMENTE as planilhas envolvidas na atualização das TDs.