При закрытии имя файла с разных ячеек

[valerij]

Мужуки, привет.
Как при закрытии файла, имя файла нужно собрать из ячеек:
(Лист ПУТЁВКА) - G6, H6 и M11 причём в последней взять только Фамилию, остальное отсекает.
Т. е. имя файла при сохранении будет - как пример
35 18.02.14 Шаповалов
В каком виде имя файла(с underscore), последовательность не важно.

[IgorGO]

[g6] & " " & [h6] & " " & left([m11], instr([m11], " ")-1)

[staniiislav]

можно как-то так:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim msg$, iFileName$, iPath$, iPathSeparator$, iSaveName$
On Error Resume Next
msg = "Сохранить изменения в файле '" & ActiveWorkbook.Name & "'?"
    Select Case MsgBox(msg, vbExclamation + vbYesNoCancel)
        Case vbYes
            iFileName = ActiveWorkbook.Name
            iPath = ActiveWorkbook.Path '''
            iPathSeparator = Application.PathSeparator '"\"
            iFileNameSplit = Split(Sheets("ПУТЁВКА").Range("M11").Value, " ")
            iSaveName = Sheets("ПУТЁВКА").Range("G6") & " " & Sheets("ПУТЁВКА").Range("H6") & " " & iFileNameSplit(0) & " " & ".xlsm"
            ActiveWorkbook.SaveCopyAs _
            Filename:=iPath & iPathSeparator & iSaveName
            ThisWorkbook.Save
        Case vbNo
            ThisWorkbook.Saved = True   'не сохраняя книгу, показывает приложению, что она сохранена!!!
        Case vbCancel
            Cancel = True
    End Select
End Sub

[valerij]

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

[g6] & " " & [h6] & " " & left([m11], instr([m11], " ")-1)

IgorGO вот помнишь ты мне говорил ~ заканчивай программировать?
Вот я и закончил, а тут на те пару файлов нужно изменить.
Ну ранее изменил, а это уже дюже сложный для меня.

Не мог бы ты любезно, полный код кинуть, ибо куда мне этот вставлять, ???

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

можно как-то так:

пробую

[valerij]

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

можно как-то так:

Да, получилось.
Спасибо.

А если чуток усложнить.
Что бы новые сохранённые файлы кидать в папки по месяцам?
Сегодня февраль складируем в папку Февраль, завтра март в папку Март....

Ну а с годом думаю, что сам разберусь.
Спасибо.

[doober]

Валера,у меня дежавю?

Сегодня февраль складируем в папку Февраль, завтра март в папку Март..

Я уже это где-то видел в прошлом году

[IgorGO]

Сережа, правильно!!!

год-то поменялся! теперь надо все макросы переписывать под 2014 год.

[valerij]

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

Валера,у меня дежавю?

Я уже это где-то видел в прошлом году

Не, ты путаешь, то SAS делал мне давно ещё в 2008 году(до сих пор пользую), ну очень похожее.
Пробовал втулить, ни как.
http://www.programmersforum.ru/showt...2192#post72192

[doober]

OFF:Валера,Найду я эту тему по словам Игоря

все макросы переписывать под

[valerij]

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

OFF:Валера,Найду я эту тему по словам Игоря

Этих слов у него валом.
Проще помочь мне, чем искать его слова.
А нет, так и нет...

Я ведь один фиг решу.

Вот и всё решено.

staniiislav
Спасибо.