Добавление новой записи из формы VBA в нужный столбец

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

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

17.10.2017 13:21:01

Добрый день. Люди умные, подскажите пожалуйста. На вкладке "Лист" есть кнопка "Добавить запись", при нажатии выскакивает окно с CobmoBox и TextBox. Необходимо, чтобы при нажатии кнопки "Добавить запись" запись добавлялась последней по счету на лист "1" в столбец в соответствующей значению ComboBox.
Заранее спасибо, с меня причитается..

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

11122111.xlsm (38.23 КБ)

Sanja

Модератор

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

17.10.2017 13:28:59

Цитата
nox142 написал: с меня причитается

Поподробнее напишите в личку

Код

Private Sub CommandButton1_Click()
With Worksheets("1")
    iClm = .Range("B1:AA1").Find(ComboBox1.Value).Column
    .Cells(.Cells(.Rows.Count, iClm).End(xlUp).Row + 1, iClm) = Me.TextBox1.Value
End With
End Sub

Согласие есть продукт при полном непротивлении сторон

Nordheim

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

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

17.10.2017 13:31:06

Код

Private Sub CommandButton1_Click()
Dim lrow&, icolumn&
With Лист1
    icolumn = .Rows(1).Find(ComboBox1.Value).Column
    lrow = .Cells(.Rows.Count, icolumn).End(xlUp).Row + 1
    .Cells(lrow, icolumn) = TextBox1.Value
End With
End Sub

"Все гениальное просто, а все простое гениально!!!"