Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как в макросе ссылки на предыдущее листы добавить исключение?, Проблема с макросом ссылки на предыдущий лист.
 
Нарисовалась такая проблема, нужно сделать так чтобы макрос ссылки на предыдущие листы не реагировал на листы с названием "<"
и ">", чтобы он их просто пропускал и ссылался на лист который перед ним. Так сказать вроде как добавить их в исключения макроса. Это нужно для того чтобы при перемещении листов "<" и ">" в листе "отчет" который суммирует значения с листа "<" по лист ">" были указаны верные данные. Листы "<" и ">" я использую как грани диапазона листов с которых в "отчете" нужно получить данные (то есть я их часто перемещаю чтобы например получить данные только с листа "03" по "05"). Можно ли это сделать?
 
Вот так должно работать
Код
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 часов, а головой.
 
Большое спасибо все отлично работает!!!
Страницы: 1
Читают тему (гостей: 1)