Finding a cell

  • Thread starter Thread starter Himszy
  • Start date Start date
H

Himszy

If I wish to find a cell containing some text, how do I find it and then
place the grid reference in a variable.

Thanks Michael
 
the "grid reference" is in the variable rng

Dim rng as Range
sStr = "text"
set rng = Cells.find(what:=sStr, _
LookIn:=xlValues, LookAt:=xlPart)
if not rng is nothing then
msgbox rng.Address
else
msgbox sStr & " Not Found!"
End if
 
Thanks Tom


Tom Ogilvy said:
the "grid reference" is in the variable rng

Dim rng as Range
sStr = "text"
set rng = Cells.find(what:=sStr, _
LookIn:=xlValues, LookAt:=xlPart)
if not rng is nothing then
msgbox rng.Address
else
msgbox sStr & " Not Found!"
End if
Click to expand...
 
Dim rng as Range
sStr = "text"
set rng = Cells.find(what:=sStr, _
LookIn:=xlValues, LookAt:=xlPart)
if not rng is nothing then
msgbox rng.Address(0,0)
else
msgbox sStr & " Not Found!"
End if
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

FIND ALL 1
Best way to run Find or Vlookup down specific column in range 2
Data exchange between macro and spreadsheet 1
Code to do a simple clean of one column by copying and pasting(finding and replacing) phrases in adj 4
find and scroll to cell string value in Excel 2
hard time with If InStr(1, .. 3
Find and replace with bold in cells 3
How to store relative cell values in variables & check it 2

Back
Top