Limiting a Pivot table to the first 15 entries use VBA

[CADman1969]

Good Afternoon
I am been searching high and low both on the WEB and on this forum for this answer. I have created a complex spreadsheet, 95% completed. The last thing I need to do is to have the pivot tables only show 15 entries. For instance, if there are 40 entries on my table, I only want the first 15 to show, not necessarily the top 15, just the first 15 that comes up. Can someone point me in the right direction please.

[dflak]

It would help if you attach a sample worksheet with source data and the pivot table, and a mock up of the desired result. I will assume that after displaying the 15 rows, that there is nothing else you want to do with the pivot table. That is, you are NOT asking for a dynamic result. In other words, if you change a filter and get new data in the pivot table, you will have to re-run the program again.

[dflak]

Here is my shot at it.

Change the Constants to suit your setup.

Please Login or Register  to view this content.

[CADman1969]

Hello dflak, that is just what I needed. Thank you so much. The purpose for this code is because I have 12 pivot tables on one sheet, each one showing a specific machines upcoming orders, instead of leaving 100+ rows between each table, I wanted to limit the lines to 15 to help keep it clean looking. Right now if any machine exceeds 15 orders I get an error because a pivot table cannot impede into another table. This should work perfectly for what I need, I can't thank you enough.