Fóruns
Microsoft Excel - 2...
Datas & Horas
Algumas datas no fo...
 
Notifications
Clear all

Algumas datas no formato incorreto e mudar o seu formato

 
Datas & Horas
9 Posts
2 Usuários
0 Reactions
1,863 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite a todos(as).

Tenho algumas datas que estão quebradas. O formato correto é DD/MM/AAAA, porém, porém está assim: MM/DD/AAAA, então, como faço para consertá-las para ficar no formato correto? Sendo que se eu mudar o formato, não muda. Algumas já estão no formato correto, até porque quando uso DATA.VALOR, algumas ela traz seu número, em outras retorna erro.
Como se algumas tivessem como texto.

Pode-se notar que eu algumas células o mês é maior que 12, então quero botar no formato correto. O problema é que algumas estão em um formato incorreto, como de texto, etc.

Como faço para que, as células que retornaram erro no DATA.VALOR() fiquem no formato correto, ou seja, DD/MM/AAAA.

A preocupaçao está porque futuramente terei que pegar a ORDEM de cada data naquele range, então, como algumas datas estão no formato incorreto, retorna erro.

Como faço para que, as células que retornaram erro no DATA.VALOR() fiquem no formato correto, ou seja, DD/MM/AAAA?

Obrigado a todos.

Segue anexo:

 
Postado : 07/07/2012 3:49 pm
 Robert
(@robert)
Posts: 561
Honorable Member
 

Caro Spacool, boa noite !

Não sei se entendi bem a sua pergunta, para fazer o que deseja é muito mais simples do que imagina.

Selecione todo o intervalo depois faça o que a imagem te diz:

Baixe:

Tomara que eu tenha sido útil?

Até mais,

 
Postado : 07/07/2012 4:10 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado, Robert, mas não é isso.

Dá pra observar que as datas ficaram com o mês maior que 12.

Já tinha feito isso há tempos, mas não funcionou.

O problema é que algumas estão em outros formatos, aí não funciona.

 
Postado : 07/07/2012 5:03 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Faça um teste do tipo..

Sub AleVAB_Data()
    Range("A2:A1000").Select
 For Each cell In Selection
 cell.Value = Mid(cell.Value, 4, 3) & Left(cell.Value, 2) & Right(cell.Value, 5)
 Next cell
 
End Sub

Obs:Não testado!!

Att

 
Postado : 07/07/2012 6:08 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado Alexandre,

Mudaram, mas algumas ficaram em formato incorreto.
O erro foi meu em falar que todas estavam no formato MM/DD/AAAA, existem algumas que estão no formato:

M/DD/AAAA

Outras MM/D/AAAA.

Isso foi o que atrapalhou tudo. :(

 
Postado : 07/07/2012 6:19 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite Sparcools

Veja se este tutoral pode te ajudar:

http://www.excelexperts.com.br/index.php/tag/mmddaaaa/

Um abraço.

 
Postado : 07/07/2012 6:25 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado, Patropi. Testei o código, mas não funcionou pro meu caso.

Realmente tá difícil, já que existe várias possibilidades como M/DD/AAAA ou MM/D/AAAA ou MM/DD/AAAA, aí fica difícil.

 
Postado : 07/07/2012 7:14 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Sparcools

Achei uma solução, bem trabalhosa, mas resolve o teu caso.

Data_Patropi_07_07_12.zip

Dê retorno.

Um abraço.

 
Postado : 07/07/2012 7:40 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ae, Patrópi, muito obrigado.

No início eu estava tentando fazer isso, cheguei na metade, quando teve mais possibilidades, não conseguí mais.

É isso mesmo.

Obrigado. :)

 
Postado : 07/07/2012 8:09 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico