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 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@excelfor um-nospam.com wrote in
message news:SubliminalJones.20q0ps_1135724107.7898@excelf orum-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


--
SubliminalJones
------------------------------------------------------------------------
SubliminalJones's Profile: http://www.excelforum.com/member.php...o&userid=27597
View this thread: http://www.excelforum.com/showthread...hreadid=496293