vba - .find error object not set

[georgep93]

                                Set check = dataws.Range("A:A").Find(What:=.Cells(i, 2).Value, LookAt:=xlPart).Offset(0, 1)
                                
                                If Not check Is Nothing Then
                                   .Cells(i, 13) = check.Value
                                Else
                                    .Cells(i, 13) = "N/A"
                                End If

I thought the above would handle an error if nothing was found, the code errors on the first line saying it's not set. I know that it won't set but i want it to write N/A if it doesn't find anything. Anyone have a better way of doing it?

Thanks.

 

[hiker95]

georgep93,

In order to assist you it would help us if you posted all of your macro code using code tags.

When posting VBA code, please use Code Tags - like this:

[code=rich]

'Paste your code here.

[/code]

 

[Marcelo Branco]

Try

Set check = dataws.Range("A:A").Find(What:=.Cells(i, 2).Value, LookAt:=xlPart)
                                
If Not check Is Nothing Then
   .Cells(i, 13) = check.Offset(0, 1).Value
Else
    .Cells(i, 13) = "N/A"
End If

M.

 

[georgep93]

hi sorry think i've wasted your time here i found it straight after posting.. typical:

                                Set check = dataws.Range("A:A").Find(What:=.Cells(i, 2).Value, LookAt:=xlPart)
                                If Not check Is Nothing Then
                                   .Cells(i, 13) = check.Offset(0, 1).Value
                                Else
                                    .Cells(i, 13) = "N/A"
                                End If

just needed to move the offset

 

[Marcelo Branco]

Yes, exactly like my post above.

M.

 

[georgep93]

sorry! I had not refreshed the page