Compartilhar via

Macro converte data (do dia 1 ao dia 12) para o padrão americano mas reconhece como padrão brasileiro

Anônima
2014-11-27T16:46:55+00:00

Boa tarde,

Estou criando uma planilha, onde vou importar dados de um arquivo de texto. Dentre os dados, há uma coluna de Data e Hora que vem formatada da seguinte maneira: dd mm aaaa hh:mm (a data vem separada por espaço).

Criei uma macro para tirar o espaço que vem depois do ano, substituir os espaços por / e depois colocar o espaço depois do ano novamente. Segue a macro: 

Sub Ajusta_Data()

'

' Ajusta_Data Macro

'

' Atalho do teclado: Ctrl+d

'

    Columns("A:A").Select

    Selection.Replace What:="2014 ", Replacement:="2014", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

    Selection.Replace What:=" ", Replacement:="/", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

    Selection.Replace What:="2014", Replacement:="2014 ", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

    Range("A1").Select

    ActiveCell.FormulaR1C1 = "Date and Time"

    Range("A2").Select

End Sub

Funciona parcialmente. Pois as datas que estão no range entre os dias 01 ao 12, convertidas para o padrão americano.

Por exemplo: se a data vem 01 11 2014 00:00 quando executo a macro ela alterada para 11/01/2014 00:00 e assim se faz até o dia 12, a partir daí as datas ficam normais.

O problema que percebi foi que quando a data é convertida para 11/01/2014 00:00o sistema não reconhece ela como sendo 01 de novembro de 2014, reconhece como se fosse 11 de janeiro de 2014.

Já procurei em alguns tópicos no fórum, mas não consegui resolver o problema.

Já tentei converter a data pro padrão americano, adicionado o código abaixo à macro. Mas não resolveu.

Range(Selection, Selection.End(xlDown)).Select

    Selection.NumberFormat = "mm/dd/yyyy hh:mm"

Se alguém puder me ajudar, souber de alguma configuração do excel, ou algum código que eu possa usar para resolver isso, ficarei extremamente agradecido.

Desde já obrigado!

Microsoft 365 e Office | Excel | Para uso doméstico | Windows

Pergunta bloqueada. Essa pergunta foi migrada da Comunidade de Suporte da Microsoft. É possível votar se é útil, mas não é possível adicionar comentários ou respostas ou seguir a pergunta.

0 comentários Sem comentários