Подскажите пожалуйста, как настроить макрос, чтобы при нажатии на кнопку "По кварталам" создавалась новая книга, в которой в ячейках A3-A5 (В столбик в нужные ячейки) были названия листов из исходной книги.
Буду очень благодарна за помощь в написании макроса. Спасибо!
Добрый день!
Подскажите пожалуйста, как настроить макрос, чтобы при нажатии на кнопку "По кварталам" создавалась новая книга, в которой в ячейках A3-A5 (В столбик в нужные ячейки) были названия листов из исходной книги.
Буду очень благодарна за помощь в написании макроса. Спасибо!WaMii
Здравствуйте. Если точно по заданию, то можно так [vba]
Код
Public Sub NewBook() Dim sh As Worksheet, i& With Workbooks.Add i = 3 For Each sh In ThisWorkbook.Sheets .Sheets(1).Cells(i, 1) = sh.Name i = i + 1 Next sh End With End Sub
[/vba]
Здравствуйте. Если точно по заданию, то можно так [vba]
Код
Public Sub NewBook() Dim sh As Worksheet, i& With Workbooks.Add i = 3 For Each sh In ThisWorkbook.Sheets .Sheets(1).Cells(i, 1) = sh.Name i = i + 1 Next sh End With End Sub
Pelena, единственный момент, лист "Главная", на котором находятся кнопки - тоже выводится в список. Можно ли как-нибудь исключить его при выводе списка листов?
Pelena, единственный момент, лист "Главная", на котором находятся кнопки - тоже выводится в список. Можно ли как-нибудь исключить его при выводе списка листов? WaMii
Сообщение отредактировал WaMii - Вторник, 03.09.2019, 15:38
Public Sub NewBook() Dim sh As Worksheet, i& With Workbooks.Add i = 3 For Each sh In ThisWorkbook.Sheets if sh.Name <> ActiveSheet.Name Then .Sheets(1).Cells(i, 1) = sh.Name i = i + 1 End If Next sh End With End Sub
[/vba]
[vba]
Код
Public Sub NewBook() Dim sh As Worksheet, i& With Workbooks.Add i = 3 For Each sh In ThisWorkbook.Sheets if sh.Name <> ActiveSheet.Name Then .Sheets(1).Cells(i, 1) = sh.Name i = i + 1 End If Next sh End With End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
