Using VBA to select a few items in the Filter

[CLYDE2004]

Hi, I am trying to use VBA to only select 6 items from a filter in a Pivot table. The number of items in the filter increases weekly but I still only want to select a set number. Below is part of the code that was produced when I used Macro recorder
Sub Macro8()
'
' Macro8 Macro
'

'
ActiveSheet.PivotTables("PivotTable2").PivotFields("Work Pack Code"). _
CurrentPage = "(All)"
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Work Pack Code")
.PivotItems("0").Visible = False
.PivotItems("4").Visible = False
.PivotItems("30").Visible = False
.PivotItems("40").Visible = False
.PivotItems("105").Visible = False
.PivotItems("130").Visible = False
.PivotItems("133").Visible = False
.PivotItems("142").Visible = False
.PivotItems("200").Visible = False
.PivotItems("202").Visible = False
.PivotItems("210").Visible = False
.PivotItems("300").Visible = False
The list will increase each week with new data

I only want to show 9002 , 9003,9004 , 9005

Any help will be greatly appreciated.

Thanks,

Clyde

[TMS]

Might be an idea to post a sample workbook with some typical data ... specifically, an example of data that demonstrates the requirement above.


Regards, TMS

[CLYDE2004]

Hi, How do post sample workbook to this thread . Thanks for your help

[TMS]

To Attach a File:

1. Click on Go Advanced
2. In the frame Attach Files you will see the button Manage Attachments
3. Click the button.
4. A new window will open titled Manage Attachments - Excel Forum.
5. Click the Browse... button to locate your file for uploading.
6. This will open a new window File Upload.
7. Once you have located the file to upload click the Open button. This window will close.
8. You are now back in the Manage Attachments - Excel Forum window.
9. Click the Upload button and wait until the file has uploaded.
10. Close the window and then click Submit.

[CLYDE2004]

Attached is a sample file. Column H - Work Pack Code is the column that I wish to filter but only want to select 9002,9003,9004 . The work pack codes will increase ech week and new ones are added but I still only want to select a few. Thanks for your help

[TMS]

OK, it's going to look something like this:

Please Login or Register  to view this content.

Regards, TMS

[CLYDE2004]

Hi, Thank you so much. That does the business. Thank you .

[TMS]

You're welcome. Thanks for the rep.



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save

[TMS]

Alternative version:

Please Login or Register  to view this content.

Please remember to mark as solved.


Regards, TMS