search by keyword

Hello and "Happy Days off for Celebrating Something...or not".

I was trying to make a macro that would allow me to type a word in A1, and touch an object to do a keyword search based on A1.

Can I do that?


Thanks all!!

SJ.

Hi Subliminal,

Try assigning the following code to a button::

'=============>>
Public Sub Tester001()
Dim rng As Range
Dim rngFound As Range
Dim sStr As String

Set rng = Range("A1")
sStr = rng.Value

Set rngFound = Cells.Find(What:=sStr, _
After:=Selection, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext)

If rngFound.Address = rng.Address Then
Set rngFound = Cells.FindNext(rngFound)
End If

rngFound.Activate

End Sub
'<<=============

If you were unsure of the required syntax, you would find the macro recorder
an invaluable tool.


---
Regards,
Norman


"SubliminalJones"
<SubliminalJones.20q0ps_1135724107.7898@excelforum-nospam.com> wrote in
message news:SubliminalJones.20q0ps_1135724107.7898@excelforum-nospam.com...
>
> Hello and "Happy Days off for Celebrating Something...or not".
>
> I was trying to make a macro that would allow me to type a word in A1,
> and touch an object to do a keyword search based on A1.
>
> Can I do that?
>
>
> Thanks all!!
>
> SJ.
>
>
> --
> SubliminalJones
> ------------------------------------------------------------------------
> SubliminalJones's Profile:
> http://www.excelforum.com/member.php...o&userid=27597
> View this thread: http://www.excelforum.com/showthread...hreadid=496293
>

Hi Norman,

Thanks for the help. It works good but it gives an error message that highlights

Set rngFound = Cells.Find(What:=sStr, _
After:=Selection, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext)

in the debugger. It appears to have a problem with

SearchDirection:=xlNext)

Any suggestions?

Thanks again, SJ