Макрос добавления записи

Анжелика Пользователь Сообщений: 289 Регистрация: 25.06.2015	#1 31.10.2022 09:31:46 Здравствуйте, подскажите пожалуйста решение (код макроса) записи новых данных в список Прикрепленные файлы ПРИМЕР.xlsm (23.97 КБ)

webley

Пользователь

Сообщений: 2158 Регистрация: 01.01.1970

31.10.2022 09:55:05

Добрый день

Ну например так:

Код

Private Sub CommandButton2_Click()
    With ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp)
        .Offset(1, 0) = CDate(Me.TextBox1)
        .Offset(1, 1) = Me.ComboBox1
        .Offset(1, 2) = IIf(IsNumeric(Me.TextBox3), CDbl(Me.TextBox3), Me.TextBox3)
    End With
    Me.Hide
End Sub

Msi2102

Пользователь

Сообщений: 3776 Регистрация: 31.03.2014

31.10.2022 10:07:51

Или так

Код
Private Sub CommandButton2_Click() lr = Cells(Rows.Count, 2).End(xlUp).Row + 1 Cells(lr, 1) = CDate(TextBox1.Value) Cells(lr, 2) = ComboBox1.Value Cells(lr, 3) = TextBox3.Value End Sub

Прикрепленные файлы

ПРИМЕР (2).xlsm (25.16 КБ)

Анжелика Пользователь Сообщений: 289 Регистрация: 25.06.2015	#4 31.10.2022 10:30:22 Благодарю!