a formula that return the cell location in a range

D

danpt

Element value is in A4 and the range is A5:E30
B4 is to show the location

Element value may not be unique.
Thanks
 
G

Gary''s Student

Try this small UDF:

Function WhereInTheWorld(rf As Range, r As Range) As String
Dim rr As Range
WhereInTheWorld = "No Luck"
v = rf.Value
For Each rr In r
If rr.Value = v Then
WhereInTheWorld = Replace(rr.Address, "$", "")
Exit Function
End If
Next
End Function


and use in the worksheet like:


=WhereInTheWorld(A4,A5:E40)
 
D

danpt

Thank you very much.
It works great.


Gary''s Student said:
Try this small UDF:

Function WhereInTheWorld(rf As Range, r As Range) As String
Dim rr As Range
WhereInTheWorld = "No Luck"
v = rf.Value
For Each rr In r
If rr.Value = v Then
WhereInTheWorld = Replace(rr.Address, "$", "")
Exit Function
End If
Next
End Function


and use in the worksheet like:


=WhereInTheWorld(A4,A5:E40)
Click to expand...
 
R

Rick Rothstein

If the OP was willing to tolerate an error being returned if the search
fails (as opposed to your "No Luck" message), then a one-line UDF will
work...

Function WhereIs(rf As Range, r As Range) As String
WhereIs = r.Find(rf.Value, r(r.Count), , xlWhole, xlByRows).Address(0, 0)
End Function

Of course, if he didn't want the error, it would take a couple of extra
lines...

Function WhereIs(rf As Range, r As Range) As String
WhereIs = "No Luck"
On Error Resume Next
WhereIs = r.Find(rf.Value, r(r.Count), , xlWhole, xlByRows).Address(0, 0)
End Function
 
Top