Este fórum está sendo desativado

[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á
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

[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

[RafaelGrande]

Já utilizei esse codigo ... acho que estou usando o visual basic errado

[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.

[RafaelGrande]

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

[Kledison]

Boa noite,

não é magia não

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)