I'm having an issue with an "object required" error with my macro. I have 14 different pivot tables that are being changed (the filter is being changed). When the error appears, the highlighted part is "Set NewDate14 =" in the last line of the macro part supplied below.
Anyone have any idea on a solution? If you need more info, let me know
Anyone have any idea on a solution? If you need more info, let me know
Code:
Dim PT1, PT2, PT3, PT4, PT5, PT6, PT7, PT8, PT9, PT10, PT11, PT12, PT13, PT14 As PivotTable
Dim Field1, Field2, Field3, Field4, Field5, Field6, Field7, Field8, Field9, Field10, Field11, Field12, Field13, Field14 As PivotField
Dim NewDate1, NewDate2, NewDate3, NewDate4, NewDate5, NewDate6, NewDate7, NewDate8, NewDate9, NewDate10, NewDate11, NewDate12, NewDate13, NewDate14 As String
Set PT1 = Worksheets("netting").PivotTables("Sunday-Day")
Set PT2 = Worksheets("netting").PivotTables("Sunday-Night")
Set PT3 = Worksheets("netting").PivotTables("Monday-Day")
Set PT4 = Worksheets("netting").PivotTables("Monday-Night")
Set PT5 = Worksheets("netting").PivotTables("Tuesday-Day")
Set PT6 = Worksheets("netting").PivotTables("Tuesday-Night")
Set PT7 = Worksheets("netting").PivotTables("Wednesday-Day")
Set PT8 = Worksheets("netting").PivotTables("Wednesday-Night")
Set PT9 = Worksheets("netting").PivotTables("Thursday-Day")
Set PT10 = Worksheets("netting").PivotTables("Thursday-Night")
Set PT12 = Worksheets("netting").PivotTables("Friday-Day")
Set PT12 = Worksheets("netting").PivotTables("Friday-Night")
Set PT13 = Worksheets("netting").PivotTables("Saturday-Day")
Set PT14 = Worksheets("netting").PivotTables("Saturday-Night")
Set Field1 = PT1.PivotFields("Adjustment Date")
Set Field2 = PT2.PivotFields("Adjustment Date")
Set Field3 = PT3.PivotFields("Adjustment Date")
Set Field4 = PT4.PivotFields("Adjustment Date")
Set Field5 = PT5.PivotFields("Adjustment Date")
Set Field6 = PT6.PivotFields("Adjustment Date")
Set Field7 = PT7.PivotFields("Adjustment Date")
Set Field8 = PT8.PivotFields("Adjustment Date")
Set Field9 = PT9.PivotFields("Adjustment Date")
Set Field10 = PT10.PivotFields("Adjustment Date")
Set Field11 = PT11.PivotFields("Adjustment Date")
Set Field12 = PT12.PivotFields("Adjustment Date")
Set Field13 = PT13.PivotFields("Adjustment Date")
Set Field14 = PT14.PivotFields("Adjustment Date")
Set NewDate1 = Worksheets("netting").Range("B1").Value
Set NewDate2 = Worksheets("netting").Range("F1").Value
Set NewDate3 = Worksheets("netting").Range("J1").Value
Set NewDate4 = Worksheets("netting").Range("N1").Value
Set NewDate5 = Worksheets("netting").Range("R1").Value
Set NewDate6 = Worksheets("netting").Range("V1").Value
Set NewDate7 = Worksheets("netting").Range("Z1").Value
Set NewDate8 = Worksheets("netting").Range("AD1").Value
Set NewDate9 = Worksheets("netting").Range("AH1").Value
Set NewDate10 = Worksheets("netting").Range("AL1").Value
Set NewDate11 = Worksheets("netting").Range("AP1").Value
Set NewDate12 = Worksheets("netting").Range("AT1").Value
Set NewDate13 = Worksheets("netting").Range("AX1").Value
Set NewDate14 = Worksheets("netting").Range("BB1").Value