Pivot refresh - Message if the data source hasn't been changed

[Villalobos]

Hello,

I would like to ask that how is it possible to check that the data source of pivot table really changed or not before this command running:

 Sheets("Sheet1").Range("B6").PivotTable.RefreshTable

My target is that to receive a message before the .PivotTable.RefreshTable if the data source has not been changed since the last fresh.

Any recommendation?



Thanks in advance!

 

[NARAYANK991]

Hi ,

Is the data source mere data or is it having formulae ? If it is the data will be changed , then you can use the Worksheet_Change event procedure to identify when any cell in the data source has been changed.

Narayan

 

[Villalobos]

Hello Narayan,

Thanks, you were helpful, I figured how to do it with Worksheet_Activate!

 Option Explicit
Private Sub Worksheet_Activate()
Application.EnableEvents = False
Dim p As PivotTable
For Each p In PivotTables
        p.RefreshTable
    Next p
Application.EnableEvents = True
End Sub