I want to trap an error I get in a macro

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Mary - 31 Mar 2006 22:33 GMT

Hello,

I am trying to show some values using msgbox after using FIND. But when I
try to find a value that does not exist in the sheet I get an error:
Run_time: "91"

h = InputBox("Type number of holes to find")

For X = 1 To h

np = InputBox("type the name of the hole:")

Cells.Find(What:=np, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate

N = ActiveCell
L = ActiveCell.Offset(0, 1)
S = ActiveCell.Offset(0, 2)

MsgBox ("Pozo:" & " " & N & " " & "Linea:" & " " & L & " " &
"Serial:" & " " & S)

End If

Next

How can I trap this run-time error?

Thanks

Reply to this Message

lcifers - 31 Mar 2006 22:43 GMT

Mary,

You should google "On Error Resume Next" and "On Error GoTo". I think
this is what you're looking for.

Regards,

> Hello,
>
[quoted text clipped - 27 lines]
>
> Thanks

Reply to this Message

Bob Phillips - 31 Mar 2006 22:45 GMT

h = InputBox("Type number of holes to find")

For X = 1 To h

np = InputBox("type the name of the hole:")

Set Cell = Cells.Find(What:=np, _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not Cell Is Nothing Then
N = Cell.Value
L = Cell.Offset(0, 1).Value
S = Cell.Offset(0, 2).Value

MsgBox ("Pozo:" & " " & N & " " & "Linea:" & _
" " & L & " " & "Serial:" & " " & S)
End If

Next

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

> Hello,
>
[quoted text clipped - 27 lines]
>
> Thanks

Reply to this Message