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

Converter data em forma de texto em data padrão Brasil

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
Alberto de Carvalho
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sáb Jan 16, 2016 7:45 am

Converter data em forma de texto em data padrão Brasil

Mensagem por Alberto de Carvalho »

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.


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: Converter data em forma de texto em data padrão Brasil

Mensagem por Reinaldo »

O VBA por padrão "prefer" tratar datas pelo formato americano -> MM/DD/YYYY, assim ao efetuar a substituição e feita a conversão.
Uma possibilidade, sem o uso de macro é utilizar a função nativa Texto para Colunas, na guia Dados.
Selecione a Coluna F, va na guia dados -->Texto para Colunas --> Navege/Click em avanças 2x, na tela etapa 3, selecione o radio Button Data e no Combo selecione DMA, clique em concluir


Alberto de Carvalho
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sáb Jan 16, 2016 7:45 am

Re: Converter data em forma de texto em data padrão Brasil

Mensagem por Alberto de Carvalho »

Muito obrigado Reinaldo.
Pelo passo a passo que você me passou, eu criei uma Macro e substitui o comando anterior.

Substitui: Range("F2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Por:
Columns("F:F").Select
Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True

Agora ficou redondinho.

Valeu!


Alberto de Carvalho
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sáb Jan 16, 2016 7:45 am

Re: Converter data em forma de texto em data padrão Brasil

Mensagem por Alberto de Carvalho »

:D
Alberto de Carvalho escreveu:Muito obrigado Reinaldo.
Pelo passo a passo que você me passou, eu criei uma Macro e substitui o comando anterior.

Substitui: Range("F2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Por:
Columns("F:F").Select
Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True

Agora ficou redondinho.

Valeu!


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