Выделить диапазон до ячейки с определённым значением

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

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

20.01.2022 13:21:34

Добрый день.
Не нашел подходящей темы на текущую, простую задачу.

Мне необходимо выделить диапазон в столбце до ячейки с определённым значением. Это будет кнопка сворачивания (скрытия строк) списка деталей. Кнопок будет много и кол-во строк, которых придется скрывать - всегда разное.

Пытаюсь модифицировать вот этот простой код выделения:

Код
Range(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(1, 0), ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(3, 0)).Select

Как можно изменить в коде функцию ....Offset(3, 0)..., чтобы выделялся диапазон не на ячейки вниз, а до значения "+" от текущей активной ячейки.
Пытался сделать вот так:

Код

Set rowvalue = Cells.Find("+", LookIn:=xlValues, LookAt:=xlWhole)
 r = rowvalue.Row
Range(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(1, 0), ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(r, 0)).Select

Но так функция Find считает с первой строки.

Прошу помочь.
Прикладываю файл (код в кнопке "+", строка 8 и 17, столбец D)

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

МПСИ_Диагностика.xlsm (71.16 КБ)

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

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

20.01.2022 13:42:58

если в столбце D убрать "+" можно так.

Код
Set Sp = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(1, 0) Range(Sp, Sp.End(xlDown)).Select

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#3 20.01.2022 13:54:55 Bazzman, посмтрите, как оформлено Ваше сообщение. С кучей пустых строк и неформатированным кодом было лучше?