Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Grey_rnd

Ветеран


Сообщения: 665
Благодарности: 26

Профиль | Отправить PM | Цитировать


okshef, Куда вставить последний приведенный Вами код?
Код: Выделить весь код
Worksheets("Sheet1").Range("D6")=Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mm.yyyy")
Вместо
Код: Выделить весь код
.FirstPage.CenterHeader.Text = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mm.yyyy")
????
Что то не срабатывает? что делаю неправильно?
Alt+f11, выбираю Module, вставляю код, сохраняю, сохраняю файл как файл с макросом. Далее Вид - Макросы...а внутри пусто. Он же должен там присутствовать когда добавлен?

PS
1.Как закоментировать некоторые строки, что б временное не участвовали в процессе?)

-------
Я самый страшный вирус для моего компьютера...в этом убедился уже не раз..


Последний раз редактировалось Grey_rnd, 25-07-2016 в 09:48. Причина: upd


Отправлено: 09:42, 25-07-2016 | #39