Este fórum está sendo desativado

[SandroLima]

Boa noite, pessoal.

Com auxílio do gravador de macros cheguei a esse código de uma tabela minha que ordena duas colunas ("Registro" e "Data") de acordo com as cores das células:

Código: Selecionar todos

With Tb_AtivDiarias.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("TB_AtividadesDiarias[[#All],[Registro]]"), SortOn:= _
        xlSortOnCellColor, Order:=xlAscending, DataOption:=xlSortNormal
        .SortOnValue.Color = RGB(255, 235, 156)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    With Tb_AtivDiarias.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("TB_AtividadesDiarias[[#All],[Data]]"), SortOn:= _
        xlSortOnCellColor, Order:=xlAscending, DataOption:=xlSortNormal
        .SortOnValue.Color = RGB(248, 203, 173)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

With Tb_AtivDiarias.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("TB_AtividadesDiarias[[#All],[Data]]"), SortOn:= _
        xlSortOnCellColor, Order:=xlAscending, DataOption:=xlSortNormal
        .SortOnValue.Color = RGB(255, 199, 206)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Está apresentado erro de depuração nessa parte do código de cada um dos blocos with colados acima:

Código: Selecionar todos

.SortOnValue.Color = RGB(255, 235, 156)

Sei que é por erro dessa propriedade... mas não sei então como ordenar.

Segue tabela com o efeito conseguido até aqui na Aba "Atividades Diárias" (repare que a parte do código encontra-se na forma comentada) e com o resultado desejado na Aba "Atividades Diárias (Desejado)".

Alguém sabe como proceder?