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

[GrayBy]

Нужно сделать такое:
В одной книге два листа. На персом листе прайс(указана наименование, размеры, цены, кол-во-вноситься руками)
Второй лист- оформление заказа и т.д
Нужно, чтобы те поля в прайсе, где указать кол-во, копировались на второй лист. Копироваться должна не вся строка, а несколько ячеек.

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

Заранее биг спс, всем откликнувшимся...
С уважением, Дмитрий.

[tae1980]

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

Нужно сделать такое:
В одной книге два листа. На персом листе прайс(указана наименование, размеры, цены, кол-во-вноситься руками)
Второй лист- оформление заказа и т.д

Кидай образец. Если до понедельника не ответят, то помогу с решением.

[EugeneS]

пример файла?

[GrayBy]

Кидать сам файл, или скрины?

[EugeneS]

файл в архиве, файл в формате .xls прикрепить к сообщению нельзя

[GrayBy]

Вот собсно и сам файл!

[GrayBy]

Он же, но в формате xlsx

[Stiiv]

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

Dim Name As String, ИмяНаряда As String, myPath As String   
ИмяНаряда = Sheets(2).Range("d5") & " " & Sheets(2).Range("d3") & Format(Now, " dd.mm.yy")  'Предлагаемое для сохранения имя файла
    myPath = "C:\"       'Предлагаемый для сохранения путь
    If Sheets(2).Range("d5") <> Empty Then
        With Application.FileDialog(msoFileDialogSaveAs)
            .InitialFileName = myPath & ИмяНаряда
            .Title = "Сохранение Данных в файл!"
            .Show
            If .SelectedItems.Count = 0 Then Exit Sub
            Name = .SelectedItems(1)
            End With
    Else
    MsgBox ("Укажите ФИО ответственного")
    Sheets(2).Range("d5").Select
    End If
 End If

Где Sheets(2).Range("d5") Ответственный
Sheets(2).Range("d3") Цех
Format(Now, " dd.mm.yy") текущая дата в указанном формате
И оно работает, создаётся "документ 1" после его изменения и закрытия видим окно диалога "Сохранить как..." с нужным названием. Вот только после выбора места сохранения и нажатия Ок файл не сохраняется, но зато всплывает родной диалог сохранения с оригинальным названием файла "документ 1" который с сохранением справляется на Ура.

Можно ещё так :

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", А уж после с заданными параметрами и без сохранения.
Оно же ж можно было бы задать путь программно и без диалога, только не я этим шаблоном пользоваться будую. А каждый раз рассказывать куда оно упало мне ой как лениво!!!

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

[GrayBy]

Stiiv сё оки

[EugeneS]

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

Вот собсно и сам файл!

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