Заполнение имени, при сохранении. Автозаполнение выбранных ячеек

[GrayBy]

что должно быть в результате? Где пример результата или делать на свое усмотрение, а Вы самостоятельно подправите "напильником"?

Собсно, как и писал выше:
На листе "Прайс" выбираем нужную продукцию и ставим её количество( в поле опт или розницу), например 10. После этого, данные в полях наименование, кол-во, и размеры должны автоматически перенестись на лист "Оформление", и разместиться в соответствующие ячейки: "Номенкулатура, Кол-во, размер"
Если не понятно объясняю, пишите, попробую ещё раз более подробнее).

[EugeneS]

Сообщение от GrayBy

Собсно, как и писал выше:
На листе "Прайс" выбираем нужную продукцию и ставим её количество( в поле опт или розницу), например 10. После этого, данные в полях наименование, кол-во, и размеры должны автоматически перенестись на лист "Оформление", и разместиться в соответствующие ячейки: "Номенкулатура, Кол-во, размер"
Если не понятно объясняю, пишите, попробую ещё раз более подробнее).

см. вложение

[GrayBy]

Оо.. Биг спс. А мб расскажите как так сделали?
А на вторую мою просьбу не поможете?

Второй вопрос: нужно сделать так, чтобы при нажатии "Сохранить как", в имя файла автоматически вносилась инфа с нескольких ячеек. Например:
Дата(дата не сегодняшняя, а выставленная руками), статус(перезвонить,отгрузить), и номер клиента(мобильный номер, внесённый так же руками).

[EugeneS]

см. вложение

Файл сохраняется с именем:

"дд.мм.гггг_статусзаказа_контакт№1" .xls

в папку размещения оригинального файла. В формировании названия файла принимают участие ячейки: j22, j20, j13 листа "Оформление"

[EugeneS]

Сообщение от Stiiv

И я с похожим вопросом, но только для xlt
С помощью поиска по этому сайту написано было следующее
....
Можно ещё так :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.GetSaveAsFilename (Sheets(2).Range("d5") & " " & Sheets(2).Range("d3") & Format(Now, " dd.mm.yy"))'
End Sub

Но в этом случае сначала всплывает диалог со стандартным "документ 1", А уж после с заданными параметрами и без сохранения.
Оно же ж можно было бы задать путь программно и без диалога, только не я этим шаблоном пользоваться будую. А каждый раз рассказывать куда оно упало мне ой как лениво!!!

Вопрос: Где засада, как её обойти?
Прошу прощения у автора темы за её развитие не много не в туда

Предлагаю следующий вариант:

модуль размещается в "Эта книга"

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then    
Application.SaveCopyAs (ThisWorkbook.path & Sheets(2).Range("d5") & " " & Sheets(2).Range("d3") & Format(Now, " dd.mm.yy"))
End if: End Sub

Правил без проверки, проверьте самостоятельно

[GrayBy]

В очередной раз биг респект!
Есть ещё пару вопрсов. Можно ли как-нить изменить папку сохранения?
При нажатии "Сохранить как", файл сохраняется как нужно. А можно ли ещё добавить, чтобы при редактировании файла и нажатии"Сохранить", файл тоже изменял имя?

Немного доработал файл, если не затруднит проведите, уже сделанные вами, манипуляции над новым файлом( в сохранении внести данные из: "Оформление" ФИО заказчика(В19),Дата действия(J23), Статус заказа(J20)+ если возможно добавить вышеописанные функции.

В очередной раз биг спс. И ещё раз крайне признателен
С уважением, Дмитрий.

[GrayBy]

Вот новый файл в формате xlsm

[GrayBy]

Путь сохранения файл: D:\РАБОТА\ЗАКАЗЫ

[EugeneS]

Сообщение от GrayBy

В очередной раз биг респект!
Есть ещё пару вопрсов. Можно ли как-нить изменить папку сохранения?

Да, можно. Теперь файл с именем дата_статусзаказа_контакт1 будет сохраняться в D:\РАБОТА\ЗАКАЗЫ

Сообщение от GrayBy

При нажатии "Сохранить как", файл сохраняется как нужно. А можно ли ещё добавить, чтобы при редактировании файла и нажатии"Сохранить", файл тоже изменял имя?

Операция "Сохранить" предполагает сохранение изменений в данном файле не изменяя его имя. Такую операцию необходимо выполнять через "Сохранить как" или, возможно, я не совсем понял Ваш вопрос. Приведите пример Ваших действий над файлом и что необходимо получить в результате.

Сообщение от GrayBy

Немного доработал файл, если не затруднит проведите, уже сделанные вами, манипуляции над новым файлом( в сохранении внести данные из: "Оформление" ФИО заказчика(В19),Дата действия(J23), Статус заказа(J20)+ если возможно добавить вышеописанные функции.

Файл изменен. Смотрите вложение.

[GrayBy]

Операция "Сохранить" предполагает сохранение изменений в данном файле не изменяя его имя. Такую операцию необходимо выполнять через "Сохранить как" или, возможно, я не совсем понял Ваш вопрос. Приведите пример Ваших действий над файлом и что необходимо получить в результате.

Давайте я объясню, что я хочу в результате.
Я забиваю заказа, нажимаю "Сохранить как", и заказ сохраняется.
Например стоит статус заказа "Перезвонить". На завтра я перезваниваю клиенту, и мы с ним договориваемся, тогда я ставлю в заказе статус "Отгружаем", но когда я нажму "Сохранить" в имени заказа останется прошлое имя(где фигурировало "Перезвонить". А если я нажму "Сохранить как", получится 2 одинаковых заказа.
Так вот в идеале, я хочу, чтобы при нажатии сохранить, имя файла тоже изменилось, в зависимости от статуса...
Понимаю, что хочу очень многого...
Может какой-нить мона написать макрос, и вынести кнопку с ним на быструю панель?