Este fórum está sendo desativado

[SandroLima]

Boa tarde, pessoal

Estou tendo dificuldades em ajustar esse código. São 2 detalhes.

1) Apesar de executar a rotina o código está apresentando um erro de depuração referente à essa parte do código:

Código: Selecionar todos

If Tb_AtivDiarias.ListColumns("Data").DataBodyRange.SortOnValue.Color = RGB(248, 203, 173) _
    Or Tb_AtivDiarias.ListColumns("Data").DataBodyRange.SortOnValue.Color = RGB(255, 199, 206) Then

2) Depois de executado o código (através do botão com a macro) precisava que as datas cujas células com formatação condicional nas cores "VERMELHA e LARANJA" apresentassem disposição da data mais antiga para a mais nova.
No caso da formatação vermelha ficaria :
03/01/2019
04/01/2019
05/01/2019
E no caso da laranja também deveria ser:
07/01/2019
08/01/2019

E não o contrário como está acontecendo

***ATENÇÃO***
- Essa inversão na ordem das datas deve acontecer somente para as células de cor VERMELHA e LARANJA;
- As células de cor VERDE ou sem formatação condicional estão dispostas corretamente.

Estou enviando em anexo a planilha de exemplo.
Na Aba "ATIVIDADES DIÁRIAS" está a planilha anterior à execução da macro e na Aba "ATIVIDADES DIÁRIAS (DESEJADO)" encontra-se o resultado pretendido.

Obrigado a todos que puderem colaborar.

[SandroLima]

Bom dia, pessoal.

Alguém teria uma solução para isso?

[SandroLima]

Boa tarde, pessoal

Refiz o código também utilizando o "with". Deixei a parte do utilizando o "IF" comentada. Não sei qual seria a opção adequada para conseguir o resultado desejado.

Mas ainda estou com dificuldades em ajustar o código. Tem uma propriedade inválida e não sei como proceder. São 2 detalhes:

1) Apesar de executar a rotina o código está apresentando um erro de depuração;

2) Depois de executado o código (através do botão com a macro) precisava que as datas cujas células com formatação condicional nas cores "VERMELHA e LARANJA" apresentassem disposição da data mais antiga para a mais nova.
No caso da formatação vermelha ficaria:
03/01/2019
04/01/2019
05/01/2019
E no caso da laranja também deveria ser:
07/01/2019
08/01/2019

E não o contrário como está acontecendo

***ATENÇÃO***
- Essa inversão na ordem das datas deve acontecer somente para as células de cor VERMELHA e LARANJA;
- As células de cor VERDE ou sem formatação condicional estão dispostas corretamente.

Estou enviando em anexo a planilha de exemplo.
Na Aba "ATIVIDADES DIÁRIAS" está a planilha anterior à execução da macro e na Aba "ATIVIDADES DIÁRIAS (DESEJADO)" encontra-se o resultado pretendido.

Está bem perto de finalizar... alguém poderia verificar???

[SandroLima]

Bom dia.

Alguém sabe como proceder nessa atividade?

[SandroLima]

Boa tarde.

Ninguém?

[rit]

veja se isso que quer.

[SandroLima]

Quase isso, amigo.... até aí eu consegui também.

Exceto pelo intervalo de células da coluna "Data" que estão sem formatação condicional (05/01 à 07/01... precisava que elas ficassem em ordem descendente... da mais recente para a mais antiga.

Para as células que receberam formatação condicional (coloridas) é dessa forma mesmo (ascendente... da mais antiga para a mais recente).

Bom dia.

[rit]

veja agora

[SandroLima]

Como disse antes... a parte com as células da coluna "Data" que receberam cor da formatação condicional devem ficar de mais antiga para mais recente (ordem ascendente) como está na planilha (está correto assim).

Gostaria de inverter a ordem nas células que estão sem coloração da coluna "Data" (de mais recente para mais antiga - ordem ascendente)... simulei o resultado manualmente na planilha.

Vide Aba (DESEJADO) da planilha anexa.

[rit]

ta eu acho que da pra voce fazer isso sem ter que usar o VBA, na aba dados tem uma opção de classificação da uma fuçada e veja se te ajuda...