Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Codigo VBA para Converter DATA (Resolvido)
Codigo VBA para Converter DATA (Resolvido)
Olá;
Preciso de Um código VBA que converta o valor inserido na coluna E que está em formato Geral ex. 03.08.2015 para o formato data (dd/mm/aa);
Desde já agradeço.
Preciso de Um código VBA que converta o valor inserido na coluna E que está em formato Geral ex. 03.08.2015 para o formato data (dd/mm/aa);
Desde já agradeço.
Editado pela última vez por vilmarmoc em Ter Ago 04, 2015 6:50 pm, em um total de 1 vez.
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Codigo VBA para Converter DATA
Experimente a função nativa do excel --> Texto Para Colunas (No menu Dados)
Selecione a coluna desejada (uma por vez) -- Ma guia Menu selecione Dados -- Texto para Colunas , então clique 2 vezes em "Avançar" , na tela 3 selecione o radio referente a Data; então clique em concluir.
Selecione a coluna desejada (uma por vez) -- Ma guia Menu selecione Dados -- Texto para Colunas , então clique 2 vezes em "Avançar" , na tela 3 selecione o radio referente a Data; então clique em concluir.
Re: Codigo VBA para Converter DATA
Obrigado... Mas precisa ser automático. Assim que os dados são copiados para esta coluna, preciso que seja convertido em data, pois vem em um relatorio e neste campo contem data, porem o formato gerado é geral e não data.
Re: Codigo VBA para Converter DATA
Quando digo que tem que ser automático é que toda vez que apagar os dados e inserir novo, terá que repetir este procedimento. Para o usuário Leigo o ideal é que naquele campo, qualquer valor que ele insira, este valor seja convertido para o formato data, uma vez que trata-se de um campo calculável, ou seja, será calculado quantos dias de acordo com a data informada.
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: Codigo VBA para Converter DATA
Se quer fazer isto atraves de uma macro, utilize o Gravador de Macros e faça passo a passo o que o Reinaldo disse e terá sua rotina, depois é só ajustar os ranges e colocar no Evento Change da aba :
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 4 Then 'Ajuste para a coluna que serão colados as datas
'Aqui Sua rotina de conversão a que gravou
End If
End Sub
- Rafael Monteiro
- Consultor
- Mensagens: 277
- Registrado em: Seg Nov 28, 2011 8:27 am
- Localização: Sorocaba - SP
- Contato:
Re: Codigo VBA para Converter DATA
Use esse código se preferir.
Código: Selecionar todos
Cells.Replace What:=".", Replacement:="/", LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False