On Error loop to next 'x'

[blacktour]

I have a program running and I am having problems with error handling. The program is in a loop, it loops through numbers on a spreadsheet looks up the numbers in a website if the number is there it works flawlessly. If the number isn't there it gives an error.

It is a For x = 5 to 'Max' (variable)

When any kind of error hits I want it to look to the next x so if it is on 15 I want it to skip it and go to 16? Any ideas how to accomplish this?

Thanks,
Mike

 

[GTO]

Okay, you are saying that you want it, in essence, to go to the bottom of the loop (the Next) if it runs into a non-numeric?

 

[gaj104]

The error actually occurrs when it logs onto the website and tries to look up the value from A5 on the spreadsheet. Then it crashes.

I'd be focussing on what is happening here. I presume logging on isn't a problem.

How are you doing the lookup, i.e. what specific line of code does the search?

 

[GTO]

Sub exa()
Dim i As Long, a As Long
    
    On Error Resume Next
    For i = 1 To 6
        
        If Not IsNumeric(Cells(i, 1)) Then GoTo Jump
        a = a + Cells(i, 1)
        
        MsgBox "Other code"
        
Jump:
    Next
End Sub

Maybe, but do we need to worry bout an empty cell? If so, add IF NOT Cells(i,1).value = vbNullString

 

[blacktour]

Sub exa()
Dim i As Long, a As Long
    
    On Error Resume Next
    For i = 1 To 6
        
        If Not IsNumeric(Cells(i, 1)) Then GoTo Jump
        a = a + Cells(i, 1)
        
        MsgBox "Other code"
        
Jump:
    Next
End Sub

Maybe, but do we need to worry bout an empty cell? If so, add IF NOT Cells(i,1).value = vbNullString

FIXED!!!! This is exactly what I was looking for. My code when it found the right website it copied that data to an new workbook in excel. I also didn't have it going back to the original workbook so it was picking up the next 'x' on the new workbook which was empty. Thanks so much everyone, you saved me again!!!!!!!

 

[GTO]

Sorry - take out the On Error Resume Next, that was sloppy of me.

 

[mikerickson]

For i = 1 To 5
    Rem some code

    On Error Goto NextLoop
    Rem possible erroring code
    On Error Goto 0
 
    Rem other code

NextLoop:
    Err.Clear
    On Error Goto 0
Next i