Notifications
Clear all

Criar função

5 Posts
3 Usuários
0 Reactions
935 Visualizações
(@wagner-aft)
Posts: 28
Eminent Member
Topic starter
 

Pessoal,

O tempo todo no trabalho me deparo com datas no formato 20170123 por exemplo e preciso convertê-la para o formato 23/01/2017. Para converter utilizo sempre a seguinte fórmula: =DIREITA(A1;2)&"/"&EXT.TEXTO(A1;5;2)&"/"&ESQUERDA(A1;4). Após eu copio e salvo como valores e salvo a célula como "data".

Gostaria de criar uma função para não ficar precisando digitar a fórmula o tempo todo. Lembrando que no exemplo da fórmula citei a célula A1 mas a data pode aparecer em qualquer célula ou coluna.

Agradeço desde já qualquer ajuda.

Abraço

 
Postado : 24/03/2017 12:07 pm
Syrax
(@syrax)
Posts: 160
Estimable Member
 

Veja se isso te ajuda

Abra uma nova planilha do excel, aperte ALT+F11, clique no menu inserir e depois em módulo e cole esse código

Function ARRUMARDATA(x As Long)
ARRUMARDATA = Right(x, 2) & "/" & Mid(x, 5, 2) & "/" & Left(x, 4)
End Function

salve o arquivo com o nome ARRUMADATA.xlam, feche o arquivo

Agora abra outra planilha do excel qualquer, clique em ARQUIVO>OPÇÕES>SUPLEMENTOS em gerenciar selecione "Suplementos do excel", clique em "ir"
Seleciona ARRUMARDATA e clique em OK

Pronto, você já tem a função funcionando para todas as planilhas, basta digitar

=ARRUMARDATA(REFERENCIA)
Sendo a referência a célula que está a data

Se isso te ajudou, clique no "joinha" ao lado de citar

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

 
Postado : 24/03/2017 12:18 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Eu faria assim:

Function ARRUMARDATA_FF(x As Long)
ARRUMARDATA_FF= DateSerial(Left(x, 4),Mid(x, 5, 2),Right(x, 2))
End Function

E escreve na célula:

=ARRUMARDATA_FF(A1)

Desta forma o resultado já volta como data. Da forma sugerida pelo Syrax, o retorno é um texto que parece data.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/03/2017 3:19 pm
Syrax
(@syrax)
Posts: 160
Estimable Member
 

Fernando

Na verdade só converti a fórmula que ele estava usando em função, a fórmula dele não foi alterada
além do mais, não sabemos se ele precisa da função apenas para uma planilha ou para qualquer planilha, por isso sugeri a criação de um suplemento

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

 
Postado : 24/03/2017 4:12 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

... Após ... eu copio e salvo como valores e salvo a célula como "data". ...

Ele quer data ! Mas sim, concordo, fica a critério dele escolher o que melhor atende!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/03/2017 9:43 pm