Página 1 de 1

Ajustar Código Ordenar Tabela

Enviado: 06 Jan 2019 às 18:16
por 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.

Re: Ajustar Código Ordenar Tabela

Enviado: 07 Jan 2019 às 08:52
por SandroLima
Bom dia, pessoal.

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

Re: Ajustar Código Ordenar Tabela

Enviado: 07 Jan 2019 às 14:48
por 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???

Re: Ajustar Código Ordenar Tabela

Enviado: 09 Jan 2019 às 09:16
por SandroLima
Bom dia.

Alguém sabe como proceder nessa atividade?

Re: Ajustar Código Ordenar Tabela

Enviado: 09 Jan 2019 às 13:45
por SandroLima
Boa tarde.

Ninguém?

Re: Ajustar Código Ordenar Tabela

Enviado: 10 Jan 2019 às 09:32
por rit
veja se isso que quer.

Re: Ajustar Código Ordenar Tabela

Enviado: 10 Jan 2019 às 09:52
por 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.

Re: Ajustar Código Ordenar Tabela

Enviado: 10 Jan 2019 às 10:42
por rit
veja agora

Re: Ajustar Código Ordenar Tabela

Enviado: 10 Jan 2019 às 12:42
por 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.

Ajustar Código Ordenar Tabela

Enviado: 10 Jan 2019 às 12:59
por 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...