добавление и переименование листов книги

[kievlyanin]

есть книга с определенной структурой листов:

сводный анализ годовой
сводный анализ месячный
анализ_1
1
анализ_2
2

и т.д.

лист анализ_1 и лист 1 и далее это месяц и анализ месяца соответсвенно и с каждым новым месяцем надо добавлять два новых листа: "анализ_ХХ" и "ХХ"

подскажите решение для реализации следующей логики:

поскольку листы анализ_1 и 1 будут всегда, то это будут базовые листы.

при добавлении нового листа надо просмотеть все имена с числами или скорее имена состоящие только из чисел и если максимальное значение+1 меньше или равно 12, то скопировать два базовых листа и заменить в их названии цифру на цифру максимальное значение плюс один.

файл-тренажер вложен

[SAS888]

Если листы никто не будет перемещать, то проще всего так (см. вложение).

[kievlyanin]

Sheets.Add.Name однозначно не подойдет.

листы "анализ_ХХ" и "ХХ" связанны кучей формул и для их нормального переноса выделяется два соответсвующих листа и одновременно копируются - тогда связи перепрописываются автоматом.

но в любом случае спасибо - есть на что опереться а тоя вообще не мог понять как подойти к вопросу работы с листами

[kievlyanin]

Сообщение от SAS888

Если листы никто не будет перемещать.....

а я таки переместил! из принципа .. почему ошибка возникает??

ага .. понял .. Nm = Sheets(Sheets.Count).Name выдает имя последнего листа а по структуре он с цифрой.

надо что-то более надежное т.к. файл вполне может содержать и дополнительные листы к делу не относящиеся - например уже сейчас просматривается последний лист с инструкциями + возможны еще дополнительные листы.

[SAS888]

Вот Вы же сами видите, что неправильный ответ - есть неправильно поставленный вопрос. Вам нужно не добавлять листы, а копировать. Посмотрите вложение (пока не допускающее перемещения листов).

[kievlyanin]

Сообщение от SAS888

Вот Вы же сами видите, что неправильный ответ - есть неправильно поставленный вопрос.

угу .. сорри ..


а Array это оно .. это я методом научного тыка вычислил

[SAS888]

надо что-то более надежное

Посмотрите вариант, не зависящий от расположения листов.

[kievlyanin]

Сообщение от SAS888

Посмотрите вариант, не зависящий от расположения листов.

спасибо!

работатет .. .. тока как- я еще не понял ..

и притом че-то совсем не понял - вот эта строка:

Sheets(Array(Sheets(Sheets.Count - 1).Name, Sheets(Sheets.Count).Name)).Copy after:=Sheets(Sheets.Count)

вроде как должна копировать последний и предпоследний лист а она копирует анализ и месяц максимальные .. КАК??

[kievlyanin]

вот:

Sheets(Array(Sheets(Sheets.Count - 1).Name, Sheets(Sheets.Count).Name)).Copy after:=Sheets(Sheets.Count)

здесь надо копировать не Sheets(Sheets.Count - 1).Name
а лист с именем "анализ_" & Nm и Nm

[kievlyanin]

вот так:

Sheets(Array(("анализ_" & Nm), (Nm))).Copy after:=Sheets(Sheets.Count)

одно но как Nm перевести из числа в имя? а то ("анализ_" & Nm) воспринимает нормально находит и копирует а соответсвующий файл месяца воспринимает не как имя а как номер листа.