Macros que filtram celulas pela cor - JJoão (08/2002)

As macros ao serem executadas vão filtrar a zona (A2:A100), escondendo todas as celulas que não tenham a mesma cor que a Celula do topo (celula A1), mostrando só as que condizem ignorando as celulas vazias.

Conforme a cor do texto

Sub MostraEscondeLinhasPorCorTexto()
    Dim Celula As Range
    Dim Zona As Range
    Set Zona = ActiveSheet.Range("A2:A100")
    For Each Celula In Zona
      With Celula
       If .Text <> "" Then
         If .Font.ColorIndex = Range("A1").Font.ColorIndex Then
            .EntireRow.Hidden = False
         Else
            .EntireRow.Hidden = True
         End If
       End If
      End With
    Next
    Set Zona = Nothing
End Sub

Conforme a cor do fundo da celula

Sub MostraEscondeLinhasPorCorFundo()
    Dim celula As Range
    Dim Zona As Range
    Set Zona = ActiveSheet.Range("A2:A100")
    For Each celula In Zona
      With celula
       If .Text <> "" Then
        If .Interior.ColorIndex = Range("A1").Interior.ColorIndex Then
            .EntireRow.Hidden = False
        Else
            .EntireRow.Hidden = True
        End If
       End If
      End With
    Next
    Set Zona = Nothing
End Sub