how to find row with a given value in a column

[rtos]

Hello ,
I am trying to do following in vba

name value
a 1
b 2
c 3

I know the name value , how do I find whats the row number where the
name='a'.

thx
ray

 

[Ron de Bruin]

Hi

This is a example with a inputbox
Use the commented line if you want to select the cell

Sub Find_First()
Dim FindString As String
Dim Rng As Range
FindString = InputBox("Enter a Search value")
If Trim(FindString) <> "" Then
Set Rng = Range("A:A").Find(What:=FindString, _
After:=Range("A" & Rows.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
'If Not Rng Is Nothing Then Application.Goto Rng, True
If Not Rng Is Nothing Then MsgBox Rng.Row
End If
End Sub

 

[Don Guillett]

one way
sub findrow()
msgbox columns(1).find("a").row
end sub