✔ Programação GLOBAL®: DONUT PROJECT - VBA - Excel - Atualizando Tabelas Dinâmicas

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

Aqueles que utilizam as Tabelas Dinâmicas em alta escala têm consciência do poder que elas têm e da praticidade que trazem para os nossos projetos.

Série eBook Donut Projects:

DONUT PROJECT: VBA - Projetos e Códigos de Visual Basic for Applications (Visual Basic For Apllication)

eBook - DONUT PROJECT 2024 - Volume 03 - Funções Financeiras - André Luiz Bernardes

eBook - DONUT PROJECT 2024 - Volume 02 - Conectando Banco de Dados - André Luiz Bernardes

eBook - DONUT PROJECT 2024 - Volume 01 - André Luiz Bernardes

Nos códigos abaixo olharemos para algumas situações onde poderemos atualizar todas as Pivots, ou apenas Pivots escolhidas.

Atualizando uma tabela Simples

Private Sub Worksheet_Activate()

Run "PivotMacro"

End Sub

Sub PivotMacro()

Dim pt As PivotTable

Set pt = ActiveSheet.PivotTables("MyPivot")

pt.RefreshTable

End Sub

Atualizando todas asTabelas Dinâmicas da Planilha

Sub AllWorksheetPivots()

Dim pt As PivotTable

For Each pt In ActiveSheet.PivotTables

pt.RefreshTable

Next pt

End Sub

Atualizando uma Tabelas Dinâmicas específicas

Sub ChosenPivots()

Dim pt As PivotTable

For Each pt In ActiveSheet.PivotTables

Select Case pt.Name

Case "PivotTable1", "PivotTable4", "PivotTable8"

pt.RefreshTable

Case Else

End Select

Next pt

End Sub

Atualize todas as Tabelas Dinâmicas Selecionadas

Sub AllWorkbookPivots()

Dim pt As PivotTable

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

For Each pt In ws.PivotTables

pt.RefreshTable

Next pt

Next ws

End Sub