This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Private Sub Worksheet_Change(ByVal Target As Range) | |
.................. | |
End Sub | |
Note: | |
Gets triggered when any cell on the sheet changes. | |
I used this to make it possible to update several lists generated through pivot tables that got updated each | |
time a change on the input worksheet occured. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Sub list_refresh() | |
' | |
' list_refresh Macro | |
' Refreshes the two Pivot Table lists for the Project Details | |
' | |
' | |
Dim pf As PivotField | |
Set pf = Worksheets("PIVOT").PivotTables("PivotTable1").PivotFields("Task") | |
pf.ClearAllFilters |