Перенос данных из списка в таблицу

[Gerasim971]

Привет, вкратце опишу суть всего
Есть лист ввод данных, после того как вводишь там данные по нажатию кнопки они переносятся в лист "База данных", далее необходимо сделать чтобы при выборе человека из списка на странице "ввод данных" все его введенные данные перенеслись в лист где находиться справка 2 НДФЛ
Собственно эту кнопку я и не могу сделать. Нужна помощь. Я вообще не в VBA вообще практически не шарю

[Aleksandr H.]

Сообщение от Gerasim971

Я вообще не в VBA вообще практически не шарю

Так делай на VBA раз не в VBA не шаришь. В чем трабла?

Сообщение от Gerasim971

Собственно эту кнопку я и не могу сделать.

А что можешь сделать из этого задания?

[Hugo121]

Сообщение от Gerasim971

Собственно эту кнопку я и не могу сделать.

- можно кнопку вообще не делать - используйте для вызова макроса любую автофигуру или любой другой рисунок/изображение.

[pu4koff]

На кнопку добавить можно какой-то такой код завесить:

Private Sub CommandButton1_Click()
    r = 2
    
    Do While (Sheets("База данных").Cells(r, 1) <> "")
        r = r + 1
        pn = Sheets("База данных").Cells(r, 1).FormulaR1C1
    Loop
    
    Sheets("База данных").Cells(r, 1).FormulaR1C1 = r - 1
    Sheets("База данных").Cells(r, 2).FormulaR1C1 = Sheets("Ввод данных").Range("B16").FormulaR1C1
    Sheets("База данных").Cells(r, 3).FormulaR1C1 = Sheets("Ввод данных").Range("B17").FormulaR1C1
    Sheets("База данных").Cells(r, 4).FormulaR1C1 = Sheets("Ввод данных").Range("B18").FormulaR1C1
End Sub