Количество листов в книге Excel по условию.

Пользователь

Сообщений: 25 Регистрация: 12.02.2019

22.07.2019 13:17:57

Доброго времени суток!

Помогите пожалуйста решить задачу:
необходимо подсчитать количество листов в книге excel c первого листа и до листа с определенным названием(включительно) средствами VBA.
Грубо структура файла выглядит как представлено во вложении.
В файл собираются отчеты центров ответственности их всегда одно и тоже количество.
А вот вспомогательные таблицы которые стоят перед сводным листом то добавляются то удаляются, вот их количество вместе со сводным файлом нужно посчитать.

Заранее большое спасибо.

Прикрепленные файлы

Пример.xlsx (10.34 КБ)

Юрий М

Модератор

Сообщений: 61035 Регистрация: 14.09.2012

Контакты см. в профиле

22.07.2019 13:42:27

Цитата
alver92 написал: до листа с определенным названием(включительно)

Определённое - это какое в файле?

Юрий М

Модератор

Сообщений: 61035 Регистрация: 14.09.2012

Контакты см. в профиле

22.07.2019 13:47:21

\Разобрался: по лист "Свод" включительно )

Код
Sub Macro1() Dim i As Long For i = 1 To Sheets.Count If Sheets(i).Name = "Свод" Then Exit For Next MsgBox "В файле нужных листов: " & i, 64, "Для сведения..." End Sub

alver92 Пользователь Сообщений: 25 Регистрация: 12.02.2019	#4 22.07.2019 13:50:20 Юрий М, Большое Вам спасибо!

Андрей VG

Пользователь

Сообщений: 11926 Регистрация: 22.12.2012

Excel 2016, 365

22.07.2019 13:53:35

Доброе время суток

Цитата
Юрий М написал: For i = 1 To Sheets.Count

Юрий, а зачем же так сложно? Чем плох такой вариант?

Код
?ActiveWorkbook.Sheets("Свод").Index

Юрий М Модератор Сообщений: 61035 Регистрация: 14.09.2012 Контакты см. в профиле	#6 22.07.2019 14:00:27 Андрей, привет! Согласен - так проще и короче. Не догадался я про индекс... Но никто не отменял посимвольную оплату ))