on error jump to next item in loop

[mikey1987]

Hello,

I got an issue with my "on error go to" statement.

My code looks pretty much like this:

Dim NbrOfBrands as long
Dim counter as long
Dim Mybrand() as variant


(I populate MyBrand somewhere using the redim statement)

For counter = 1 to NbrOfBrands

'If the listed product is not in the sheet, I want to jump to the next one (so skip everything until the next statement)

On Error GoTo ContinueNextProduct
Cells.Find(what:=MyBrand(counter, 1)).Activate
On Error GoTo 0

' Do some stuff

ContinueNextProduct:
next counter

This goes right once
I skip one of the products that is not in the list, but the second one gives me an error "Object variable or With block variable not set"

Anyone knows what I'm doing wrong?

Regards,
Mikey

 

[mole999]

maybe substitute your error code with On Error Resume Next

 

[mikey1987]

yes but it should skip around 20 lines of code.
So if I encounter an error, I want it to jump to the end of the loop (to the "next counter") and then continue

If I use the on error resume next statement, it would execute all the steps with a brand that doesn't exist.

 

[mikey1987]

Got it
The trick is to exit the loop, end the on error statement and then jump back in

Using the same code:

For counter = 1 to NbrOfBrands

'If the listed product is not in the sheet, I want to jump to the next one (so skip everything until the next statement)

On Error GoTo ContinueNextProduct
Cells.Find(what:=MyBrand(counter, 1)).Activate
On Error GoTo 0

' Do some stuff

NextBrand:
next counter

exit sub

ContinueNextProduct:
on error goto 0
resume NextBrand

end sub

 

[mole999]

AH yes, those 20 lines of not shown code makes a difference

 

[mikey1987]

Yeah, I tried to make it shorter with the "Do some stuff" part
Thanks for your help though! Great site!