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

| Blog Office VBA | Blog Excel | Blog Access | 

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,