Ignore Error

[mouse88]

I get errors on the following line of code as it may pick up data that I dont actually need.

Is there any way I can get it to ignore the error if it doesn't find what it is lookin for.

Set Rng = Range("SummaryRange").Find(AgentData(X).Name).Offset(0, 10)

 

[Jonmo1]

Yes, but you then need to test wether it was found or not..

Try

Dim Rng As Range
 
On Error Resume Next 'Ignore Errors
Set Rng = Range("SummaryRange").Find(AgentData(X).Name).Offset(0, 10)On Error Goto 0 'Resume nomal error handling
 
If Not Rng Is Nothing Then
    'Action to perform if the value IS found
Else
    'Do nothing if the value is NOT found
End If

Hope that hels.

 

[Norie]

Instead of if ignoring the error you could check if the search was successful.

Set rngFind= Range("SummaryRange").Find(AgentData(X).Name)

If rng Is Nothing Then

       ' search failed

Else

     Set Rng = rngFnd.Offset(0, 10)
End If