Добавление строки в таблицу по нажатию кнопки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление строки в таблицу по нажатию кнопки (Макросы/Sub)

1avgur1

Дата: Понедельник, 13.04.2015, 00:07 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте.
Есть 3 листа: Календарь, Дневник питания, База данных.
На листе "База данных" хранятся данные о продуктах и служебная информация, с помощью которой на листе "Дневник питания" формируется комбобокс с контекстным поиском. После выбора в комбобоксе продукта, под ним формируется строка с данными с листа "База данных". Надо, чтобы по нажатию кнопки "Добавить" эта строка копировалась в конец таблицы учета, которая ниже находится.

Посмотрел другие аналогичные темы на этом форуме. Вроде все просто, а понять не могу, как же все-таки в макросе определить место, куда вставлять строку.
И еще вопрос: как надо модернизировать стлПродукты (или как новую таблицу создать) в диспетчере имен, чтобы ее можно было применить в формуле ВПР в ячейках под комбобоком для переноса данных из Базы данных на лист Дневник питания.

К сообщению приложен файл: _v.0.2.xlsm (24.2 Kb)

Ответить

Leanna

Дата: Понедельник, 13.04.2015, 00:43 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 78 ±

Замечаний: 0% ±

excel 2010

Здравствуйте,
По кнопке добавить - значение из комбобокса ищется в БД и оттуда копируется строчка.

UPD Перечитала ваше задание, если надо только строчку копировать вниз, то код проще
[vba]

Код

Sub test()
lr = Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & lr + 1, "E" & lr + 1).Value = Range("A8", "E8").Value
End Sub

[/vba]

К сообщению приложен файл: combov.0.2.xlsm (28.4 Kb)

Лучше день потерять, потом за пять минут долететь!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление строки в таблицу по нажатию кнопки (Макросы/Sub)

Страница 1 из 1
1