Обновление значений Имен на листе

[tae1980]

Ситуация такая: имеет шаблон листа в .xla. На нем оформление, значения по умолчанию и прочее. В том числе есть вывод значения имен. В xla этих имен, и в мы видим сообщение "#ИМЯ?". В рабочую книгу копируем этот лист командой

    Application.DisplayAlerts = False          'Отключем запрос на подтверждение.
    шаблон.Copy After:=Sheets(Sheets.Count)
    Application.DisplayAlerts = True

После копирование ячейки с ссылками на имена продолжают выводить "#ИМЯ?". Если взять ячейку на редактирование и нажать Ввод, значение измениться на содержание имени.

Как сделать чтобы имена обновились самостоятельно?

[Казанский]

Как вариант, проделать это же программно:

on error resume next
for each c in cells.SpecialCells (xlCellTypeFormulas ,xlerrors): c.formula=c.formula:next

[tae1980]

Сообщение от Казанский

Как вариант, проделать это же программно:

on error resume next
for each c in cells.SpecialCells (xlCellTypeFormulas ,xlerrors): c.formula=c.formula:next

Номер проходит если в ячейке прямая ссылка на имя. Если в ячейки что-то вроде этого:

=ЕСЛИ(ЕЧИСЛО(ИдДоговор_Цена);ИдДоговор_Цена+ИдДоговор_НДСРазмер;"")

То все равно получаем "#ИМЯ?" при срабатывание ЕСЛИ.
Как быть?

При копировании не листа, а ячеек такой проблемы нет. Но на листе есть Имена привязанные именно к это листу, нужно что бы они так же копировались. Можно ли скопировать не ячейки, а Имена?
Если да, то можно попробовать схеме: 1. Копируем ячейки; 2. Копируем имена.

А если вынесли лист в шаблон? Ни когда с ними не работал. Как вставить в книгу лист из шаблона?

[Казанский]

> Как вставить в книгу лист из шаблона?

Sheets.Add Type:="d:\MyTemplate.xlt"

[tae1980]

Сообщение от Казанский

> Как вставить в книгу лист из шаблона?

Sheets.Add Type:="d:\MyTemplate.xlt"

Не получается... Та же проблема и именами. :((((
Почему Имена не хотят "подхватываться" без ручного пинка?
Получается единственный выход работа по схеме: 1. копируем ячейки; 2. программно создаем имена для листа. Не фонтан....

[tae1980]

Справился с задачей так, может кому интересно (запускать из xla, иначе не много изменить):

Sub Договор_Создать()
    Dim Тек_Таблица As Worksheet 
    Set шаблон = ThisWorkbook.Worksheets("Исх.данные договора")
    
    ЛистИмя = "Договор НОВЫЙ"
    'ЛистИмяКодовое = "НовоеКодовоеИмя" 'Если нужно так же менять кодовое имя раз комментировать +1 строку дальше по тексту.
    Set Тек_Таблица = Worksheets.Add(, Sheets(Sheets.Count))  'Создаем новый лист и Перемещаем его в конец.
    Application.DisplayAlerts = False          'Отключем запрос на подтверждение.
    Тек_Таблица.name = ЛистИмя      'Присваиваем ему имя.
    'ActiveWorkbook.VBProject.VBComponents(Тек_Таблица.CodeName).name = ЛистИмяКодовое 'Если так же нужно так же менять кодовое имя раз комментировать
    шаблон.Cells.Copy    'Копируем содержание шаблона.
    Тек_Таблица.PasteSpecial 'Вставляем ячейки.
    Application.DisplayAlerts = True
    'Создаем переменные заново с заменой имени листа.
    For n = 1 To шаблон.Names.Count
        Тек_Таблица.Names.Add Replace(шаблон.Names.item(n).name, шаблон.name, ЛистИмя), Replace(шаблон.Names.item(n), шаблон.name, ЛистИмя)
    Next n
    Calculate
    [ИдДоговор_Номер].Select 'У меня для удобства.
End Sub