Фильтрация по цвету

[vv66]

Приветствую Всех!
Весь вопрос в теме. Помогите отфильтровать строки по столбцу D, например, по зеленому цвету, т.е. строки с зелеными ячейками надо скрыть. Догадываюсь, что это можно сделать только через функцию определения номера цвета, но сам этого не сделаю, к сожалению.
Excel 2007 не предлагать...

[EducatedFool]

Попробуйте такой вариант:

Sub HideGreen()
    Dim cell As Range: Application.ScreenUpdating = False
    For Each cell In Range([d2], Range("d" & Rows.Count).End(xlUp)).Cells
        cell.EntireRow.Hidden = cell.Interior.ColorIndex = 4
    Next cell
    Application.ScreenUpdating = True
End Sub

Sub ShowAll()
    Rows.Hidden = False
End Sub

Пример файла:

[vv66]

Ну такой оперативности не ожидал!
Все в точку!
Низкий Вам поклон! Спасибо огромное!!!!!!!!!!!!!!!!!

[vv66]

Немного расширенный вопрос.
Перед фильтрацией по цвету я делаю фильт. по значению.
Как подправить фил. по цвету, чтобы она проводилась по отношению к ранее отфильтрованному диапазону по значению, дабы укоротить время работы кода (список имеет тысячи строк, а фильтровать по цвету нужно диапазон где-то не более 100)?
Пример прилагается.

[EducatedFool]

Sub HideGreen()
    Dim cell As Range: Application.ScreenUpdating = False
    For Each cell In Range([d2], Range("d" & Rows.Count).End(xlUp)).Cells
        If cell.Interior.ColorIndex = 4 Then cell.EntireRow.Hidden = True
    Next cell
    Application.ScreenUpdating = True
End Sub

[vv66]

Искренне Вам благодарен!

[vv66]

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

Sub HideGreen()
    Dim cell As Range: Application.ScreenUpdating = False
    For Each cell In Range([d2], Range("d" & Rows.Count).End(xlUp)).Cells
        If cell.Interior.ColorIndex = 4 Then cell.EntireRow.Hidden = True
    Next cell
    Application.ScreenUpdating = True
End Sub

Извените за назойливость, а если к ячейкам применино условное форматирование?..

[EducatedFool]

а если к ячейкам применино условное форматирование?

Что значит "если"? Вы вручную красите ячейки, или применяете УФ?

Как Вам уже сказал The_Prist, данный код не будет работать для цветов, отображаемых при помощи условного форматирования.

Для условного форматирования код будет другой. Переписывать не буду.
Надо было сразу говорить.

[vv66]

Уважаемый EducatedFool!
У меня ячейки красятся вручную, по-этому все нормально.
Вопрос был поставлен чисто в образовательных целях.
Еще раз благодарю Вас за помощь!