-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
exit macro when cancel or no is selected
- Thread starter joelanin
- Start date
Mohammad Basem
Well-known Member
- Joined
- Dec 24, 2011
- Messages
- 1,218
Welcome to the board!
Please post your macro so it would be possible understanding and modifying it.
Please post your macro so it would be possible understanding and modifying it.
Upvote
0
Thanks for your reply.
here's my code.
ActiveWorkbook.SaveAs Filename:=myfilename
MsgBox ("File Saved.")
The above code works fine if the "myfilename" doent exists. When the filename already exists, a display allerts message pops up that says"filename exists. Do you want to replace it? if user clicks OK, the code works fine as is. But when the button NO or CANCEL is clicked, the program displays error message,,, end or debug..... I want to terminate the code when NO or CANCEL is selected, how is it done? thanks
here's my code.
ActiveWorkbook.SaveAs Filename:=myfilename
MsgBox ("File Saved.")
The above code works fine if the "myfilename" doent exists. When the filename already exists, a display allerts message pops up that says"filename exists. Do you want to replace it? if user clicks OK, the code works fine as is. But when the button NO or CANCEL is clicked, the program displays error message,,, end or debug..... I want to terminate the code when NO or CANCEL is selected, how is it done? thanks
Upvote
0
hi Mohammad,
Thank you for replying.
The simple code below will simulate the problem.
Sub Macro1()
Range("A1").Select
ActiveCell.FormulaR1C1 = "fdsfdsfdsfdsfds"
ActiveWorkbook.SaveAs Filename:= _
"C:\Book1.xls"
MsgBox ("File Saved.")
End Sub
I d like to get rid of the run time error when the NO or CANCEL button is selected. How is it done? Thanks
Thank you for replying.
The simple code below will simulate the problem.
Sub Macro1()
Range("A1").Select
ActiveCell.FormulaR1C1 = "fdsfdsfdsfdsfds"
ActiveWorkbook.SaveAs Filename:= _
"C:\Book1.xls"
MsgBox ("File Saved.")
End Sub
I d like to get rid of the run time error when the NO or CANCEL button is selected. How is it done? Thanks
Upvote
0
Mohammad Basem
Well-known Member
- Joined
- Dec 24, 2011
- Messages
- 1,218
Thank you for the quick reply.
Which of the following statements are you using to save the workbook?
If it is the first, what is the value of myfilename? In other words, does it include the path or just the name?
Which of the following statements are you using to save the workbook?
Code:
[FONT="Consolas"][SIZE="2"][COLOR="Navy"]ActiveWorkbook.SaveAs Filename:=myfilename[FONT="Verdana"][COLOR="Black"]
Or[/COLOR][/FONT]
ActiveWorkbook.SaveAs Filename:= "C:\Book1.xls"[/COLOR][/SIZE][/FONT]If it is the first, what is the value of myfilename? In other words, does it include the path or just the name?
Upvote
0
FormR
MrExcel MVP
- Joined
- Aug 18, 2011
- Messages
- 7,351
- Office Version
- 365
- Platform
- Windows
Maybe like this:
Code:
Sub Macro1()
On Error GoTo ErrorHandle
ActiveWorkbook.SaveAs Filename:= _
"C:\Book1.xls"
MsgBox ("File Saved.")
ExitRoutine:
Exit Sub
ErrorHandle:
MsgBox "File not saved."
Resume ExitRoutine
End Sub
Upvote
0
Norie
Well-known Member
- Joined
- Apr 28, 2004
- Messages
- 76,377
- Office Version
- 365
- Platform
- Windows
You need to check yourself if the file exists.
Code:
If Dir("C:\Book1.xls") <> "" Then
Resp = Msgbox("File exists. Do you want to overwrite it?", vbYesNoCancel)
' check for No or Cancel
If Resp <> vbYes Then Exit Sub
End If
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Book1.xls"
MsgBox ("File Saved.")
Application.DisplayAlerts = True
Upvote
0
Similar threads
