I created a macro designing a pivot table.
when i copy the code into the VB application the pivot table shows a count instead of a sum!!!
Any ideas why?
Cheers
manclarky
0
Newbie Poster
Recommended Answers
Jump to PostI created a macro designing a pivot table.
when i copy the code into the VB application the pivot table shows a count instead of a sum!!!Any ideas why?
Cheers
Hmn, Post the relevant code?
All 3 Replies
Comatose
290
Taboo Programmer
Team Colleague
I created a macro designing a pivot table.
when i copy the code into the VB application the pivot table shows a count instead of a sum!!!Any ideas why?
Cheers
Hmn, Post the relevant code?
manclarky
0
Newbie Poster
Good idea - Sorry!!!
xlApp.ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Sheet1!R1C1:R14C3").CreatePivotTable TableDestination:=xlApp.Range("E10"), TableName:="PivotTable2"
xlApp.ActiveSheet.PivotTables("PivotTable2").SmallGrid = False
With xlApp.ActiveSheet.PivotTables("PivotTable2").PivotFields("Event Date")
.Orientation = xlRowField
.Position = 1
End With
With xlApp.ActiveSheet.PivotTables("PivotTable2").PivotFields("Product")
.Orientation = xlColumnField
.Position = 1
End With
With xlApp.ActiveSheet.PivotTables("PivotTable2").PivotFields("Cost")
.Orientation = xlDataField
.Position = 1
End With
xlSheet.Application.CommandBars("PivotTable").Visible = False
xlSheet.Range("G16").Select
Comatose
290
Taboo Programmer
Team Colleague
And You Paste that whole thing into VB?
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.