[RESOLVED] Range.find

[JavaJesus05]

Ok, right now I have a range.find method to try to...well...find some data...but it keeps giving me an error when the data I'm searching for isn't there.

If IsNull(Cells.Find(What:=Worksheets("Open Orders").Cells(i, 1), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=False).Activate) = True Then
            
    Sheets("Open Orders").Cells(i, "N") = 0
Else
    Sheets("Open Orders").Cells(i, "N") = ActiveCell.Offset(0, 34)
End If

Now, I'm assuming I'll have to change that IsNull to something else to be able to catch it, but I'm not sure what I have to change it to, or if that's even the right direction to go in.

[westconn1]

empty cells don't return null, cells won't accept null
they are = vbnullstring or ""

If Sheets("Open Orders").Cells(i, 1) = "" Then
    Sheets("Open Orders").Cells(i, "N") = 0
Else
    Sheets("Open Orders").Cells(i, "N") = ActiveCell.Offset(0, 34)
End If

pete

[JavaJesus05]

Hmm...that's not quite what I'm trying to do. The Cells(i, 1) holds a value that I'm trying to find in a different worksheet. The only problem is, occasionally there's a value that's not in the worksheet that I'm searching, and when that happens, the Range.find function throws an error...91 I think. What I'd ultimately like to do is to put a zero in the Cells(i, "N") if the error occurs, meaning that there was no match found.

[westconn1]

trap the error with an error handler?
before where you expect the error put

on error goto onerror

straight above end sub put

exit sub
onerror:
if error.number = 91 then cells(i,"N")=0

pete

[JavaJesus05]

That makes sense. I'll try it out tomorrow and see if I can get it to work. Thanks!