| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run-Time error '1004: Unable to get the PivotTables property of the worksheet class
HI, Im pretty new to vba, and im currently working with somebody elses code, which is supposed to work but has decided to stop. I get the error from the title at the highlighted code, even though the previous code uses the same pivot table, can anybody help me with ths please: Sub runtables() Sheets("Avail_earth").Select Range("D62").Select ActiveSheet.PivotTables("PivotTable3").PivotCache. Refresh ActiveWindow.ScrollWorkbookTabs Sheets:=-1 Sheets("P_avail_earth").Select Range("D24").Select Application.WindowState = xlNormal ActiveSheet.PivotTables("PivotTable1").PivotCache. Refresh Sheets("Avail_trends").Select Sheets("Fab11_Avail_Earth").Select Range("M24").Select Application.WindowState = xlNormal ActiveSheet.PivotTables("PivotTable1").PivotCache. Refresh Sheets("Fab_11_p_avail_earth").Select Range("D12").Select ActiveSheet.PivotTables("PivotTable2").PivotCache. Refresh Sheets("Avail_trends").Select Sheets("E500_avail").Select Range("D16").Select ActiveSheet.PivotTables("PivotTable1").PivotCache. Refresh Sheets("WST_TPT").Select Range("E16").Select ActiveSheet.PivotTables("PivotTable1").PivotCache. Refresh Sheets("ILine_Wss_earth").Select Range("D8").Select ActiveSheet.PivotTables("PivotTable8").PivotCache. Refresh Sheets("E500_Wss_earth").Select Range("D8").Select ActiveSheet.PivotTables("PivotTable8").PivotCache. Refresh Sheets("WST_TPT").Select Range("D9").Select ActiveSheet.PivotTables("PivotTable8").PivotCache. Refresh Sheets("Wss_earth").Select Range("D63").Select ActiveSheet.PivotTables("PivotTable8").PivotCache. Refresh Sheets("Wss_trends").Select Sheets("tpt_earth").Select Range("M20").Select ActiveSheet.PivotTables("PivotTable2").PivotCache. Refresh ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets("Fab_11_tpt_earth").Select Range("D23").Select ActiveSheet.PivotTables("PivotTable5").PivotCache. Refresh ActiveWindow.ScrollWorkbookTabs Position:=xlFirst ActiveWindow.ScrollWorkbookTabs Sheets:=1 Sheets("Tpt_trends").Select Sheets("E500_Tpt").Select Range("E13").Select Application.CutCopyMode = False ActiveSheet.PivotTables("PivotTable1").PivotCache. Refresh Sheets("A80_earth").Select Range("E16").Select ActiveSheet.PivotTables("PivotTable1").PivotCache. Refresh ActiveWindow.ScrollWorkbookTabs Sheets:=-1 Sheets("A80_trends").Select End Sub -- magarnagle ------------------------------------------------------------------------ magarnagle's Profile: http://www.excelforum.com/member.php...o&userid=34486 View this thread: http://www.excelforum.com/showthread...hreadid=542478 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Error 1004 - unable to set the hastitle property of the axis class | Excel Programming | |||
| Run time error 1004 - unable to get the chartObjects property of the worksheet class | Excel Programming | |||
| Run Time Error 1004 Unable to set hidden property | Excel Programming | |||
| Run time error 1004 - Unable to get add property of the buttons class | Excel Programming | |||
| Run-time error '1004' - Unable to set the Visible property of the Worksheet class | Excel Programming | |||
Threaded Mode
