Página 1 de 1

Codigo VBA para Converter DATA (Resolvido)

Enviado: Seg Ago 03, 2015 11:29 am
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.

Re: Codigo VBA para Converter DATA

Enviado: Seg Ago 03, 2015 3:13 pm
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.

Re: Codigo VBA para Converter DATA

Enviado: Seg Ago 03, 2015 3:18 pm
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.

Re: Codigo VBA para Converter DATA

Enviado: Seg Ago 03, 2015 4:01 pm
por Reinaldo
Mais automatico que isso???

Re: Codigo VBA para Converter DATA

Enviado: Seg Ago 03, 2015 4:25 pm
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.

Re: Codigo VBA para Converter DATA

Enviado: Ter Ago 04, 2015 11:50 am
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

Re: Codigo VBA para Converter DATA

Enviado: Ter Ago 04, 2015 2:19 pm
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

Re: Codigo VBA para Converter DATA

Enviado: Ter Ago 04, 2015 6:49 pm
por vilmarmoc
Obrigado. Deu certo