Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Command Button run-time error
I have a command button on a sheet that is supposed to look through 3 sheets
and refresh pivottables. for some reason it's giving me a runtime error. Here's the code I'm using Sub CommandButton1_Click() Sheets("Cert Tracking YTD Totals").Select ActiveSheet.PivotTables("CT_Totals").RefreshTable ActiveSheet.PivotTables("CT_Losses").RefreshTable ActiveSheet.PivotTables("CT_Product_Totals").Refre shTable ActiveSheet.PivotTables("CT_Product_Losses").Refre shTable Sheets("Cert Tracking Monthly Total").Select ActiveSheet.PivotTables("CT_Monthly_Totals").Refre shTable ActiveSheet.PivotTables("CT_Monthly_Losses").Refre shTable Sheets("CertTracking Monthly Prod Tot").Select ActiveSheet.PivotTables("CT_Monthly_Prod_Totals"). RefreshTable ActiveSheet.PivotTables("CT_Monthly_Prod_Losses"). RefreshTable Sheets("Cert Tracking YTD Totals").Select Range("A1:C2").Select End Sub Can someone tell me whats wrong? If its any help, i originally created the code in excel 2K and i'm trying to edit it in excel97. thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Command Button run-time error
There's a bug in xl97 (fixed in xl2k) that deals with code called from controls
from the control toolbox toolbar that are used on a worksheet. One fix is to change the .takefocusonclick property to false. Another fix is to add: activecell.activate at the top of your code. === And you may want to eliminate some of the selecting: Option Explicit Sub CommandButton1_Click() With Sheets("Cert Tracking YTD Totals") .PivotTables("CT_Totals").RefreshTable .PivotTables("CT_Losses").RefreshTable .PivotTables("CT_Product_Totals").RefreshTable .PivotTables("CT_Product_Losses").RefreshTable End With With Sheets("Cert Tracking Monthly Total") .PivotTables("CT_Monthly_Totals").RefreshTable .PivotTables("CT_Monthly_Losses").RefreshTable End With With Sheets("CertTracking Monthly Prod Tot") .PivotTables("CT_Monthly_Prod_Totals").RefreshTabl e .PivotTables("CT_Monthly_Prod_Losses").RefreshTabl e End With End Sub and if you're updating all the pivottables in all the worksheets: Private Sub CommandButton1_Click() With Me.Parent .RefreshAll End With End Sub Dominique Feteau wrote: I have a command button on a sheet that is supposed to look through 3 sheets and refresh pivottables. for some reason it's giving me a runtime error. Here's the code I'm using Sub CommandButton1_Click() Sheets("Cert Tracking YTD Totals").Select ActiveSheet.PivotTables("CT_Totals").RefreshTable ActiveSheet.PivotTables("CT_Losses").RefreshTable ActiveSheet.PivotTables("CT_Product_Totals").Refre shTable ActiveSheet.PivotTables("CT_Product_Losses").Refre shTable Sheets("Cert Tracking Monthly Total").Select ActiveSheet.PivotTables("CT_Monthly_Totals").Refre shTable ActiveSheet.PivotTables("CT_Monthly_Losses").Refre shTable Sheets("CertTracking Monthly Prod Tot").Select ActiveSheet.PivotTables("CT_Monthly_Prod_Totals"). RefreshTable ActiveSheet.PivotTables("CT_Monthly_Prod_Losses"). RefreshTable Sheets("Cert Tracking YTD Totals").Select Range("A1:C2").Select End Sub Can someone tell me whats wrong? If its any help, i originally created the code in excel 2K and i'm trying to edit it in excel97. thanks -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Command Button Error - Help Needed Urgently Please | Excel Worksheet Functions | |||
run-time error '91'-Close Button error | Excel Discussion (Misc queries) | |||
How to create command button to save the dates and time | Excel Discussion (Misc queries) | |||
How can i use a command button to validate date and time | Excel Discussion (Misc queries) | |||
Run-time error on command button | Excel Programming |