Pivot tables - Sum instead of Count

H

hiunnati

Hi,

What is the exact code which will give me Sum instead of Count for
Pivot Field?

I have used following code but it gave me error

Sheets("Summary").PivotTables("PivotTable1").PivotFields("Duration").Orientatio
= xlDataField

Sheets("Summary").PivotTables("PivotTable1").PivotFields("Duration").Functio
= xlSum

I got the following error

Run-time error '1004'

Unable to set the Function property of the PivotField class


Can you help me?

Regard
 
D

Debra Dalgleish

You could use code similar to this:

'==========================
Sub PivotTest()
Dim pt As PivotTable
Dim pf As PivotField

Set pt = Sheets("Summary").PivotTables("PivotTable1")
Set pf = pt.PivotFields("Duration")

With pf
.Orientation = xlDataField
.Function = xlSum
End With
End Sub
'===================
 
H

hiunnati

Thanks!!!
It works :)

Debra said:
You could use code similar to this:

'==========================
Sub PivotTest()
Dim pt As PivotTable
Dim pf As PivotField

Set pt = Sheets("Summary").PivotTables("PivotTable1")
Set pf = pt.PivotFields("Duration")

With pf
.Orientation = xlDataField
.Function = xlSum
End With
End Sub
'===================

hiunnati wrote:
Hi,

What is the exact code which will give me Sum instead of Count for a
Pivot Field?

I have used following code but it gave me error


Sheets("Summary").PivotTables("PivotTable1").PivotFields("Duration").Orientation
= xlDataField


Sheets("Summary").PivotTables("PivotTable1").PivotFields("Duration").Function
= xlSum

I got the following error

Run-time error '1004'

Unable to set the Function property of the PivotField class


Can you help me?

Regards
Click to expand...
 
Top