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

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.
--
Regards

Roger Govier


"johnb" wrote in message
...
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

Cheers Roger

johnb

"Roger Govier" wrote:

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.
--
Regards

Roger Govier


"johnb" wrote in message
...
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