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



Find Rows and Columns with Excel VBA

excel Find Row,excel find column,Excel VBA inputbox

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


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

XLorate by davesexcel

Find the row and column of a requested item