Excel Classificar com Macro e cor da fonte

[Fuedba]

Prezados, bom dia.

 

Tenho uma planilha (anexo) onde eu preciso classificar por cor da fonte e por linha (horizontal) todas as linhas da planilha, teria como gerar uma macro com loop´, tentei algumas que pesquisei mas sem sucesso.

 

Obrigado.

Classificar com Macro e cor da fonte.xlsx

[Midori]

@Fuedba Veja se assim resolve. A classificação funciona para duas cores.

 

Sub Classifica()
    Dim Area    As Range
    Dim Linha   As Long
    
    Set Area = [A1].CurrentRegion
    Linha = 1
    
    While Area.Cells(Linha, 1) <> ""
        With ThisWorkbook.Sheets("Planilha1").Sort
            .SortFields.Clear
            .SortFields.Add( _
                Key:=Area.Rows(Linha), _
                SortOn:=xlSortOnFontColor, _
                Order:=xlDescending).SortOnValue.Color = vbWhite
            .SetRange Area.Rows(Linha)
            .Orientation = xlLeftToRight
            .Apply
        End With
        Linha = Linha + 1
    Wend
End Sub

 

[Fuedba]

Perfeito

[DJunqueira]

Tem uma solução utilizando um função antiga do Excel (Excel4) q retorna a cor, mas p/ isso é preciso criar um novo nome p/ a função e salvar a planilha como habilitada p/ macro.

Classificar com Macro e cor da fonte.zip