Так.. наконец-то что-то сработало. Переписал все в новом файле, вставил текст макроса туда, куда Вы сказали.
Только как-то очень интересно срабатывает. Открываю бланк, потом хочу его закрыть - предлагает сохранить именно этот файл. Сохраняешь его или не сохраняешь, после того как закрываю файл, на рабочем столе появляется еще один файл с именем blank N3, когда его открываю, там все красиво, число стоит не как ф-я, а как число. Когда я делаю SaveAs именно файлу бланка с нужным мне именем (номер накладной, название фирмы), он сохраняется в таком же виде (т.е. в файле остается функция).
Так.. наконец-то что-то сработало. Переписал все в новом файле, вставил текст макроса туда, куда Вы сказали.
Только как-то очень интересно срабатывает. Открываю бланк, потом хочу его закрыть - предлагает сохранить именно этот файл. Сохраняешь его или не сохраняешь, после того как закрываю файл, на рабочем столе появляется еще один файл с именем blank N3, когда его открываю, там все красиво, число стоит не как ф-я, а как число. Когда я делаю SaveAs именно файлу бланка с нужным мне именем (номер накладной, название фирмы), он сохраняется в таком же виде (т.е. в файле остается функция).DAKRAY
А если у меня в файле 4 разных бланка (у каждого свой Sheet)? Если я укажу в остальных бланках = той самой ячейке, которая у нас уже прописана, там наверное бардак начнется? Просто пока еще не определился оставлять все бланки в одном файле или разбить на несколько, тогда естественно проблема бы отпала, но тогда все рабочие кнопки придется переписывать.
А если у меня в файле 4 разных бланка (у каждого свой Sheet)? Если я укажу в остальных бланках = той самой ячейке, которая у нас уже прописана, там наверное бардак начнется? Просто пока еще не определился оставлять все бланки в одном файле или разбить на несколько, тогда естественно проблема бы отпала, но тогда все рабочие кнопки придется переписывать.DAKRAY
Если 4 бланка, то на событие макрос вешать не стоит. Стоит присвоить, например хоткей. Или кнопку на панель. Тогда и правда, как советовал Михаил, убрать формулу и макросом вставлять число.
Если 4 бланка, то на событие макрос вешать не стоит. Стоит присвоить, например хоткей. Или кнопку на панель. Тогда и правда, как советовал Михаил, убрать формулу и макросом вставлять число.KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Сообщение отредактировал KuklP - Пятница, 13.12.2013, 18:54
А вот как сделать как в самом начале Serge писал [A1]=[A1].value (допустим =TODAY() будет в ячейке А1). Т.е. чтобы при открытии файла находящийся в ячейке А1 =TODAY() сразу писал это значение и все? Потом сохраняю с этим числом и все? Или это тоже геморой?
Я уже наверное достал Вас)) Сорре.
А вот как сделать как в самом начале Serge писал [A1]=[A1].value (допустим =TODAY() будет в ячейке А1). Т.е. чтобы при открытии файла находящийся в ячейке А1 =TODAY() сразу писал это значение и все? Потом сохраняю с этим числом и все? Или это тоже геморой?
Отличнооооооу.)))) Наконец-то!!! ВСЕ ИМЕННО ТАК!!!
[vba]
Код
Private Sub Workbook_Open() Sheet3.[E5] = Date Sheet6.[E5] = Date Sheet1.[F8] = Date Sheet5.[F8] = Date End Sub
[/vba]
И во всех бланках сегодняшняя дата. Огромное спасибищщщще, KuklP!!! Все оказалось на столько просто) А столько суеты наверное из-за того, что я некорректно упомянул именно про Save As в своем первом посте, суть задачи то от этого не изменилась. Простите еще раз, что так Вас озадачил. Еще раз спасибо, спасибо, спасибо!
Отличнооооооу.)))) Наконец-то!!! ВСЕ ИМЕННО ТАК!!!
[vba]
Код
Private Sub Workbook_Open() Sheet3.[E5] = Date Sheet6.[E5] = Date Sheet1.[F8] = Date Sheet5.[F8] = Date End Sub
[/vba]
И во всех бланках сегодняшняя дата. Огромное спасибищщщще, KuklP!!! Все оказалось на столько просто) А столько суеты наверное из-за того, что я некорректно упомянул именно про Save As в своем первом посте, суть задачи то от этого не изменилась. Простите еще раз, что так Вас озадачил. Еще раз спасибо, спасибо, спасибо! DAKRAY
Не знаю может это поможет. В модуле книге оставьте код KuklP, а этот [vba]
Код
Sub copiya() Dim Fname As String Application.ScreenUpdating = False Fname = "D:\" & Sheets("Лист1").Range("A1").Value & Range("B1").Text & "_" & Format(Date, "DD-MM-YYYY") & ".xlsx" 'Здесь можно указать путь и имя копии файла Sheets(Array("Лист1", "Лист2")).Copy 'Здесь можно указать листы, которые будут сохраняться в копии файла Sheets("Лист1").Range("E1").Value = Format(Date, "dd.mm.yyyy") ActiveSheet.DrawingObjects.Delete 'удаление всех кнопок With ActiveWorkbook Application.DisplayAlerts = False .SaveAs Filename:=Fname Application.ScreenUpdating = True Application.DisplayAlerts = True .Close End With End Sub
[/vba] повесите на кнопку сохранения
Не знаю может это поможет. В модуле книге оставьте код KuklP, а этот [vba]
Код
Sub copiya() Dim Fname As String Application.ScreenUpdating = False Fname = "D:\" & Sheets("Лист1").Range("A1").Value & Range("B1").Text & "_" & Format(Date, "DD-MM-YYYY") & ".xlsx" 'Здесь можно указать путь и имя копии файла Sheets(Array("Лист1", "Лист2")).Copy 'Здесь можно указать листы, которые будут сохраняться в копии файла Sheets("Лист1").Range("E1").Value = Format(Date, "dd.mm.yyyy") ActiveSheet.DrawingObjects.Delete 'удаление всех кнопок With ActiveWorkbook Application.DisplayAlerts = False .SaveAs Filename:=Fname Application.ScreenUpdating = True Application.DisplayAlerts = True .Close End With End Sub
Private Sub Workbook_Open() If Me.Name <> "MyDate.xls" Then Exit Sub Sheet3.[E5] = Date Sheet6.[E5] = Date Sheet1.[F8] = Date Sheet5.[F8] = Date End Sub
[/vba] Если сохранить это под другим именем, дата меняться не будет.
Можно проще: [vba]
Код
Private Sub Workbook_Open() If Me.Name <> "MyDate.xls" Then Exit Sub Sheet3.[E5] = Date Sheet6.[E5] = Date Sheet1.[F8] = Date Sheet5.[F8] = Date End Sub
[/vba] Если сохранить это под другим именем, дата меняться не будет.KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
KuklP, все четко! Наконец-то). Моей благодарности нет границ!
antal10б, благодарю и Вас, за потраченое время, к сожалению, у меня даже не открывает .xlsm, да и 5 строчек кода выполняющие то что нужно - гораздо приятней, для моего файлега!
KuklP, все четко! Наконец-то). Моей благодарности нет границ!
antal10б, благодарю и Вас, за потраченое время, к сожалению, у меня даже не открывает .xlsm, да и 5 строчек кода выполняющие то что нужно - гораздо приятней, для моего файлега!DAKRAY
DAKRAY, Просмотрел все сообщения темы и честно говоря, не понял что надо то. Если правильно понял - есть книга в которой создаются некие документы на четырех листах. Эти документы нужно сохранить в отдельные файлы, в которых должны сохранится даты и др. данные в изначальном виде не меняющие свое значение при последующем открытии этих документов. А в исходном файле, должно остаться все как было. Так? Если так, то видимо нужно другое решение задачи. Например такое. Это только пример.
DAKRAY, Просмотрел все сообщения темы и честно говоря, не понял что надо то. Если правильно понял - есть книга в которой создаются некие документы на четырех листах. Эти документы нужно сохранить в отдельные файлы, в которых должны сохранится даты и др. данные в изначальном виде не меняющие свое значение при последующем открытии этих документов. А в исходном файле, должно остаться все как было. Так? Если так, то видимо нужно другое решение задачи. Например такое. Это только пример.Wasilich
Wasilic, у меня в одном файле 4 бланка (два разных счета, две накладных), один лист с реквизитами, и один лист - заказ. Т.е. я принимаю заказ - записываю по позициям все пиломатериалы. Потом мне нужно сделать на фирму счет, жму на кнопку - генерируем счет, из счета так же с помощью кнопки делаем накладную. Второй бланк счета и накладной немного отличаются, т.к. там вата, пленка, ДСП, а это уже облагается налогом, поэтому там все считаем с налогом. Выписывать на фирму с реквизитами приходится не всегда, поэтому еще размышляю над тем, чтобы отделить лист с самим заказом, от бланков накладных и счетов, и реквизитов. В принципе проблема моя решена, ибо каждый раз начиная делать счет или накладную будет открываться файл, а в нем уже будет стоять нужная дата. и после сохранения дата останется той, когда мы сделали файлу Save As. Но вот в примере, который Вы добавили, я вижу кнопку сохранить лист, как отдельный файл (П.С. почему-то после того, как открываю файл, выдает ошибку и через пару секунд выкидывает). Это я собирался делать на следующем этапе. Видел тут где-то на форуме это уже было описано. Не добавлял свой файл по двум причинам: 1) там все на иностранном для Вас языке(Латвия))), 2) файл больше 100 кб. и урезать там нечего чтобы он весил меньше)
Спасибо!
Wasilic, у меня в одном файле 4 бланка (два разных счета, две накладных), один лист с реквизитами, и один лист - заказ. Т.е. я принимаю заказ - записываю по позициям все пиломатериалы. Потом мне нужно сделать на фирму счет, жму на кнопку - генерируем счет, из счета так же с помощью кнопки делаем накладную. Второй бланк счета и накладной немного отличаются, т.к. там вата, пленка, ДСП, а это уже облагается налогом, поэтому там все считаем с налогом. Выписывать на фирму с реквизитами приходится не всегда, поэтому еще размышляю над тем, чтобы отделить лист с самим заказом, от бланков накладных и счетов, и реквизитов. В принципе проблема моя решена, ибо каждый раз начиная делать счет или накладную будет открываться файл, а в нем уже будет стоять нужная дата. и после сохранения дата останется той, когда мы сделали файлу Save As. Но вот в примере, который Вы добавили, я вижу кнопку сохранить лист, как отдельный файл (П.С. почему-то после того, как открываю файл, выдает ошибку и через пару секунд выкидывает). Это я собирался делать на следующем этапе. Видел тут где-то на форуме это уже было описано. Не добавлял свой файл по двум причинам: 1) там все на иностранном для Вас языке(Латвия))), 2) файл больше 100 кб. и урезать там нечего чтобы он весил меньше)
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
Просто пока еще не определился оставлять все бланки в одном файле или разбить на несколько, тогда естественно проблема бы отпала, но тогда все рабочие кнопки придется переписывать.
