Macro troca inexplicavelmente dd/mm por mm/dd

[Gustavo Binnie 0]

Olá pessoal,

 

Estou fazendo uma macro que trata alguns dados no excel. Peguei os dados na web e ao retirar o código 160 do final de cada célula pelo seguinte código:

 

Range("a1:z1000").Select

Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _

xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

 

Só que ao fazer isso, as células com data do tipo d/m/aaaa vira m/d/aaaa... Só não viram assim as que tem dias com dois digitos, tais como 18/5/2009. As que são do tipo 8/4/2009 vira 4/8/2009.

 

Já tentei formatar as células no formato data dd/mm/aaaa antes de rodar a macro, mas como tem aquele espaço (código 160) no final, ele não consegue formatá-las.

 

Alguém sabe o que posso fazer para resolver esse problema?

[scorpio 7]

Como está os dados na planilha, poe um print, alguma coisa assim...

 

Posta a macro também pra darmos uma olhada.

 

Até mais!

[Gustavo Binnie 0]

Esses são os dados:

 

Data da Data da

Movimentação Cotização

 

27/3/2009  27/3/2009 

8/4/2009  9/4/2009 

30/4/2009  4/5/2009 

18/5/2009  19/5/2009 

18/6/2009  19/6/2009 

 

Nas datas com um dígito no dia, tais como 8/4/2009, 9/4/2009 e 4/5/2009, os dias são trocados pela posição do mês... Nos outros, ocorre tudo bem..

 

A macro é a que eu coloquei no primeiro post...

 

Importante lembrar que os dados foram copiados de uma página da web e ficam com um espaço no final de cada célula. Na realidade não é o espaço tradicional, é um outro caractere, o de código 160.

[scorpio 7]

Estranho mesmo. Deve ser por causa do padrão inglês(mm/dd/aaaa), tentei colocar 01/may/2009, mas deu o mesmo problema, quando substitue ele troca para 05/jan/2009. :blink:

 

 

Você precisa executar essa macro sempre, ou só agora, para alterar os dados? Pode ser que com formulas resolva seu problema. Tem as funções Dia, Mes, Ano.

[Claudio Neto 3]

Tente usar o modelo como yyyy-mm-dd.

 

Veja se dá certo, costumo usar para resolver esse tipo de problema com access.

[Gustavo Binnie 0]

Mas eu não consigo alterar o formato da data antes de retirar o código 160 do final das células...

[scorpio 7]

Se você utilizar o Substituir, não funciona? Sem utilizar a macro.

[Gustavo Binnie 0]

Funciona, mas essa macro está dentro de outra macro maior que será utilizada inúmeras vezes...

 

Não gostaria de ter que ficar substituindo na mão toda vez...

[scorpio 7]

VocÇe faz algum calculo com a data ?

[Gustavo Binnie 0]

Não faço. No momento o jeitinho q dei é ele não realizar a substituição nas células de data...

 

Mas estava curioso se existe um jeito correto de resolver esse problema...