Página 1 de 1

Atualização automática de Tabela dinamica

Enviado: 08 Mar 2016 às 13:50
por RafaelGrande
Olá , estou trabalhando em uma planilha para controle de investimentos, mas sou novato e tenho conhecimento 0 de VBA

Será que alguém poderia me dizer porque raios minha tabela da aba proventos não está atualizando sozinha mesmo utilizando o código

Private Sub Worksheet_Activate()
Sheets(“PROVENTOS”).PivotTables(“TD_PROVENTOS”).RefreshTable
End Sub

Onde estou errando? to ficando maluco já :shock: :cry: :cry: :cry:
segue a planilha em anexo

Outra coisa, vai ser um projeto demorado e to com muitas duvidas :(. Será que posso criar um tópico exclusivo para esse projeto?

Grato desde já aos senhores mestres em excel

Rafael Grande

Re: Atualização automática de Tabela dinamica

Enviado: 08 Mar 2016 às 14:19
por Kledison
Boa tarde,

estou sem acesso ao Excel no momento, verifique o tópico abaixo:

http://gurudoexcel.com/forum/viewtopic. ... 8130#p8130

Ou tente usar o código abaixo:
Código: Selecionar todos
Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("nome da sua tabela dinamica").PivotCache.Refresh
End Sub

Atualização automática de Tabela dinamica

Enviado: 08 Mar 2016 às 14:56
por RafaelGrande
Já utilizei esse codigo ... acho que estou usando o visual basic errado :cry:

Re: Atualização automática de Tabela dinamica

Enviado: 08 Mar 2016 às 18:59
por Kledison
Olá,

Usei como base a sua coluna F (quantidade de ações) da aba Proventos, teste o código abaixo:
Código: Selecionar todos
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.PivotTables("TD_PROVENTOS").PivotCache.Refresh
End Sub
No aguardo.

Re: Atualização automática de Tabela dinamica

Enviado: 08 Mar 2016 às 21:59
por RafaelGrande
Kledison escreveu:Olá,

Usei como base a sua coluna F (quantidade de ações) da aba Proventos, teste o código abaixo:
Código: Selecionar todos
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.PivotTables("TD_PROVENTOS").PivotCache.Refresh
End Sub
No aguardo.
Cara vcs usam magia negra só pode . FUNCIONOU!!! to quebrando a cabeça fazem dias!!! o que eu fiz de errado?

Muito obrigado!!! :D :D :D

Re: Atualização automática de Tabela dinamica

Enviado: 08 Mar 2016 às 22:05
por Kledison
Boa noite,

não é magia não :D :D :D

quando te mandei a macro não tinha acesso ao Excel para verificar seu exemplo,

após verificar percebi que a macro que lhe enviei estava sendo executada quando a aba era ativada
Código: Selecionar todos
Private Sub Worksheet_Activate()
então troquei para a macro abaixo, que atualiza a Tabela Dinâmica toda vez que um dado é alterado
Código: Selecionar todos
Private Sub Worksheet_SelectionChange(ByVal Target As Range)