Заполнение 2 листа данными из 3-го листа при событии на 1-м листе

Уважаемые форумчане, добрый вечер!

Бьюсь челом и молю о помощи с решением задачи! Задача очень интересная, но для моих знаний в программировании на VBA непосильная… В совокупности нужно написать 3 макроса:

Макрос 1 «Новый прием»

Лист «Учет приема пациентов»

1) Выводится форма с возможностью внесения следующих параметров:
А) Дата (произвольное значение)
Б) Категория услуг (подтягивается списком из листа «Услуги»/Таблицы «КатегорияУслуг»)
В) Вид услуг (подтягивается списком из листа «Услуги»/Таблицы «ВидУслуг»)
Г) Врач (подтягивается списком из листа «Врачи»/Таблицы «Врачи»)
Д) Точка учета (подтягивается списком из листа «Точки учета»/Таблицы «ТочкиУчета»)
Е) Пациент (подтягивается списком из листа «Пациенты»/Таблицы «Пациенты»)
Ё) Количество услуг (произвольное значение)
Ж) Скидка (произвольное значение)
З) Способ оплаты (наличные/безнал)
И) Опциональная возможность включения постоянных расходов (например, в форме может быть галочка с названием «Включить постоянные расходы»)

2) Введенные в форму данные появляются в соответствующих столбцах таблицы «УчетПациентов» в новой строке внизу


3) В таблице «Расход» на листе «Расход» вносятся следующие записи:
А) Дата (которую вбили в пп. А п. 1)
Б) № приема (Номер приема не вбивали, он должен подтянуться автоматически из таблицы «УчетПациентов». Если 1 макрос сможет автоматически проставлять номер приема как совокупность 2х текущих функций, то было бы здорово)
В) Категория услуг (которую вбили в пп. Б п. 1)
Г) Вид услуг (который вбили в пп. В п. 1)
Д) Точка учета (которую вбили в пп. Д п. 1)

Столбец «Код наименования»: количество позиций и наименования в данном столбце должны соответствовать количеству позиций и наименованиям для данных категории и вида услуг, указанных в таблице «РасходМатериалов» на листе «Расход материалов».

Указанные записи вносятся в новые строки внизу таблицы

Макрос 2 «Удалить прием»

Лист «Учет приема пациентов»

1) Выводится форма с возможностью указания номера приема, который необходимо удалить
2) Удаляются все строки в Таблице «УчетПациентов» с данным номером приема
3) Удаляются все строки в Таблице «Расход» на листе «Расход» с данным номером приема, номера последующих приемов (если они были) корректируются на -1 прием

Макрос 3 «Изменить наименование»

Лист «Номенклатура»

1) Выводится запрос по поводу того, какую позицию хотим переименовать
2) Меняются соответствующие значения в ячейках столбца "Код наименования товара" на листах "Расход" и "Расход материалов" на новые значения

Всем прочитавшим данный пост +1 к карме, всем помогающим +100 к карме! Спасибо!

Вложения

Учет пациентов.xlsx (42.3 Кб, 4 просмотров)

0

Задача очень интересная

кто бы сомневался!
но, думаю, вряд ли кто-то захочет связываться: вопрос не один, а комплексный.
Надо вникать и, практически, просто написать программу (набор макросов) под определённые задачи.
А согласно правил здесь можно задавать только 1 конкретный вопрос.
Если такой вопрос имеется - задавай.

0

Может и интересная, но для тех, кто такого не делал, т.е. для Вас.
Я даже не стал вникать - т.к. интереса нет, а работы тут навскидку явно не на один час, может даже не на один вечер...

0