Zobrazení datumu aktualizace

Excel

Menu - Vývojář  - Zobrazit kód

Vložit kód

Příklad kódu:

Public Function PvtRefreshAt(rngCell As Range) As Variant
Dim D As Range
Dim P As PivotTable
On Error Resume Next
Set P = rngCell.Cells(1, 1).PivotTable
If Err.Number = 0 Then
With P
PvtRefreshAt = .RefreshDate
End With
Else
PvtRefreshAt = "Chyba: Neexistuje žádná kontingenční tabulka!"
End If
End Function

Vytvoříme druhé makro:

Sub Aktualizace()
' Aktualizace Makro
    ActiveWorkbook.RefreshAll
End Sub

Menu - Vývojář - Vložit - Ovládací prvky formuláře - Tlačítko (ovládací prvek formuláře)

Vybrat Aktualizace a OK