ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Pivot Table Macro to run in XL2000 (https://www.excelbanter.com/excel-programming/302148-pivot-table-macro-run-xl2000.html)

Jonathan May

Pivot Table Macro to run in XL2000
 
I have an Excel2003 macro that creates a pivot table; I now need to ge
it to run in Excel 2000. I don't have access to any Excel 2000 hel
and I'm stuck!

The relevent part of the Excel 2003 macro is as follows

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
"'Data'!R1C2:R" & lrow & "C26").CreatePivotTabl
TableDestination:= _
"'[Invoicing v0.01.xls]Data'!R1C30", TableName:="PivotTable3"
With ActiveSheet.PivotTables("PivotTable3").PivotFields ("Orde
No.")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable3").AddDataFiel
ActiveSheet.PivotTables( _
"PivotTable3").PivotFields("Pick & Pack"), "Pick & Pack Total"
xlSum

etc...

On running this in Excel 2000 the code crashes with the last two line
highlighted...

...Any advice on what to change for to make it run would be very muc
appreciated!

Thanks in advance for any help
Jonatha

--
Message posted from http://www.ExcelForum.com


Tom Ogilvy

Pivot Table Macro to run in XL2000
 
AddDataField doesn't appear to be a method available in xl2000.

--
Regards,
Tom Ogilvy


"Jonathan May " wrote in
message ...
I have an Excel2003 macro that creates a pivot table; I now need to get
it to run in Excel 2000. I don't have access to any Excel 2000 help
and I'm stuck!

The relevent part of the Excel 2003 macro is as follows

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
"'Data'!R1C2:R" & lrow & "C26").CreatePivotTable
TableDestination:= _
"'[Invoicing v0.01.xls]Data'!R1C30", TableName:="PivotTable3"
With ActiveSheet.PivotTables("PivotTable3").PivotFields ("Order
No.")
Orientation = xlRowField
Position = 1
End With
ActiveSheet.PivotTables("PivotTable3").AddDataFiel d
ActiveSheet.PivotTables( _
"PivotTable3").PivotFields("Pick & Pack"), "Pick & Pack Total",
xlSum

etc...

On running this in Excel 2000 the code crashes with the last two lines
highlighted...

..Any advice on what to change for to make it run would be very much
appreciated!

Thanks in advance for any help
Jonathan


---
Message posted from http://www.ExcelForum.com/




Jonathan May[_2_]

Pivot Table Macro to run in XL2000
 
Thanks Tom - that certainly helps!
Jonatha

--
Message posted from http://www.ExcelForum.com



All times are GMT +1. The time now is 10:36 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com