MACRO ORDENAR TABELA
Enviado: 03 Jan 2019 às 13:21
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:
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?
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
Está apresentado erro de depuração nessa parte do código de cada um dos blocos with colados acima: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 WithCódigo: Selecionar todos
Sei que é por erro dessa propriedade... mas não sei então como ordenar..SortOnValue.Color = RGB(255, 235, 156)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?