in reference to thread707-521563 code that i was given was helpful, but it turned off VBA's ability to catch any error, is there anyway i can do the same thing as was asked in this thread, but just for one specific error that i can catch and put an msgbox, but have vba catch all other errors the same way it does, thanks!!
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
help with errors!
- Thread starter Luis939
- Start date
- Thread starter
- #2
i should have clarified what i said, i have this code that i got from my past thread
Sub main()
On Error GoTo ErrH
Cells.Find (<insert find code here>)
Exit Sub
ErrH:
Select Case Err.Number
Case 123
MsgBox "Blah, blah"
Case 456
MsgBox "Blah, blah, blah"
Case Else
MsgBox "No Error, but I thought I'd let you know"
End Select
End Sub
but the thing is, that code will disable VBAs ability to tell you what the exact error is, this code allows you to do whatever you want in case you get an error, but you have to acccount for all possible errors you may encounter, I want to be able to just isolate one error (run time error 9) and put a message box, and let VBA handle all other errors, i hope thats clear to everyone, if its not please let me know, thank you all!!!
Sub main()
On Error GoTo ErrH
Cells.Find (<insert find code here>)
Exit Sub
ErrH:
Select Case Err.Number
Case 123
MsgBox "Blah, blah"
Case 456
MsgBox "Blah, blah, blah"
Case Else
MsgBox "No Error, but I thought I'd let you know"
End Select
End Sub
but the thing is, that code will disable VBAs ability to tell you what the exact error is, this code allows you to do whatever you want in case you get an error, but you have to acccount for all possible errors you may encounter, I want to be able to just isolate one error (run time error 9) and put a message box, and let VBA handle all other errors, i hope thats clear to everyone, if its not please let me know, thank you all!!!
SkipVought
Programmer
Hi,
Skip,
Skip@TheOfficeExperts.com
Code:
With Err
MsgBox "Error #=" & .Number & " Error message is " & .Description
End WithSkip,
Skip@TheOfficeExperts.com
- Thread starter
- #4
yea thats a simpler way of doing the same thing that i posted before, but that occurs whenever you get any error, i just wanted to do the same thing u did, but for just one specific error, so if error 9 happens, then i put that msg box by employing your code, but if there is any other kind of error, then i dont want that code to be activated, i just want to get the normal msg box VBA gives you
SkipVought
Programmer
Either you handle the errors or VBA does.
Skip,
Skip@TheOfficeExperts.com
Skip,
Skip@TheOfficeExperts.com
- Thread starter
- #6
TonyJollans
Programmer
Hi 4335,
You may not want to do this, but you can check for your own error and then, if there was a different error, turn off your error handler and execute the statement which causes the error again, this time letting VBA catch it. With your code:
Enjoy,
Tony
You may not want to do this, but you can check for your own error and then, if there was a different error, turn off your error handler and execute the statement which causes the error again, this time letting VBA catch it. With your code:
Code:
Sub main()
On Error GoTo ErrH
Cells.Find (<insert find code here>)
Exit Sub
ErrH:
Select Case Err.Number
Case 123
MsgBox "This is the error I want to catch"
Case Else
Code:
On Error GoTo 0
Resume
Code:
End Select
End SubEnjoy,
Tony
- Thread starter
- #8
SkipVought
Programmer
Thats the way you can switch back, BUT for any particular error, if you have Error Resume Next, then YOU have to handle the error.
Skip,
Skip@TheOfficeExperts.com
Skip,
Skip@TheOfficeExperts.com
- Thread starter
- #10
- Status
Similar threads
- Locked
- Question
