Trocar ponto por barra na data

2024 - VBA & Macros

Post Recente por rafaelp 8 anos atrás

6 Posts

3 Usuários

0 Reactions

4,790 Visualizações

RSS

Silverio

(@silverio)

Posts: 50

Trusted Member

Topic starter

Bom dia!

Extraio algumas datas do SAP e vem assim 05.06.2016 e preciso tirar o . e colocar a / porém quando faço a troca manual ela faz, agora na macro inverte o dia com o mês, uso a rotina abaixo para fazer a conversão, como resolver?

Range("H5").Select
FIM_LINHA = Range("H60000").End(xlDown).Row
Range("H5:H" & FIM_LINHA).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Postado : 23/09/2016 4:08 am

rafaelp

(@rafaelp)

Posts: 89

Trusted Member

Bom dia!

Silverio,

Segue planilha anexa pra você adaptar às suas necessidades. Veja se lhe atende.
O código passou a ser:

Sub FormatarData()

UltLinha = Plan1.Cells(Rows.Count, "H").End(xlUp).Row

Range("H5").Select
FIM_LINHA = Range("H60000").End(xlDown).Row
Range("H5:H" & FIM_LINHA).Select
Range(Selection, Selection.End(xlDown)).Select

Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

    For i = 5 To UltLinha
    
        Plan1.Cells(i, "H") = Format(Plan1.Cells(i, "H"), "DD/MM/YYYY")
    
    Next

End Sub

Postado : 23/09/2016 4:36 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Creio que a melhor maneira de "corrigir" é utilizando a função nativa do Excel -->Texto para Colunas .
Selecione a coluna a ser "tratada" (uma coluna por vez), vá no menu superior --Dados e depois -- Texto para colunas -- -->clique em avançar duas vezes-- nessa terceira tela selecione o radiobutton "Data" e no combo ao lado o tipo de data adequado ao dado recebido(DMA -Dia Mes Ano; MDA- Ano Dia mes etcc...), clique concluir.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 23/09/2016 4:55 am

Silverio

(@silverio)

Posts: 50

Trusted Member

Topic starter

Rafael não deu certo, quando faz a troca do ponto por barra inverte e depois não volta.

Postado : 23/09/2016 6:43 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Silvério

Qual foi a solução encontrada?
Você marcou como Resolvido uma resposta dizendo que não funcionou?????
Eu desmarquei o Resolvido, se já tiver sido resolvido, marque a resposta que realmente te atendeu e não a tua resposta.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 23/09/2016 7:02 am