Hi,

I'm trying to write a macro that removes all items in the "data" field of a
pivot table. To remove a particular field, in this case the field called "Sum
of FP01" you could use a macro such as this:

ActiveSheet.PivotTables("Central").PivotFields("Su m of FP01").Orientation = _
xlHidden

However if you do not have that field in the table it creates and error.

How would I say "remove ANY data from the data field?"

Many thanks, Brad

Hi

Dim PF as PivotField
With ActiveSheet.PivotTables("Central")
For Each PF In .PivotFields
.Orientation = xlHidden
Next PF
End With

regards
Paul

ActiveSheet.PivotTables("Central").PivotFields("Su m of
FP01").Orientation = _
xlHidden

On Nov 13, 10:24*am, Bradley Searle
wrote:
Hi,

I'm trying to write a macro that removes all items in the "data" field of a
pivot table. To remove a particular field, in this case the field called "Sum
of FP01" you could use a macro such as this:

ActiveSheet.PivotTables("Central").PivotFields("Su m of FP01").Orientation = _
* * * * xlHidden

However if you do not have that field in the table it creates and error.

How would I say "remove ANY data from the data field?"

Many thanks, Brad

Thanks for your help Paul!

I think your code will probably take all fields away (not just the
datafields) - but having not tested it I'm not 100%.

I've not tested it because I found a solution - it is:

ActiveSheet.PivotTables("Central").DataPivotField. Orientation = xlHidden

This simply removes all the data fields, leaving row, column and filter
fields in tact.

" wrote:

Hi

Dim PF as PivotField
With ActiveSheet.PivotTables("Central")
For Each PF In .PivotFields
.Orientation = xlHidden
Next PF
End With

regards
Paul

ActiveSheet.PivotTables("Central").PivotFields("Su m of
FP01").Orientation = _
xlHidden

On Nov 13, 10:24 am, Bradley Searle
wrote:
Hi,

I'm trying to write a macro that removes all items in the "data" field of a
pivot table. To remove a particular field, in this case the field called "Sum
of FP01" you could use a macro such as this:

ActiveSheet.PivotTables("Central").PivotFields("Su m of FP01").Orientation = _
xlHidden

However if you do not have that field in the table it creates and error.

How would I say "remove ANY data from the data field?"

Many thanks, Brad