Pivottables change datatype in vba

[Guest]

But how do change the datatype from default xlCount to xlSum using vba code?
I have trying to slot it into the With End With is that possible?

With .PivotFields("venue")
.Orientation = xlRowField
.Position = 1
End With

TIA
johnb

 

[Roger Govier]

Hi John

If Venue is a Row field, then you cannot use Count or Sum. You can only
apply it to Data fields.

Maybe

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Count of
Venue")
..Function = xlSum
End With

Obvioulsy change PivotTable1 to the number relevant for your sheet.

 

[Guest]

Cheers Roger

johnb

Hi John

If Venue is a Row field, then you cannot use Count or Sum. You can only
apply it to Data fields.

Maybe

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Count of
Venue")
..Function = xlSum
End With

Obvioulsy change PivotTable1 to the number relevant for your sheet.