Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Run application" based on condition...
Hi.
Is there a way to add a condition before running an application? For example, using the workbook open code below, I want to run the application (hide_sheets) only IF applicable (only if the sheets are hidden), otherwise bypass the command and do not give me a runtime error. Private Sub Workbook_Open() Application.Run "'PCP DATA & PRODUCTION.xls'!hide_sheets" MsgBox "Hello, welcome to PCP Data & Production" & Format(Date, "ddd d mmm yyyy") End Sub ///////////Actual application/////////// Sub hide_sheets() ' ' hide_sheets Macro ' ' Sheets(Array("ROSTER", "TIMESHEET", "PRODUCTION", "INFO SHEET")).Select ActiveWindow.SelectedSheets.Visible = False End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Run application" based on condition...
On Sep 28, 7:24 am, "J.W. Aldridge"
wrote: Hi. Is there a way to add a condition before running an application? For example, using the workbook open code below, I want to run the application (hide_sheets) only IF applicable (only if the sheets are hidden), otherwise bypass the command and do not give me a runtime error. Private Sub Workbook_Open() Application.Run "'PCP DATA & PRODUCTION.xls'!hide_sheets" MsgBox "Hello, welcome to PCP Data & Production" & Format(Date, "ddd d mmm yyyy") End Sub ///////////Actual application/////////// Sub hide_sheets() ' ' hide_sheets Macro ' ' Sheets(Array("ROSTER", "TIMESHEET", "PRODUCTION", "INFO SHEET")).Select ActiveWindow.SelectedSheets.Visible = False End Sub Hi, can't you just use an error trap? On Error Resume Next 'statements here on error goto 0 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Run application" based on condition...
Thanx...
Wasnt aware of that but I'll try installing that (although I am not too familiar with that command - will play around with it until I get it). |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Run application" based on condition...
Ok... Been lookin everywhere for something to help me understand how to work this code... Not sure. If someone can help me figure out where to insert this and make it functional, I promise I will figure it out from there. On Error Resume Next 'statements here on error goto 0 Private Sub Workbook_Open() Application.Run "'PCP DATA & PRODUCTION.xls'!hide_sheets" MsgBox "Hello, welcome to PCP Data & Production" & Format(Date, "ddd d mmm yyyy") End Sub Thanx |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Run application" based on condition...
Private Sub Workbook_Open()
On Error Resume Next Application.Run "'PCP DATA & PRODUCTION.xls'!hide_sheets" On Error goto 0 MsgBox "Hello, welcome to PCP Data & Production" & Format(Date, "ddd d mmm yyyy") End Sub -- Regards, Tom Ogilvy "J.W. Aldridge" wrote: Ok... Been lookin everywhere for something to help me understand how to work this code... Not sure. If someone can help me figure out where to insert this and make it functional, I promise I will figure it out from there. On Error Resume Next 'statements here on error goto 0 Private Sub Workbook_Open() Application.Run "'PCP DATA & PRODUCTION.xls'!hide_sheets" MsgBox "Hello, welcome to PCP Data & Production" & Format(Date, "ddd d mmm yyyy") End Sub Thanx |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Run application" based on condition...
On Sep 28, 8:23 am, "J.W. Aldridge"
wrote: Ok... Been lookin everywhere for something to help me understand how to work this code... Not sure. If someone can help me figure out where to insert this and make it functional, I promise I will figure it out from there. On Error Resume Next 'statements here on error goto 0 Private Sub Workbook_Open() Application.Run "'PCP DATA & PRODUCTION.xls'!hide_sheets" MsgBox "Hello, welcome to PCP Data & Production" & Format(Date, "ddd d mmm yyyy") End Sub Thanx Hi mate, sorry early in the morning, I should have been clearer. Private Sub Workbook_Open() on Error Goto skipit Application.Run "'PCP DATA & PRODUCTION.xls'!hide_sheets" MsgBox "Hello, welcome to PCP Data & Production" & Format(Date, "ddd d mmm yyyy") skipit: End Sub Note the On Error line with a GoTo, and then the Skipit: at the bottom. Basically if an error is thrown, the lext line to be activated is skipit: Goto's aren't something you should use a lot, but I don't know there is a choice here. Cheers |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
Lower case "a" in "application" | Excel Programming | |||
Macro to concatenate into "B1" B2 thru B"x" based on new data in "Col A" | Excel Discussion (Misc queries) | |||
Sending macro based e-mail with built-in "Heading" and "Text" | Excel Programming | |||
Excel VBA - go to worksheet "name" based on a cell reference ="Name" | Excel Programming |