Uma família de softwares de planilhas da Microsoft com ferramentas para analisar, criar gráficos e comunicar dados.
Macro converte data (do dia 1 ao dia 12) para o padrão americano mas reconhece como padrão brasileiro
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.