Всем доброго времени суток! Помогите, пожалуйста, не знающему написать макрос. Имеется папка на диске D: с программкой, из которой требуется сохранять работу в виде файла "заказ №_" в папку заказы, которая находится в под папке с программкой. Есть очень много похожих тем но слепить у меня не чего не получается с этого.
Всем доброго времени суток! Помогите, пожалуйста, не знающему написать макрос. Имеется папка на диске D: с программкой, из которой требуется сохранять работу в виде файла "заказ №_" в папку заказы, которая находится в под папке с программкой. Есть очень много похожих тем но слепить у меня не чего не получается с этого.dx
Я написал макрос макро рекордером, пожалуйста, под прав те требуется единственное, чтобы при сохранении в папку заказы всплывал запрос, Имя файла Заказ № Так как я писал макро рекордером естественно у меня это не получилось
Я написал макрос макро рекордером, пожалуйста, под прав те требуется единственное, чтобы при сохранении в папку заказы всплывал запрос, Имя файла Заказ № Так как я писал макро рекордером естественно у меня это не получилосьdx
Wasilic, Совершилось чудо! Огромное вам спасибо! Я бы хотел вас еще спросить, а возможно такое, например, исключить человеческий фактор, допустим, я забыл при закрытие файла проставить номер заказа в ячейку А1. В этом случае, что бы выскакивало диалоговое окно, с какой не будь подсказкой или запретом о закрытие файла
Wasilic, Совершилось чудо! Огромное вам спасибо! Я бы хотел вас еще спросить, а возможно такое, например, исключить человеческий фактор, допустим, я забыл при закрытие файла проставить номер заказа в ячейку А1. В этом случае, что бы выскакивало диалоговое окно, с какой не будь подсказкой или запретом о закрытие файлаdx
Sub мк() If Range("A1") = "" Then MsgBox "Укажите № заказа": Exit Sub ActiveWorkbook.SaveAs Filename:="D:\Программа\Заказы\Заказ № " & Range("A1") & ".xlsm" Range("A1") = "" End Sub
[/vba] А, что бы не сохранить с одинаковым номером, после сохранения "№ стирается.
[vba]
Код
Sub мк() If Range("A1") = "" Then MsgBox "Укажите № заказа": Exit Sub ActiveWorkbook.SaveAs Filename:="D:\Программа\Заказы\Заказ № " & Range("A1") & ".xlsm" Range("A1") = "" End Sub
[/vba] А, что бы не сохранить с одинаковым номером, после сохранения "№ стирается.Wasilich
Сообщение отредактировал Wasilic - Четверг, 05.12.2013, 00:13
Имеется папка ..., из которой требуется сохранять ... в папку заказы, которая находится в под папке с программкой.
ThisWorkbook.Path дает нам путь, по которому лежит файл, в котором находится макрос. Если нужно вручную, то так и напишите во второй строке p_="тут_пишете_нужный_путь"
Имеется папка ..., из которой требуется сохранять ... в папку заказы, которая находится в под папке с программкой.
ThisWorkbook.Path дает нам путь, по которому лежит файл, в котором находится макрос. Если нужно вручную, то так и напишите во второй строке p_="тут_пишете_нужный_путь"_Boroda_
Wasilic, Доброго времени суток, а вы можете не много ваш макрос подкорректировать все хорошо, но есть одно но, после сохранения заказа при закрытие книги выпадает диалоговое окно сохранить заказ или нет машинально можно ошибиться и не сохранить в этом случае при открытие заказа в заказе не будет отображаться № заказа.
Wasilic, Доброго времени суток, а вы можете не много ваш макрос подкорректировать все хорошо, но есть одно но, после сохранения заказа при закрытие книги выпадает диалоговое окно сохранить заказ или нет машинально можно ошибиться и не сохранить в этом случае при открытие заказа в заказе не будет отображаться № заказа.dx
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
В 10 ку! То, что надо! Огромное вам СПАСИБО! 
