Найти ячейку с записью из приглашения пользователя и установить активную ячейку

Question

Я ищу простой макрос, который будет отображать приглашение пользователя для значения, а затем искать столбец A для этого значения и перейти к этой ячейке

Answer 1

Это найти строку:

Sub FindAndGo()
    Dim x As String, r As Range
    With Application
        x = .InputBox(Prompt:="Enter search value", Type:=2)
        Set r = Range("A:A").Cells.Find(what:=x, after:=Range("A1"))
        .Goto r
    End With
End Sub

внести правильные изменения, чтобы найти номер.