Наименования листов из диапазона ячеек (строки)

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Наименования листов из диапазона ячеек (строки) - Мир MS Excel

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

Наименования листов из диапазона ячеек (строки) (Макросы/Sub)

Наименования листов из диапазона ячеек (строки)

WaMii

Дата: Вторник, 03.09.2019, 21:44 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

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

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

Excel 2016

Добрый день!

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

При этом в новой книге были созданы листы, названия которых содержит заданный диапазон ячеек исходной книги (B1-E1). Как сделать по столбцу это - я знаю, но со строкой возникли трудности

Приложен документ.

Буду очень благодарна за помощь в написании макроса. Спасибо!

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

Ответить

Pelena

Дата: Среда, 04.09.2019, 08:15 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19603

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
[vba]

Код

Sub Макрос()
    Dim wb As Workbook, x, NameSh, i&, sh As Worksheet
    Application.ScreenUpdating = False
    NameSh = ThisWorkbook.Sheets(2).Range("B1:E1").Value    'имена листов в новой книге
    Workbooks.Add
    Set wb = ActiveWorkbook
    For i = 1 To UBound(NameSh, 2)
        If i > wb.Worksheets.Count Then Worksheets.Add After:=wb.Sheets(i - 1)
        wb.Sheets(i).Name = NameSh(1, i)
    Next i
    Application.ScreenUpdating = True
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Наименования листов из диапазона ячеек (строки) (Макросы/Sub)

Страница 1 из 1
1