Да бисте направили макро за аутоматско освјежавање свих пивот табела у Excel-у, пратите следеће кораке:

1. Отворите Visual Basic for Applications (VBA) едитор

• • Отворите Excel.

• • Притисните Alt + F11 да отворите VBA едитор.

2. Уметните нови модул

• • У VBA едитору, десни клик на било који од објеката у "Project Explorer" прозору (обично са лијеве стране).

• • Изаберите Insert > Module. Ово ће прокламовати нови модул.

3. Додајте код за освјежавање пивот табела

У прозору модула који се отвори, унесите следећи код:

Sub RefreshAllPivotTables()
Dim ws As Worksheet
Dim pt As PivotTable
' Prolazak kroz sve radne listove
For Each ws In ThisWorkbook.Worksheets
' Prolazak kroz sve Pivot tabele na svakom radnom listu
For Each pt In ws.PivotTables
pt.RefreshTable
Next pt
Next ws
MsgBox "Sve Pivot tabele su osvežene!", vbInformation

4. Затворите VBA едитор

Притисните Ctrl + S да сачувате свој рад и затворите VBA едитор.

5. Покрените макро

• • Вратите се у Excel.

• • Притисните Alt + F8 да отворите прозор за покретање макроа.

• • Изаберите RefreshAllPivotTables и кликните на Run.

6. (Опционално) Додијелите макро дугмету

Ако желите да омогућите једноставно покретање, можете додати дугме на радни лист и доделити му макро:

• • Пређите на Developer tab (ако га немате, можете га додати путем опција).

  • Изаберите Insert и изаберте тип дугмета из Form Controls.

  • Нацртајте дугме на радном листу, и од вас ће бити затражено да додјелите макро.

  • Изаберите RefreshAllPivotTable и кликните ОК.

Сада ћете моћи да освјежите све пивот табеле једним кликом на дугме !