Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error Message
Using Excel 2007 and Win 7
The following macro has suddenly started displaying the error message even thou the file is saved correctly to the server. Private Sub CommandButton4_Click() 'Save Work Master Application.ScreenUpdating = False Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:\Quotes\Master7.xlsm" On Error GoTo ehandler ActiveWorkbook.SaveAsFilename:="\\SERVER3\JOBS\EST IMATE1\Master7.xlsm" Range("A1").Select Range("A5").Select ehandler: MsgBox "You cancelled the save or an error has occured connecting to the server. Check your connection and try again ", vbCritical + vbOKOnly, "File not saved!" End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error Message
Hi oldjay,
The msgbox is the next line of code so it will always execute. You need an Exit Sub immediately prior to label ehandler: so that it only processes code past the label if it is sent there by the error. Exit Sub ehandler: -- Regards, OssieMac "oldjay" wrote: Using Excel 2007 and Win 7 The following macro has suddenly started displaying the error message even thou the file is saved correctly to the server. Private Sub CommandButton4_Click() 'Save Work Master Application.ScreenUpdating = False Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:\Quotes\Master7.xlsm" On Error GoTo ehandler ActiveWorkbook.SaveAsFilename:="\\SERVER3\JOBS\EST IMATE1\Master7.xlsm" Range("A1").Select Range("A5").Select ehandler: MsgBox "You cancelled the save or an error has occured connecting to the server. Check your connection and try again ", vbCritical + vbOKOnly, "File not saved!" End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error Message
You saved me again OzzieMac = Thanks
"OssieMac" wrote: Hi oldjay, The msgbox is the next line of code so it will always execute. You need an Exit Sub immediately prior to label ehandler: so that it only processes code past the label if it is sent there by the error. Exit Sub ehandler: -- Regards, OssieMac "oldjay" wrote: Using Excel 2007 and Win 7 The following macro has suddenly started displaying the error message even thou the file is saved correctly to the server. Private Sub CommandButton4_Click() 'Save Work Master Application.ScreenUpdating = False Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:\Quotes\Master7.xlsm" On Error GoTo ehandler ActiveWorkbook.SaveAsFilename:="\\SERVER3\JOBS\EST IMATE1\Master7.xlsm" Range("A1").Select Range("A5").Select ehandler: MsgBox "You cancelled the save or an error has occured connecting to the server. Check your connection and try again ", vbCritical + vbOKOnly, "File not saved!" End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Error Handler displaying message when no error | Excel Programming | |||
replace VBA run-time error message with custom message | Excel Programming | |||
error message: compile error, argument not optional | Excel Programming | |||
changing the message in an error message | Excel Worksheet Functions | |||
How do I get rid of "Compile error in hidden module" error message | Excel Discussion (Misc queries) |