Как выделить строки с определенной последовательностью данных

[solnce60]

Уважаемые господа!Добрый день!
Помогите пожалуйста решить такую задачу.
Есть таблица с отфильтрованным диапазоном данных.
Есть колонка Н .
Есть ячейки колонки Н
Каждая ячейка колонки Н - это первая ячейка строки справа от этой ячейки.
ЗАДАЧА
В колонке Н необходимо выделить (например цветом) только те ячейки справа от которых в соответствующей им строке
-значение МЕНЬШЕ ИЛИ РАВНО 0,0000(розовый цвет) встречается РАНЬШЕ значения БОЛЬШЕ 0,0049(синий цвет)
или
-значение МЕНЬШЕ ИЛИ РАВНО 0,0000 просто встречается в вышеуказанной строке если значение БОЛЬШЕ 0,0049 в данной сроке отсутствует.
Сейчас данную задачу я решаю вручную при помощи фильтрации и условного форматирования.Но это очень долго , утомительно и чревато ошибками
Как решить данную задачу более быстро и более надежно?
С уважением.благодарностью и наилучшими пожеланиями.
Андрей.

[staniiislav]

не совсем понятно условие:
если вся строка H>=0.0049 или H<=0.00001
или если хотя бы одна из ячеек H>=0.0049 или H<=0.00001
или еще как?

[doober]

Вам нужны точки разворота?
Только вот таймфрейм странный-100 часов.
Есть опыт в обработке тиковых данных по алгоритму заказчика.
Если интересно,пишите в личку.

[solnce60]

В строках после колонки Н значения <0.0001 и значения >0.0049 чередуются между собой в случайном порядке.
Нужно выделить только те ячейки в столбце Н в строках после которых значение <0.0001 встречается первым,т.е. перед значением >0.0049
или просто встречается,если значение >0.0049 в строке отсутствует.

[solnce60]

Достаточно однократного,ПЕРВОГО появления в строке значения <0,0001 перед значением >0,0049 .
В этом случае соответствующая ячейка в столбце Н должна выделиться.
Например ячейка Н100
В ячейке W100 - значение <0,0001(в предыдущих ячейках этой строки до Н100, значения <0,0001 и >0,0049 отсутствуют)
В ячейке Z100 - значение >0,0049
В этом случае Н100 должна выделится
Например ячейка Н100
В ячейке W100 - значение <0,0001(в предыдущих ячейках этой строки до колонки Н, значения <0,0001 и >0,0049 отсутствуют)
В ячейках после W100 - значение >0,0049 отсутствует
В этом случае Н100 должна выделится

[IgorGO]

см.вложение. (сделано условным форматированием)

[Hugo121]

Я на планете такой код написал:

Sub tt()
    Dim a(), i&, ii&
    a = [h4].CurrentRegion.Value
    ReDim b(1 To UBound(a), 1 To 1)
    For i = 1 To UBound(a, 1)
        For ii = 1 To UBound(a, 2)
            If a(i, ii) < 0.0001 Then b(i, 1) = 1: Exit For
            If a(i, ii) > 0.0049 Then Exit For
        Next
    Next
    [f4].Resize(UBound(b), 1) = b
End Sub

0<0,0001!

P.S.
Почти сходится с результатом Игоря, если внутренний цикл делать с 2:
For ii = 2 To UBound(a, 2)
Но похоже что нужно сперва значения округлять - например в ячейке I31 видно 0.0001, а значение там 0.000099999999999989, что < 0.0001!
Т.е. есть вопросы к ТС

[Hugo121]

Подклеил к пред. посту.

[IgorGO]

ага с данными я тоже нарвался...
вижу в ячейке 0.0049, считаю сколько 0.0049 в строке, а функция показывает 0 шт. присмотрелся , а там 0.00489999999...

как тут не вспомнить:
"не все то золото, что блестит"
"на самом деле все бывает совсем не так, как в действительности"

...и совсем не в тему, но смешно "тиха украинская ночь, но сало лучше перепрятать"

[solnce60]

Ребята!Большое вам спасибо.
Как хочется научиться это делать самостоятельно....!
Hugo121,скажи пожалуйста а куда нужно вставлять этот код?
Наверное в формулу?
IgorGO,ты решил эту задачу при помощи условного форматирования.
А каким правилом ты пользовался? Или ты создавал свое правило.
Буду тебе признателен если объяснишь по-конкретнее.
Спасибо.