jignesh142
10-21-2014, 01:55 AM
hi can any one help me , i am getting Runtime error 1004- Applicaton defined , object defined error after the first pt5 run ( ie.when pt4 executes)
Private Sub CommandButton1_Click()
Dim pt2, pt4, pt5, pt6, pt8, pt9, pt10, pt11 As PivotTable
Set pt5 = Sheets(2).PivotTables("PivotTable5")
pt5.PivotFields("Operation Number").ClearAllFilters
pt5.PivotFields("Operation Number").CurrentPage = Range("L2").Value
Set pt4 = Sheets(2).PivotTables("PivotTable4")
pt4.PivotFields("Operation Number").ClearAllFilters
pt4.PivotFields("Operation Number").CurrentPage = Range("L2").Value
Set pt2 = Sheets(2).PivotTables("PivotTable2")
pt2.PivotFields("Operation Number").ClearAllFilters
pt2.PivotFields("Operation Number").CurrentPage = Range("L2").Value
Set pt10 = Sheets(2).PivotTables("PivotTable10")
pt10.PivotFields("Operation Number").ClearAllFilters
pt10.PivotFields("Operation Number").CurrentPage = Range("L2").Value
Set pt11 = Sheets(2).PivotTables("PivotTable11")
pt11.PivotFields("Operation Number").ClearAllFilters
pt11.PivotFields("Operation Number").CurrentPage = Range("L2").Value
Set pt6 = Sheets(2).PivotTables("PivotTable6")
pt6.PivotFields("Operation Number").ClearAllFilters
pt6.PivotFields("Operation Number").CurrentPage = Range("L2").Value
Set pt8 = Sheets(2).PivotTables("PivotTable8")
pt8.PivotFields("Operation Number").ClearAllFilters
pt8.PivotFields("Operation Number").CurrentPage = Range("L2").Value
Set pt9 = Sheets(2).PivotTables("PivotTable9")
pt9.PivotFields("Operation Number").ClearAllFilters
pt9.PivotFields("Operation Number").CurrentPage = Range("L2").Value
End Sub
Private Sub CommandButton1_Click()
Dim pt2, pt4, pt5, pt6, pt8, pt9, pt10, pt11 As PivotTable
Set pt5 = Sheets(2).PivotTables("PivotTable5")
pt5.PivotFields("Operation Number").ClearAllFilters
pt5.PivotFields("Operation Number").CurrentPage = Range("L2").Value
Set pt4 = Sheets(2).PivotTables("PivotTable4")
pt4.PivotFields("Operation Number").ClearAllFilters
pt4.PivotFields("Operation Number").CurrentPage = Range("L2").Value
Set pt2 = Sheets(2).PivotTables("PivotTable2")
pt2.PivotFields("Operation Number").ClearAllFilters
pt2.PivotFields("Operation Number").CurrentPage = Range("L2").Value
Set pt10 = Sheets(2).PivotTables("PivotTable10")
pt10.PivotFields("Operation Number").ClearAllFilters
pt10.PivotFields("Operation Number").CurrentPage = Range("L2").Value
Set pt11 = Sheets(2).PivotTables("PivotTable11")
pt11.PivotFields("Operation Number").ClearAllFilters
pt11.PivotFields("Operation Number").CurrentPage = Range("L2").Value
Set pt6 = Sheets(2).PivotTables("PivotTable6")
pt6.PivotFields("Operation Number").ClearAllFilters
pt6.PivotFields("Operation Number").CurrentPage = Range("L2").Value
Set pt8 = Sheets(2).PivotTables("PivotTable8")
pt8.PivotFields("Operation Number").ClearAllFilters
pt8.PivotFields("Operation Number").CurrentPage = Range("L2").Value
Set pt9 = Sheets(2).PivotTables("PivotTable9")
pt9.PivotFields("Operation Number").ClearAllFilters
pt9.PivotFields("Operation Number").CurrentPage = Range("L2").Value
End Sub