Este fórum está sendo desativado

[ccbairros]

Tentei encontrar no forum,mas não consegui com os parametros , se alguém puder me ajudar:
Tenho uma planilha com algumas macros que jogam um numero de ordem de serviço em uma planilha principal.
essa planilha principal só possui os numeros das ordens de serviço e cores de cada uma de acordo com setor (verde, amarela,vermelha e laranja)
Só que eu jogo elas conforme vai preenchendo ou seja, começa na A2, vai até a A28 e depois pula pra B2. As cores são aleatorias ,mas eu gostaria de ordenar essas cores deixando todas as vermelhas juntas, verdes etc.
Começando com vermelhas>Laranja>Amarela>Verde.
Anexo planilha

Muito Obrigado pessoal

[AfonsoMira]

Boas veja se o seguinte ajuda.

Penso que terá que adicionar um cabeçalho.

Aba Dados, Ordenar :

Utilizei as seguintes condições:




A macro seria algo deste género:

Código: Selecionar todos

    Columns("A:A").Select
    ActiveWorkbook.Worksheets("DASHBOARD").Sort.SortFields.Add(Range("A2:A28"), _
        xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 0 _
        , 0)
    ActiveWorkbook.Worksheets("DASHBOARD").Sort.SortFields.Add(Range("A2:A28"), _
        xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(237, _
        125, 49)
    ActiveWorkbook.Worksheets("DASHBOARD").Sort.SortFields.Add(Range("A2:A28"), _
        xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, _
        255, 0)
    ActiveWorkbook.Worksheets("DASHBOARD").Sort.SortFields.Add(Range("A2:A28"), _
        xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(0, 176 _
        , 80)
    ActiveWorkbook.Worksheets("DASHBOARD").Sort.SortFields.Add Key:=Range( _
        "A2:A28"), SortOn:=xlSortOnCellColor, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("DASHBOARD").Sort
        .SetRange Range("A1:A28")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Ficheiro com a macro em anexo.

Alguma dúvida só chamar.

[ccbairros]

(Removido pelo Moderador Kledison)... Funcionou perfeitamente, muito obrigado

[Kledison]

Boa tarde!

ccbairros, não use termos CHULOS nas postagens.

Att
Moderador

[ccbairros]

Boa tarde!

ccbairros, não use termos CHULOS nas postagens.

Att
Moderador

Foi mal. não vou repetir nas próximas.