Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error handler loop?
My code searches for a string, and if found, does something, then continues
in the loop; if not found , it just re-enters the loop (without doing something). It loops fine through the err handler once, but then it's like it can't "see" it any more. Is this clear? Is the error handler in the wrong place, or this just a real goofy to do what I want to do? TIA, guys My code is: [...blah, blah] On Error GoTo Err_Hand91 Cells.Find(What:=Holiday, After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate ' if no error, must be in holiday cell - call sub foundHoliday NextWeek: X = X + 1 Wend Err_Hand91: If Err.Number = 91 Then Err.Clear GoTo NextWeek End If [blah, blah...] |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error handler loop?
Hi zSplash,
It's hard to figure out what you're trying to do without seeing all the code. But I think you may want to use On Error Resume Next, which will allow execution to continue when an error is encountered. Then you can just check to see if an error did occur - if so, take appropriate action. For example: [...blah, blah] On Error Resume Next Cells.Find(What:=Holiday, After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate ' if no error, must be in holiday cell - call sub If Err.Number=0 Then foundHoliday X = X + 1 Wend [...blah, blah] -- Regards, Jake Marx www.longhead.com zSplash wrote: My code searches for a string, and if found, does something, then continues in the loop; if not found , it just re-enters the loop (without doing something). It loops fine through the err handler once, but then it's like it can't "see" it any more. Is this clear? Is the error handler in the wrong place, or this just a real goofy to do what I want to do? TIA, guys My code is: [...blah, blah] On Error GoTo Err_Hand91 Cells.Find(What:=Holiday, After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate ' if no error, must be in holiday cell - call sub foundHoliday NextWeek: X = X + 1 Wend Err_Hand91: If Err.Number = 91 Then Err.Clear GoTo NextWeek End If [blah, blah...] |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error handler loop?
The current error handler is disabled until a Resume, Exit Sub or
Exit Function is reached. You could try: Resume NextWeek instead of your GoTo... OTOH, you could do it without an error handler at all: Dim found As Range While... Set found = Cells.Find(...) If Not found Is Nothing Then foundHoliday X = X + 1 Wend In article , "zSplash" <zNOSPAMSplash@ gci.net wrote: My code searches for a string, and if found, does something, then continues in the loop; if not found , it just re-enters the loop (without doing something). It loops fine through the err handler once, but then it's like it can't "see" it any more. Is this clear? Is the error handler in the wrong place, or this just a real goofy to do what I want to do? TIA, guys My code is: [...blah, blah] On Error GoTo Err_Hand91 Cells.Find(What:=Holiday, After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate ' if no error, must be in holiday cell - call sub foundHoliday NextWeek: X = X + 1 Wend Err_Hand91: If Err.Number = 91 Then Err.Clear GoTo NextWeek End If [blah, blah...] |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error handler loop?
In the Error Handler routine Err_Hand91: try...
Resume NextWeek instead of Goto NextWeek. Without the resume statement, I think the "On Error" statement will not stay in force, but looking through help did not clarify. "Resume" automatically clears the error. Alex "zSplash" <zNOSPAMSplash@ gci.net wrote in message ... My code searches for a string, and if found, does something, then continues in the loop; if not found , it just re-enters the loop (without doing something). It loops fine through the err handler once, but then it's like it can't "see" it any more. Is this clear? Is the error handler in the wrong place, or this just a real goofy to do what I want to do? TIA, guys My code is: [...blah, blah] On Error GoTo Err_Hand91 Cells.Find(What:=Holiday, After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate ' if no error, must be in holiday cell - call sub foundHoliday NextWeek: X = X + 1 Wend Err_Hand91: If Err.Number = 91 Then Err.Clear GoTo NextWeek End If [blah, blah...] |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error handler loop?
Perfect!! Thanks, guys.
st. "Alex@JPCS" wrote in message . .. In the Error Handler routine Err_Hand91: try... Resume NextWeek instead of Goto NextWeek. Without the resume statement, I think the "On Error" statement will not stay in force, but looking through help did not clarify. "Resume" automatically clears the error. Alex "zSplash" <zNOSPAMSplash@ gci.net wrote in message ... My code searches for a string, and if found, does something, then continues in the loop; if not found , it just re-enters the loop (without doing something). It loops fine through the err handler once, but then it's like it can't "see" it any more. Is this clear? Is the error handler in the wrong place, or this just a real goofy to do what I want to do? TIA, guys My code is: [...blah, blah] On Error GoTo Err_Hand91 Cells.Find(What:=Holiday, After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate ' if no error, must be in holiday cell - call sub foundHoliday NextWeek: X = X + 1 Wend Err_Hand91: If Err.Number = 91 Then Err.Clear GoTo NextWeek End If [blah, blah...] |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Error handler | Excel Discussion (Misc queries) | |||
Error Handler Question | Excel Discussion (Misc queries) | |||
Infinite Loop in Error Handler | Excel Discussion (Misc queries) | |||
Error Handler | Excel Discussion (Misc queries) | |||
Error Handler Not Working | Excel Discussion (Misc queries) |