Pivot table VBA

[pezalmendra]

Hi,

Does anyone knows a VBA code which will delete all rows from a pivot table when a range from that pivot table doesn't match a condition?

Example:

There is a cell (A1) where I introduce a date. When running the code, I would like that all rows from the pivot table where the date is higher than that one introduced in "A1" will delete.

Any help would be much appreciated.

Kind regards,

[noboffinme]

Can you post the file to work on? OR a dummy example in the same format.

Thanks

[pezalmendra]

Hi noboffinme,

I have attached an example of what I am looking for.

Thanks!

[noboffinme]

Hi pezalmendra,

I've created a Pivot on your data & applied a rule that filters out records before 12/09/14.

If you Right click a Cell in the Pivots 'Date' Column go to 'Filter' >> 'Date Filters' & Apply the rule 'Greater Than or Equal to' & select a date.

The Pivot will remove the requested dates.

[pezalmendra]

Hi noboffinme,

Thanks for your reply! I was actually looking a way of just deleting the rows because I want to keep the dates and sequence as it is shown in the pivot table...

Is there a code which would search in the range of dates of the pivot table and delete those rows in which the date is > than the one in cell C2?

Regards

[noboffinme]

So do you want the Macro to delete the Rows in your 'Table' & then a Pivot Table' will update on that changed data?

[pezalmendra]

Yes exactly!

[noboffinme]

Paste this code into a Module in your workbook, go to Macros & Run the 'Delete_rows_on_cond' Macro.

Please Login or Register  to view this content.

[pezalmendra]

Excellent noboffinme!

Just what I wanted! Thanks!

Regards

[noboffinme]

Glad I could help.