Pivot Table in Macro

[sjonelunas]

I'm having some trouble with this one. I have a macro that created a pivot table then runs through pivot field options to copy and paste selected data into other sheets. I'm trying to figure out how to tell the macro that if one of the choices isn't yet a choice in the source data to move on to the next one. I tried:

On Error Resume Next
    ActiveSheet.PivotTables("PivotTable7").PivotFields("MRP Code").CurrentPage = _
        "HEV"
    On Error GoTo 0

Instead of moving on to the next line of code it changes the pivot field to read HEV and moves on as if it were real when HEV wasn't really a choice in the drop down box.

Any suggestions? Does this make any sense?

Thanks!

 

[mole999]

part of your problem appears to be, is that on error resume next, its doing just that, finding an error and carrying on

 

[sjonelunas]

I thought it would flag it as an error because HEV is not yet an option in the drop down box for the report view, but it isn't. It's changing the option in the report field box as if it were typing over it and changing the name of the currently selected page field.

I'm trying to figure out how to keep it from changing the name of the page field and to just error if it's not an option.