Thread: on error goto
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default on error goto

If the first is successful, the code then executes the code in the
errorhandler just as you reserved. The label errorhandler1 is nothing but
that, a label. It just marks a position in the code. You could have named
it
Gixxer_J_97:

and use
on Error goto Gixxer_J_97



It would be something like:

<BEGIN VBA CODE
On Error GoTo errorhandler1
Set loc1 = wamer.Offset(Application. _
WorksheetFunction.Match(addCodeBox, _
Range(wamer, find), 1), 0)
goto NextTest
errorhandler1:
Set loc1 =
wamer.Offset(Application. _
WorksheetFunction.Match( _
addCodeBox, Range(wamer, _
find), -1) - 1, 0)
Resume NextTest
NextTest:
<END VBA CODE
--
Regards,
Tom Ogilvy




"Gixxer_J_97" wrote in message
...
Hi all!

i have the following code:

<BEGIN VBA CODE
On Error GoTo errorhandler1
Set loc1 =
wamer.Offset(Application.WorksheetFunction.Match(a ddCodeBox, Range(wamer,
find), 1), 0)

errorhandler1:
Set loc1 =
wamer.Offset(Application.WorksheetFunction.Match(a ddCodeBox, Range(wamer,
find), -1) - 1, 0)
Resume Next
<END VBA CODE

if i am thinking correctly, this should execute the first set loc1 and if

an
error is found, then go to errorhandler1 and execute that code, then

continue
with the next line after resume next - correct?

and if no error found, then it should skip errorhandler1 altogether?

if this is true - why is it not skipping the errorhandler1?
(i have tried commenting out the
on error goto, errorhandler1, the second set loc1, and resume next
and no error is found.

am i not going about this correctly?