Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Переименовать название листа из ячейки., Переименовать название листа из ячейки.
 
Всем большое спасибо за помощь все заработало

Код такой
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("G9:V9"), Target) Is Nothing Then
   For Each iCell In Range("G9:V9")
   Sheets(iCell.Column).Name = IIf(iCell <> "", iCell.Value, WorksheetFunction.Rept(" ", iCell.Column))
    Next
End If
End Sub


Остался маленький вопрос:
Подскажите пожалуйста как поменять номер листа с которого начинается переименование.

Сейчас идет с 7 листа, то есть номер столбца и номер листа совпадает G=7.
Если мне нужно чтобы имя листа стояло в G9 а переименовывался 3 лист. Что нужно для этого?
Изменено: lil000 - 15 Янв 2019 13:19:18
Переименовать название листа из ячейки., Переименовать название листа из ячейки.
 
Цитата
Anchoret написал:
И где в файле этот горизонтальный диапазон?
В файле нет этого диапазона, я как раз и не знаю как прописать.

Нужно чтобы из 2 листа
из ячейки F10 подставлялось имя листа - лист 5
G10 - лист 6
H10 - лист 7
и так далее.....
Изменено: lil000 - 12 Янв 2019 11:51:59
Переименовать название листа из ячейки., Переименовать название листа из ячейки.
 
Если меняю диапазон то имя из этого диапазона подставляется в одном лист. Видимо этого недостаточно.

Файл приложил.
Изменено: lil000 - 12 Янв 2019 11:35:00
Переименовать название листа из ячейки., Переименовать название листа из ячейки.
 
Добрый день!

Нашел макрос у вас
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A2:A4"), Target) Is Nothing Then
    For Each iCell In Target
        Sheets(iCell.Row).Name = IIf(iCell <> "", iCell.Value, WorksheetFunction.Rept(" ", iCell.Row))
    Next
End If
End Sub

Он рабочий но у меня задача чуть сложнее.
Нужно чтобы имя листов бралось из ячеек

Например из листа 2 диапазон ячеек F10:O10 имя бы подставлялось в нужный лист
F10 - лист 5
G10 - лист 6
H10 - лист 7
и так далее.....

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

Заранее благодарен за помощь!
Изменено: lil000 - 12 Янв 2019 11:30:45
Страницы: 1
Наверх