Converter data em forma de texto em data padrão Brasil
Enviado: Sáb Jan 16, 2016 8:13 am
Bom dia.
Eu tenho uma planilha de Excel no qual inseri uma Macro.
Eu copio de um programa e colo nesse meu gabarito.
Porem a copia vem como texto (Ex.: data - 01.02.2016), e quando eu rodo a macro, a data fica (02/01/2016) porque eu peço para Localizar e substituir o “.” Para “/”.
Como posso resolver isso? Estive vendo uns exemplos e não entendi.
Veja abaixo o Código:
Sub Substituir()
'
' Substituir Macro
' Substitui "." por "/" muda data e dia
'
' Atalho do teclado: Ctrl+q
'
ActiveSheet.Range("$A$1:$K$151").AutoFilter Field:=6, Criteria1:="<>"
Range("F2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Tem outras tarefas que eu não coloquei para não ficar grande o texte.
Eu tenho uma planilha de Excel no qual inseri uma Macro.
Eu copio de um programa e colo nesse meu gabarito.
Porem a copia vem como texto (Ex.: data - 01.02.2016), e quando eu rodo a macro, a data fica (02/01/2016) porque eu peço para Localizar e substituir o “.” Para “/”.
Como posso resolver isso? Estive vendo uns exemplos e não entendi.
Veja abaixo o Código:
Sub Substituir()
'
' Substituir Macro
' Substitui "." por "/" muda data e dia
'
' Atalho do teclado: Ctrl+q
'
ActiveSheet.Range("$A$1:$K$151").AutoFilter Field:=6, Criteria1:="<>"
Range("F2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Tem outras tarefas que eu não coloquei para não ficar grande o texte.