Сохранение с определенным именем+обновление книги

Автор agkondakov, 02.08.2013, 13:53

« назад - далее »

agkondakov

Добрый день!
Создал калькулатор оценки строений.(Оцен.Лист) Нужно по работе. Не могу доработать. Мож кто поможет
1.Нужно чтобы при сохранении(Оцен.Лист) оставался как есть, а сохранялось в новом документе с таким же названием+ФИО клиента.(ПРИМЕР:"Оцен.Лист Иванов И.И.). ФИО должно браться из Листа1 из ячейки.
2.В калькуляторе есть базовые нормы, на основании которых все рассчитывается(BO33-BR43).Эти нормы меняются каждые пол года. Нужно чтобы во всех сохраненных ранее документах эти нормы обновились при открытии документа(Для автоматического пересчета).

kuklp

В модуль книги:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.DisplayAlerts = 0
    Application.EnableEvents = 0
    ThisWorkbook.SaveAs Replace(ThisWorkbook.FullName, ".xls", "") & _
            ThisWorkbook.Sheets("Осн.строение").[m4] & ".xls"
    Cancel = -1
    Application.EnableEvents = -1
    Application.DisplayAlerts = -1
End Sub

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

agkondakov

Спасибо за ответ!. Но ниче не работает. Выделяется первая сточка желтым цветом и ругатся на 4 и 5 строку. Выделяет нижнее подчеркивание в конце 4 строки

kuklp

Вы его точно в модуль книги вставили? И вот еще вопрос - а как Вы его запускаете?
P.S. Проверил у себя в 2003 и 2010 - все работает.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

agkondakov

Открыл документ, альт+f11, слева 3 стоки- это листы, а потом встал на книгу. 2 раза нажал на нее. И в большом окне написал все. И он ругаться начал. Сначала на одну строку потом на другую.  Нажал сохранить. Закрыл ехел и открыл. И ничего.

kuklp

Открывайте и сохраняйте. Смотрите в заголовке окна на название файла.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

agkondakov

#6
ОГРОМНОЕ СПАСИБО!
только еще вопрос.
1. Как сделать перед Фамилией пробел или нижн подчеркивание?
2.Хотел добавить год в название файла. Создал формулу в ячейке B2 ("=СЕГОДНЯ()"). В формате ячейки выбрал ГГГГ. выводится только год (как мне и надо). Пробовал заменить в VBA
ThisWorkbook.Sheets("Осн.строение").[m4] & ".xls"  на ThisWorkbook.Sheets("Осн.строение").[b2] & ".xls"
но тогда выдает в формате дд.мм.гггг, хотя формат выбрал гггг.

Короче, реально ли селать чтоб было вот так "Оцен.Лист.ФИО.2013.xls"?
Чтоб на следующий год в файле год павтоматически изменился и сохранялось с новым годом

kuklp

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

agkondakov

Все работает прекрасно!СпасибО.
Один вопросик.
При сохранении переименоывается открытый файл. и если внести изменения и опять сохранить, то получается фигня в названии файла(Как бы двойное название).
Можно лди сдклать так, чтоб при сохранении сохранялось например на рабочем столе, а активным оставался документ первоначальный или с первоначальным названием?

kuklp

Можно. Изменив(добавив) всего четыре буквы. Я вообще-то был уверен, что этот вопрос прозвучит  ;D
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771