Looking for code to extract specific pages from a pivot table


New Member
Apr 4, 2006
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

Forum statistics

Latest member

Some videos you may like

This Week's Hot Topics

  • populate from drop list with multiple tables
    Hi All, i have a drop list that displays data, what i want is when i select one of those from the list to populate text from different tables on...
  • Find list of words from sheet2 in sheet1 before a comma and extract text vba
    Hi Friends, Trying to find the solution on my task. But did not find suitable one to the need. Here is my query and sample file with details...
  • Dynamic Formula entry - VBA code sought
    Hello, really hope one of you experts can help with this - i've spent hours on this and getting no-where. .I have a set of data (more rows than...
  • Listbox Header
    Have a named range called "AccidentsHeader" Within my code I have: [CODE]Private Sub CommandButton1_Click() ListBox1.RowSource =...
  • Complex Heat Map using conditional formatting
    Good day excel world. I have a concern. Below link have a list of countries that carries each country unique data. [URL...
  • Conditional formatting
    Hi good morning, hope you can help me please, I have cells P4:P54 and if this cell is equal to 1 then i want row O to say "Fully Utilised" and to...