VBA Excel - Atualize todas as suas Tabelas Dinâmicas - Refresh all Pivots on Open

Inline image 1

Atualize todas as suas Tabelas Dinâmicas assim que abrir a planilha.


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





Tags: Excel, Tip, Pivot Table, Tabela Dinâmica, workbook, Worksheet,