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

 

[schielrn]

See here:

http://www.cpearson.com/excel/errorhandling.htm

You can use On Error Resume Next, but it will resume on any error.

Hope that helps.

 

[blacktour]

On Error Resume Next ignores the error and processes the next line of code. If I use a On Error Go To ErrorHandle

ErrorHandle:
'leave blank


Next X

This still doesn't work. It just tries the same row again instead of going to the next line in the spreadsheet?

 

[GTO]

Can you show us the whole loop?

 

[blacktour]

Effectively what I want is the following:

If Error Occurs Then
Next X
End If

I can't figure out how to use the Error Handling to make this happen?

 

[blacktour]

Can you show us the whole loop?

It is a lot of code with password information and website information that I can't display.

 

[GTO]

okay. With this data:

Excel Workbook
	A
1	2
2	3
3	4
4	A
5	2
6	3
Sheet1

Excel 2003

Sub exa()
Dim i As Long, a As Long
    
    On Error Resume Next
    For i = 1 To 7
        a = a + Cells(i, 1)
    Next
End Sub

...would seem to do what you want?

 

[gaj104]

Maybe take a step back. When you say error occurs. What exactly is occurring.

If its a recurring actual outcome (i.e. it is not there) then you should be able to handle it.

Error handling is usually for unexpected errors.

If there wasn't the existance of "Not there" in the A column this code would error:

For i = 1 To 10

     Set r = Range("A:A").Find("Not there")


Next i

To handle this, this code handles where the value "Not there" in the A column. If it doesn't exist then it goes to the next i item

For i = 1 To 10

    If Not Range("A:A").Find("Not there") Is Nothing Then
    
        'do code here
    
    End If

Next i

 

[blacktour]

I think that is what I want so if there was an error that occurred in the a = a + Cells(i, 1)
then I want it to loop to the next 'i' in this case. Mine is not looping to the next 'i' it is just skipping the error and processing the next line of code?

 

[blacktour]

Maybe take a step back. When you say error occurs. What exactly is occurring.

If its a recurring actual outcome (i.e. it is not there) then you should be able to handle it.

Error handling is usually for unexpected errors.

If there wasn't the existance of "Not there" in the A column this code would error:

For i = 1 To 10

     Set r = Range("A:A").Find("Not there")


Next i

To handle this, this code handles where the value "Not there" in the A column. If it doesn't exist then it goes to the next i item

For i = 1 To 10

    If Not Range("A:A").Find("Not there") Is Nothing Then
    
        'do code here
    
    End If

Next i

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. Is there not way to say if there is any error just skip all the code and skip to A6?