vba code

[prashanthdivya]

Hi ALL,

Can anyone help me with a code to copy only the first four columns of a pivot table first and paste it in a new sheet and then copy the data field part later and paste it continuously in the new sheet.

Thanks

 

[Andrew Poulsom]

Does this help?

ActiveSheet.PivotTables(1).RowRange.Copy

 

[prashanthdivya]

That works great. Also needed your help on how to select a particular page field item using vba code and also how to copy the data from the Data area of a pivot table.

Thanks a Lot

 

[Andrew Poulsom]

A PageField has a CurrentPage property. A PivotTable also has a DataBodyRange object.