Assign a macro to create a pivot table

  • Thread starter Thread starter acsugguiyao
  • Start date Start date
A

acsugguiyao

I am currently creating a macro from a data worksheet but I am receiving
an error.
:(

Initially, I just recorded the macro however when I am running it, i am
receiving an addfields method of Pivot Table Class failed.

ActiveSheet.PivotTables("PivotTable4").AddFields RowFields:="Level 3",
_
ColumnFields:="Date"

this is code that was having an error and I am not sure what was wrong
with it?
Can someone forward me a sample of the macro code to resolve this?

Alib
 
I suspect the problem lies in a disconnect in your code and your data. The
sample code follows the proper syntax for the function. It is possible that
the condition of the table at the time the code is run does not permit this
modification. Only you can tell that by working through your code a step at
a time and examining the situation.

--
Regards,
Tom Ogilvy


"acsugguiyao" <[email protected]>
wrote in message
news:[email protected]...
 
I am still unable to find out what is wrong...

this is the whole code. is there a limitation since my rows is ~4000
rows and I just selected 13 columns?

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'AS1-C'!C1:C13").CreatePivotTable TableDestination:= _
"'[Data Comparison - test1.xls]AS1'!R1C1",
TableName:="PivotTable10", _
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("PivotTable10").AddFields RowFields:="Level
3", _
ColumnFields:="Date"

ActiveSheet.PivotTables("PivotTable10").PivotFields("RTF").Orientation
= _
xlDataField
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False

Please help :confused:
 
Back
Top