Макрос генерирующий номер счета в журнале счетов с занесением данных

[gregory9791]

Добрый день, форумчане!

Прошу помочь с такой, часто повторяющейся, рутинной задачей, решение которой, думаю, будет полезно многим.

На сетевом диске имеется файл общего доступа "Журнал счетов" в котором регистрируются новые счета в следующем порядке:

1. Менеджер формирует проект счета (см. пример).

2. Далее менеджер запускает требуемый макрос, который регистрирует счет в "Журнале счетов" копируя данные из проекта счета(Исполнитель(яч. N1), Дата(яч. J1), Название организации(яч. O1), Продукция(яч. P1), сумма к оплате(яч. Q1), контракт(яч. R1)) в первую свободную (пустую) строку таблицы "Журнала счетов" и определяет порядковый номер счета.
Все данные для упрощения располагаются в 1-й строке счета и стандартны. Если файл "Журнал счетов" открыт другим пользователем, то должно выходить сообщение: "Журнал счетов занят, попробуйте позже".

3. В проект Счета (в яч. G1) заносится порядковый номер из "Журнала счетов" (в нашем примере это "2" из яч. A3).

4. Далее (опционально) файл счета сохраняется в сетевой папке с диалогом выбора места сохранения с именем по маске: Счет№ <номер счета> от <дата счета> и распечатывается.