Simple... Using FIND, I need to get the row and cell

  • Thread starter Thread starter GEdwards
  • Start date Start date
G

GEdwards

Using the FIND below, what do I need to get the row and cell where I find the
match in column B?

With Sheets("Sheet1").Range("B:B")
Set Rng = .Find(What:="I-100421224950", _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
 
It's OK, I got it! Just needed to continue with

If Not Rng Is Nothing Then
Application.Goto Rng, True
MsgBox ActiveCell.Row & "." & ActiveCell.Column
End
 
Try this::

Sub FindaBunchOnumbers()
Columns("B:B").Find(What:="I-100421224950", _
After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

MsgBox ActiveCell.Address
End Sub

Modified from the macro recorder.

HTH
Regards,
Howard
 
You don't have to go to the cell (unless you want to); you could have
continued this way instead...

If Not Rng Is Nothing Then
MsgBox Rng.Row & "." & Rng.Column
End If
 
Back
Top