XLorate by davesexcel

Sub FindColRow()
    Dim Rws As Long, Rng As Range, Fnd As Range, s As String
    s = InputBox("Find What")
    Rws = Cells(Rows.Count, "A").End(xlUp).Row
    Set Rng = Range(Cells(7, 2), Cells(Rws, 8))
    Set Fnd = Rng.Find(what:=s, lookat:=xlWhole)
    If Not Fnd Is Nothing Then
        MsgBox Fnd.Row & " Row" & " " & Fnd.Column & " Column"
    Else: MsgBox "Not Found"
        Exit Sub
    End If

End Sub


Find the row and column of a requested item

Sub SendToRange()
    Dim r As Range, fr As Range    'rows
    Dim c As Range, fc As Range    'columns
    Dim Val As Range
    Set Val = Range("E2")
    Set fr = Range("B2")
    Set fc = Range("C2")
    Set r = Range("A7:A14").Find(what:=fr, lookat:=xlWhole)
    Set c = Range("B6:H6").Find(what:=fc, lookat:=xlWhole)

    If Not r Is Nothing Then
        If Not c Is Nothing Then
            Cells(r.Row, c.Column) = Val.Value
        Else: MsgBox "Not Found"
            Exit Sub
        End If
    Else: MsgBox "Not Found"
    End If

End Sub



This first example you will select the row and column from the dropdown list and then send a value to the coordinates.

Find Rows and Columns with Excel VBA

excel Find Row,excel find column,Excel VBA inputbox