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

[Leojse]

IgorGO код работает, но я скорее всего не так выразился, извините. Получается, макрос показывает все строки желтого цвета, скрывая отсальные. А можно сделать так, чтобы он показывал желтые строки, не скрывая остальные?

[IgorGO]

или так:

Sub HideColorIndxShowOthersRows(ColorlIndx As Integer)
  Dim cl As Range
  For Each cl In Application.Intersect(Selection, ActiveSheet.UsedRange).Cells
    cl.EntireRow.Hidden = cl.Interior.ColorIndex = ColorIndx
  Next
End Sub

указываете, процедуре что скрыть (остальное будет отображено)
почитайте еще в справке: Interior.ColorIndex, там с картинкой описание.

[Leojse]

IgorGO Спасибо Вам огромное!!!

[Leojse]

IgorGO снова прошу помощи у Вас. Думал, додумаюсь методом тыка, но никак... Макросы работают по кнопке, вроде всё нормально. Если я нажимаю на первую кнопку ("скрыть желтый"), то скрываются желтые ячейки, но если нажму на третью кнопку ("скрыть синий"), то скрывается синий, но раскрывается желтый... Как сделать, чтобы при нажатии "скрыть синий" не раскрывался желтый?

Sub CommandButton1_Click()
  Dim cl As Range
  For Each cl In Application.Intersect(Selection, ActiveSheet.UsedRange).Cells
    cl.EntireRow.Hidden = cl.Interior.ColorIndex = 6
  Next
End Sub
Sub CommandButton2_Click()
  Dim cl As Range
  For Each cl In Application.Intersect(Selection, ActiveSheet.UsedRange).Cells
    cl.EntireRow.Hidden = cl.Interior.ColorIndex = ColorIndx = 6
  Next
End Sub
Sub CommandButton3_Click()
  Dim cl As Range
  For Each cl In Application.Intersect(Selection, ActiveSheet.UsedRange).Cells
    cl.EntireRow.Hidden = cl.Interior.ColorIndex = 34
  Next
End Sub
Sub CommandButton4_Click()
  Dim cl As Range
  For Each cl In Application.Intersect(Selection, ActiveSheet.UsedRange).Cells
    cl.EntireRow.Hidden = cl.Interior.ColorIndex = ColorIndx = 34
  Next
End Sub