find

[ranswert]

I am trying to write a simple "Find" Procedure that I will expand on once I
get it to work. I have:

Range("A1:G16").find(What:="abc", LookIn:=x1Values, LookAt:=x1Whole,
SearchOrder:=x1ByColumns).Activate

When I run it I get a "scpript out of range error". What am I doing wrong?
Thanks

 

[Stefi]

You have a spelling mistake:
write xlValues instead of x1Values etc.!
Use an On Error statement, becouse Find generates an error in case of not
found.

Regards,
Stefi


„ranswert†ezt írta:

 

[Don Guillett]

You might try changing your 1 's to l 's . Not typing here. 1 is no the same
as l.
Also, you need not activate or select to work with your find

mycell=Range("A1:G16").find("abc", LookIn:=xLValues, LookAt:=xLWhole, _
SearchOrder:=xLByColumns).address

 

[ranswert]

Thanks alot

You have a spelling mistake:
write xlValues instead of x1Values etc.!
Use an On Error statement, becouse Find generates an error in case of not
found.

Regards,
Stefi


„ranswert†ezt írta:

 

[Abhishake]

Hope this will help you
through Code make the selection of required range
and 'tofind' is the text you want to find

Set FoundText = Selection.Find(What:=tofind, After:=ActiveCell, LookIn _
:=xlvalues, LookAt:=xlwhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)

If Not FoundText Is Nothing Then
FoundText.Select
FoundCellRow = ActiveCell.Row
Else
End If

 

[Stefi]

You are welcome! Thanks for the feedback!
Stefi

„ranswert†ezt írta:

 

[Dave Peterson]

It's not actually the .find that causes the error. It's the .activate that's
doing the damage.