Переименование листов из списка

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переименование листов из списка (Макросы/Sub)

KolyvanOFF

Дата: Среда, 11.02.2015, 10:10 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 217

Репутация: 7 ±

Замечаний: 60% ±

Excel 2010

Добрый день.
Прошу подсказать как написать макрос чтобы он переименовывал листы исходя из списка на первом листе. Пробовал через рекодер, так он запрашивает тосное название листа а не его порядковый номер.
Заранее спасибо.

К сообщению приложен файл: 1111.xlsm (12.1 Kb)

С уважением, Евгений

Ответить

Manyasha

Дата: Среда, 11.02.2015, 11:05 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

KolyvanOFF, попробуйте так:
[vba]

Код

Sub rename()
     i = 4
     While (Sheets(1).Cells(i, 1) <> "")
         Sheets(i - 2).Name = Cells(i, 1).Value
         i = i + 1
     Wend
End Sub

[/vba]
Но при повторном запуске могут возникать ошибки, если лист с таким именем уже есть. Может лучше создавать новые листы с именами из списка, при условии, что их еще нет?