МАКРОС ДЛЯ СОХРАНЕНИЯ ЗАКАЗОВ ЕКСЕЛЬ2007

[Ирина Розанова]

Доброго времени суток,уважаемые форумчане !

Просьба выручить со следующей ситуацией (уж больно все закручено для меня ))))

Нужно прописать макрос,который будет сохранять файл заказа в папку на диске С,при этом после сохранения возвращаться в текущий файл .

Могу примерно описать что нужно : Есть файл, допустим Заказы ,в нем список - заказ,в ячейках В2:С5+в ячейке А1 есть номер заказа,нужно прописать на кнопку макрос,который при нажатии кнопки будет сохранять (или копировать данный заказ,вместе с форматированием) в новый файл на диск С,в папку Заказы с именем с ячейки А1.После сохранения нужно снова быть в файле Заказ для формирования нового заказа .То есть сформировали заказ ,нажали на кнопку с макросом ,на диске С сформировалась папка с файлом заказа,набрал другой заказ,нажал кнопку,появился другой файл в папке на диске С.Примерно так .

Буду очень благодарна за ваши подсказки !

[EducatedFool]

Sub СверхсложныйМакрос()
    ThisWorkbook.SaveCopyAs "c:\заказы\" & Range("a1") & ".xls"
End Sub

или так

Sub СверхсложныйМакрос()
    On Error Resume Next: MkDir "c:\заказы\"        ' если нет папки такой - создаем её
    ThisWorkbook.SaveCopyAs "c:\заказы\" & Range("a1") & ".xls"
End Sub

[Ирина Розанова]

сколько живу - все более убеждаюсь,что все гениальное просто ))))
СПАСИБО !!!

[Ирина Розанова]

а можно еще добавить как-то,чтоб после сохранения выдавало сообщение."Заказ ячейка А1 сохранен" ...и извините за баловство)))

[gling]

MsgBox "Заказ " & Range("a1") & " сохранен."

Вставьте эту строчку в код перед End Sub

[Hugo121]

Ещё нужно подумать что делать если такой файл уже есть (в общем случае, если вместо номеров будут например названия фирм). Вообще-то система предложит заменить файл или отказаться - но может быть есть смысл в имя файла дописывать дату и время - тогда и вопросов таких не будет, и на одну фирму можно много файлов сохранять, и порядок в файлах можно по этим датам навести.