Суббота, Май 30, 2020

Ввод в следующую пустую ячейку

Sub GetData()
    Dim NextRow As Long
    Dim Entry1 As String, Entry2 As String
    Do
        'Определение следующей пустой ячейки
        NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
        'Запрос на ввод данных
        Entry1 = InputBox("Введите имя")
        If Entry1 = "" Then Exit Sub
        Entry2 = InputBox("Введите количество")
        If Entry2 = "" Then Exit Sub
        'Запись данных
        Cells(NextRow, 1) = Entry1
        Cells(NextRow, 2) = Entry2
        'Exit Do
    Loop
End Sub

Back to Top