Notifications
Clear all

Atualizar Tabela Dinamica Automaticamente

3 Posts
2 Usuários
0 Reactions
745 Visualizações
(@rickevil21)
Posts: 6
Active Member
Topic starter
 

Bom dia Pessoal!

Sou novo no fórum e estou precisando de uma ajuda, criei uma planilha que em uma aba existem varias planilhas dinâmicas, porem eu queria que elas atualizassem automaticamente quando eu clicasse nessa aba

eu utilizei a seguinte formula para atualizar a planilha quando eu clico em qualquer célula da tabela

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.PivotTables("documentos").RefreshTable
End Sub

porem eu queria uma para atualizar as tabelas dinâmicas quando eu clicasse na aba, alguém consegue me ajudar

 
Postado : 31/10/2014 9:10 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

rickevil21,

Boa Tarde!

Não testei mas... veja se assim dá certo:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    'Essa referência deve ser alterada de acordo com os dados da sua diâmica, _
    de modo que uma célula qualquer da dinâmica esteja selecionada.
    Range("A16").Select
    ActiveSheet.PivotTables("documentos").PivotCache.Refresh
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 31/10/2014 1:18 pm
(@rickevil21)
Posts: 6
Active Member
Topic starter
 

não funcionou, eu tenho varias Tabelas dinâmicas em uma única aba da planilha, com a outra formula quando eu clicava em qualquer célula as dinâmicas já atualizavam, quando testei essa, não funcionou.

 
Postado : 31/10/2014 1:55 pm