Dear Friends,
I have a database for which i made a pivot table for report purpose.
in pivot table, i have some raw heads & values . And mainly in report filter, invoice received date.
In i need to prepare a report weekly. i have StartDate & EndDate in excel, need to update pivot table by filtering only those dates which comes under the start date and end date. or else RptDt1, RptDt2, RptDt3, RptDt5, RptDt5.
i haves some code, its not working properly, please help.
Sheets("Pivot Report").Select
Range("B1").Select
' On Error Resume Next
With ActiveSheet.PivotTables("PivotTable2").PivotFields( _
"Date of Receiving from Vendor")
.PivotItems("02/04/12").Visible = False
.PivotItems(Range("RptDt1").Value).Visible = True
.PivotItems(Range("RptDt2").Value).Visible = True
.PivotItems(Range("RptDt3").Value).Visible = True
.PivotItems(Range("RptDt4").Value).Visible = True
.PivotItems(Range("RptDt5").Value).Visible = True
.PivotItems(Range("RptDt6").Value).Visible = True
End With
Range("A7").Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
Thanks in Advance,
Suresh
Bookmarks