Hello all,
I have a pivot table that takes its data from a sheet with about 2000 lines.
The pivot has two page fields: Status and Date (the status can be either “open” or “done”). I have created a macro that is doing “show pages” based on the Date.
This macro I have created opens a new file, copies the original table to the first sheet and then does the “show pages” (in the new file). Each sheet is then renamed to correspond with the relevant date. The problem is that the range of the pivot is too long (too many dates) and there are too many sheets to show.
Is there a way to emulate this “show page”, and in the new file only show pages relevant to a certain STATUS or for a specific range of dates (between X and Y, or greater than X?). I was thinking about prompting the user to select the status or the date ranges.
The actual action does not have to be a real “show pages” but rather new copies of the table, with a new date in each page.
I found a code somewhere that loops through the pages and it feels like this might be a beginning for the solution, but for the life of me, I can’t create something that works.
The code I found is
Sub CyclePages()
Dim p As PivotItem
With ActiveSheet. PivotTables(1).PageFields(1)
For Each p In .PivotItems
.CurrentPage = "" & p & ""
'insert code here
Next p
End With
End Sub
I am using Excel 2003 and would really appreciate any help/direction
I have a pivot table that takes its data from a sheet with about 2000 lines.
The pivot has two page fields: Status and Date (the status can be either “open” or “done”). I have created a macro that is doing “show pages” based on the Date.
This macro I have created opens a new file, copies the original table to the first sheet and then does the “show pages” (in the new file). Each sheet is then renamed to correspond with the relevant date. The problem is that the range of the pivot is too long (too many dates) and there are too many sheets to show.
Is there a way to emulate this “show page”, and in the new file only show pages relevant to a certain STATUS or for a specific range of dates (between X and Y, or greater than X?). I was thinking about prompting the user to select the status or the date ranges.
The actual action does not have to be a real “show pages” but rather new copies of the table, with a new date in each page.
I found a code somewhere that loops through the pages and it feels like this might be a beginning for the solution, but for the life of me, I can’t create something that works.
The code I found is
Sub CyclePages()
Dim p As PivotItem
With ActiveSheet. PivotTables(1).PageFields(1)
For Each p In .PivotItems
.CurrentPage = "" & p & ""
'insert code here
Next p
End With
End Sub
I am using Excel 2003 and would really appreciate any help/direction
