Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Codigo VBA para Converter DATA (Resolvido)

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
vilmarmoc
Colaborador
Colaborador
Mensagens: 34
Registrado em: Seg Out 13, 2014 3:36 pm

Codigo VBA para Converter DATA (Resolvido)

Mensagem por vilmarmoc »

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.
Editado pela última vez por vilmarmoc em Ter Ago 04, 2015 6:50 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
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

Mensagem por Reinaldo »

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.


vilmarmoc
Colaborador
Colaborador
Mensagens: 34
Registrado em: Seg Out 13, 2014 3:36 pm

Re: Codigo VBA para Converter DATA

Mensagem por vilmarmoc »

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.


Avatar do usuário
Reinaldo
Jedi
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

Mensagem por Reinaldo »

Mais automatico que isso???


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


vilmarmoc
Colaborador
Colaborador
Mensagens: 34
Registrado em: Seg Out 13, 2014 3:36 pm

Re: Codigo VBA para Converter DATA

Mensagem por vilmarmoc »

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.


Avatar do usuário
Mauro Coutinho
Jedi
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

Mensagem por Mauro Coutinho »

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


Avatar do usuário
Rafael Monteiro
Consultor
Consultor
Mensagens: 277
Registrado em: Seg Nov 28, 2011 8:27 am
Localização: Sorocaba - SP
Contato:

Re: Codigo VBA para Converter DATA

Mensagem por Rafael Monteiro »

Use esse código se preferir.

Código: Selecionar todos

Cells.Replace What:=".", Replacement:="/", LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


vilmarmoc
Colaborador
Colaborador
Mensagens: 34
Registrado em: Seg Out 13, 2014 3:36 pm

Re: Codigo VBA para Converter DATA

Mensagem por vilmarmoc »

Obrigado. Deu certo


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder