Как в макросе ссылки на предыдущее листы добавить исключение?

Как в макросе ссылки на предыдущее листы добавить исключение?, Проблема с макросом ссылки на предыдущий лист.

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

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

25.02.2015 01:47:05

Нарисовалась такая проблема, нужно сделать так чтобы макрос ссылки на предыдущие листы не реагировал на листы с названием "<"
и ">", чтобы он их просто пропускал и ссылался на лист который перед ним. Так сказать вроде как добавить их в исключения макроса. Это нужно для того чтобы при перемещении листов "<" и ">" в листе "отчет" который суммирует значения с листа "<" по лист ">" были указаны верные данные. Листы "<" и ">" я использую как грани диапазона листов с которых в "отчете" нужно получить данные (то есть я их часто перемещаю чтобы например получить данные только с листа "03" по "05"). Можно ли это сделать?

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

Пример-2.xlsm (27.38 КБ)

Leanna

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

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

25.02.2015 01:58:03

Вот так должно работать

Код

Function PrevSheet(Cell As Range) As Variant
Dim i&
Application.Volatile
i = Cell.Worksheet.Index - 1
If i = 0 Then i = 1
If Sheets(i).Name = "<" Or Sheets(i).Name = ">" Then i = i - 1
If i = 0 Then i = 1
PrevSheet = Sheets(i).Range(Cell.Address)
End Function

Работать надо не 12 часов, а головой.

Ajzek013 Пользователь Сообщений: 15 Регистрация: 18.02.2015	#3 25.02.2015 02:22:51 Большое спасибо все отлично работает!!!