PivotItem positioning...
 

Hello All,

I have a macro that runs and creates a pivot table. I included some code
that says to put PivotItem("January") before PivotItem("February"), for
instance. However, sometimes, I may run the macro and the data that is being
used doesn't contain any January items. So, it errors out and tells me that
it couldn't find a column for January. I want to know if there is a way to
merely say "If there is a PivotItem("January"), put it in position 1, else
ignore and look for PivotItem("February"), etc."

Here is a snippet of the code if it helps:

ActiveSheet.PivotTables("PivotTable1").AddDataFiel d ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("CURRENT"), "Sum of CURRENT", xlSum
ActiveSheet.PivotTables("PivotTable1").PivotFields ("Month").PivotItems
_("March").Position = 3
ActiveSheet.PivotTables("PivotTable1").PivotFields ("Month").PivotItems
_("February").Position = 2
ActiveSheet.PivotTables("PivotTable1").PivotFields ("Month").PivotItems
_("January").Position = 1

Any help would be much appreciated.

Thanks,

Trevor

PivotItem positioning...
 

Try the recordcount property of the pivot Item.

--
Regards,
Tom Ogilvy


"Jesterhoz" wrote in message
...
Hello All,

I have a macro that runs and creates a pivot table. I included some code
that says to put PivotItem("January") before PivotItem("February"), for
instance. However, sometimes, I may run the macro and the data that is
being
used doesn't contain any January items. So, it errors out and tells me
that
it couldn't find a column for January. I want to know if there is a way
to
merely say "If there is a PivotItem("January"), put it in position 1, else
ignore and look for PivotItem("February"), etc."

Here is a snippet of the code if it helps:

ActiveSheet.PivotTables("PivotTable1").AddDataFiel d
ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("CURRENT"), "Sum of CURRENT", xlSum
ActiveSheet.PivotTables("PivotTable1").PivotFields ("Month").PivotItems
_("March").Position = 3
ActiveSheet.PivotTables("PivotTable1").PivotFields ("Month").PivotItems
_("February").Position = 2
ActiveSheet.PivotTables("PivotTable1").PivotFields ("Month").PivotItems
_("January").Position = 1

Any help would be much appreciated.

Thanks,

Trevor