Problem with a recorded macro to create two pivot tables from same data

R

rjamison

All:

I recorded a macro to create two pivot tables. I create the second table
by
copying the first, moving over two columns, paste the data, and them go
into the layout to change the data and column fields.
When I run the macro it gives me a run time error listed below. How do I

change the code to create the second table and fields like I did when I
record it?

Columns("A:B").Select
Selection.Copy
Range("C1").Select
ActiveSheet.Paste
Range("C7").Select
Application.CutCopyMode = False
ActiveSheet.PivotTableWizard TableDestination:="Sheet1!R1C3"

********* Problem starts here *************

Run-time error ‘1004-:
Unable to get the PivotTables property of the worksheet class

ActiveSheet.PivotTables("PivotTable2").AddFields RowFields:="dosmoyr", _

ColumnFields:="transmoyr", PageFields:="facilityid"
ActiveSheet.PivotTables("PivotTable2").PivotFields("Revenue").Orientatio
n =
_
xlHidden
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Sum of
Payments")
..Orientation = xlDataField
..Caption = " Payments"
..NumberFormat = "#,##0.00_);(#,##0.00)"
End With
ActiveSheet.PivotTables("PivotTable2").DataPivotField.PivotItems("
Payments"). _
Position = 1


C. Pete Straman
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Problem with a recorded macro to create two pivot tables from same data 1
Avoiding an extra sheet when creating a pivot table 3
Using macro to switch 'page' in a pivot table? 1
Rename a worksheet to use with a pivot table 1
Run time error when running macro to populate a pivot table 0
Please Help! Need to add a Variable Range in my Excel Macro withPivot Tables 3
VBA Code for a pivot table to open database and to reference table current page 0
Pivot Tables in VBA: Problem with AddFields Method 2

Top