Macro to Refresh Pivot Table

[lprabhu1107]

Hi,

I have created Pivot Table with Date in the Pagefield and other data in the Row, Column and Data Fields.

In Pagefield i can change date by using the dropdown menu, whenthedate changes all the data in relevant fileds changes


I want to create a macro to change the date to todays date and refresh the pivot table.

can u pls suggest ways to do this

Regards

Prabhu

 

[reza_doang]

try this to refresh pivot table:

[FONT=&quot]Private[/FONT][FONT=&quot] Sub Worksheet_Activate() [/FONT]
[FONT=&quot] 'If this worksheet is activated, refresh the pivot table[/FONT]
[FONT=&quot] Sheets("Pivot").PivotTables("PivotTable1").RefreshTable
[/FONT]
[FONT=&quot]End Sub[/FONT]

[FONT=&quot][/FONT]

 

[lprabhu1107]

This code works for refreshng pivot table...is there any ways to change thedate in the pagefield and then refresh the pivot table

 

[lincolnho]

Hey, I have that right now!!!

I added a submit button, then used a macro code to it. I found it somewhere online and it's awesome!

link removed per OP request

Sub BUTTONNAME_Click()
Sheets("SHEETNAME").Select
ActiveSheet.PivotTables("NAMEOFPIVOTTABLE").RefreshTable
End Sub

------
I have this for my project:
Sub Button2_Click()
Sheets("dashboard").Select
ActiveSheet.PivotTables("PivotTable2").RefreshTable
End Sub

 

[lincolnho]

(if you're opening with windows and it saves as zip, just change the extension back to xlsm)

 

[lprabhu1107]

Hi..i do not know which file to open in the zip folder..

 

[lincolnho]

When you save, remove ".zip" from the end and type in xlsm instead (and select save as all files instead of save as zip file). It's not a zip file.