Удаление строк по цвету заливки

[strannick]

В продолжение темы. Возникла необходимость удалить с листа все закрашенные каким-либо цветом строки, оставив только девственно белые строки. Применяю код, который успешно сработал с "темно-зеленым" индексом 14, а теперь отказывается работать с индексом белого цвета 2:

If sh.Cells(i, 1).Interior.ColorIndex <> 2 Then Cells(i, 1).EntireRow.Delete (xlShiftUp)

Из предыдущих сообщений понял, что дальтонизмом не страдаю и что индекс белого - это 2. А макрос не срабатывает. Что я тут накосячил?

[staniiislav]

Сообщение от strannick

If sh.Cells(i, 1).Interior.ColorIndex <> 2 Then Cells(i, 1).EntireRow.Delete (xlShiftUp)

наверное вот так:

If sh.Cells(i, 1).Interior.ColorIndex <> xlNone Then Cells(i, 1).EntireRow.Delete (xlShiftUp)

[strannick]

Не, так тоже не пролазит. Удаляются все строки, и залитые и не залитые. XlNone я пробовал. Такой критерий белого цвета при автофильтре. Еще пытался RGB(255, 255, 255). Не то. Пояснит может кто-нибудь, почему такая несправедливость к белому?

[strannick]

Да, хочу уточнить, что заливка строк происходит условным форматированием. Если это важно. Юрий М. на планете упоминал, что заливку условным форматированием отследить сложнее, чем простую заливку. Может поэтому код не срабатывает? Но ведь на скрытие строк тот же "темно-зеленый" отследился. И красный тоже.

[VictorM]

Если это важно

Да, это важно.
Может поэтому код не срабатывает.

[strannick]

И что делать? Как тогда отфильтровать все строки, оставив залитые каким-либо цветом, а не залитые скрыть?

[staniiislav]

Сообщение от strannick

И что делать? Как тогда отфильтровать все строки, оставив залитые каким-либо цветом, а не залитые скрыть?

Чет я так и не наше как получить цвет условного форматирования... все что нашел, это определить диапазон условного форматирования, а дальше по условию например больше нуля
код:

Sub test_1()
Dim iCell As Range, iDiapazon As Range, rCell As Range
Set iCell = Range("F9") 'ячейка, которая служит образцом
Set iDiapazon = Range("A1:F20") 'диапазон поиска аналогичных усл. форматов
Set iDiapazon = Intersect(iCell.SpecialCells(xlCellTypeSameFormatConditions), iDiapazon) 'определение пересечения диапазона
For Each rCell In iDiapazon
    If rCell > 0 Then rCell.EntireRow.Hidden = True
Next rCell
End Sub

[VictorM]

Вот ЗДЕСЬ можно еще посмотреть о работе с условным форматированием

[strannick]

Спасибо, попробую и отпишусь.

[strannick]

Сообщение от VictorM

Вот ЗДЕСЬ можно еще посмотреть о работе с условным форматированием

Да, помогло. Вот этот код:

Range("A1:C100").FormatConditions.Delete

снял с листа все правила. Ну, а дальше провел удаление строк в зависимости от значения в ячейке.
Спасибо!