Макрос переноса с одного листа в таблицу?

Макрос переноса с одного листа в таблицу?, Как реализовать макрос переноса с одного листа в таблицу?

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

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

24.06.2019 11:41:45

Всем доброго времени суток.
Прошу помощи у ГУРУ.
Скорее всего вопрос детский, но для меня космос.
Есть два листа "ФОРМА", "Таблица"
Хотелось бы после заполнения ячеек на листе "ФОРМА" и нажатия на кнопку "ПРОВЕСТИ" данные переносились в первую пустую строку на лист "Таблица" и присваивался новый порядковый номер строки.
Через поисковик искал похожее, не нашел.
Прошу помощи.
Заранее откликнувшимся спасибо

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

Пример заполнения.xlsm (13.23 КБ)

_Igor_61 Пользователь Сообщений: 3007 Регистрация: 18.07.2016	#2 24.06.2019 11:50:06 С объединенными ячейками потом возникнут проблемы. Лучше Вам пойти другим путем

skais675 Пользователь Сообщений: 2211 Регистрация: 03.06.2014	#3 24.06.2019 11:50:41 Решение. Прикрепленные файлы Пример заполнения.xlsm (20.51 КБ) Мой канал

Иван Фильченков Пользователь Сообщений: 208 Регистрация: 27.12.2012	#4 24.06.2019 11:55:42 _Igor_61, skais675 спасибо за помощь. _Igor_61 замечательная ссылка буду изучать. skais675 для быстрой реализации на скорую руку то что надо Еще раз спасибо

Nordheim

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

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

24.06.2019 12:27:35

Либо немного сократив код

Код

Sub Button1_Click()
    With Sheets("Таблица")
        cr = .Cells(.Rows.Count, "C").End(xlUp).Row + 1
        .Cells(cr, "C") = .Cells(cr - 1, "C") + 1
        .Cells(cr, "D").Resize(, 9) = Array([G6], [g7], [g8], [G10], [g11], [g12], [G14], [g15], [g16])
    End With
    MsgBox "Внесли!"
End Sub

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