Display Pivot Items from Page Field

[Mozzz]

I have written code that asks the user to select the Week that they want displayed from the pagefields. I want to display the pagesfields to the user prior to asking them to select one.

Here is my code:

WeekNo = InputBox("Enter Week No ")
ActiveSheet.PivotTables(1).PageFields(1).CurrentPage = WeekNo

At this point the user has no idea what weeks are available. I either need to put a delay in so the user can select the Pagefield "Week" and see the available PivotItemsfrom the actual ActivePivotSheet or I need it to display them prior to the code written above.

Help

 

[sijpie]

once the inputbox is up, the user cannot interact with Excel to check on somthing else, neither will any other code run. So you will need to display the weeks before putting up your inputbox.

There are two decent ways to do this:
1) create a calender or simplified week view in a sheet, and make that active before putting up the question. that way the user can look at the dates and enter the required week.

2) create your calendar/week view in a userform, where the user can also enter the required week. With userforms you have far more flexibility then with the very simple inputbox.