Converter Texto em Data

2024 - VBA & Macros

Post Recente por Felipe Ecks 7 anos atrás

3 Posts

2 Usuários

0 Reactions

1,030 Visualizações

RSS

Felipe Ecks

(@ecks)

Posts: 48

Trusted Member

Topic starter

Boa tarde!
Mais uma vez recorro à vocÊs... ao carregar o banco de dados na minha planilha algumas datas da coluna B "Emissão" estão sendo carregadas em formato diferente das outras..
Quando aperto f2 e enter.. ela volta ao normal..
como posso converter todas ao mesmo tempo usando VBA?

agradeço!

Postado : 08/05/2018 11:22 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

ecks,

Boa tarde!

supondo que os dados estão numa aba chamada "Plan1" e que os dados da coluna B começam na linha 2...

Sub Converter()
    Dim i As Long
    Dim UltimaLinha As Long
    
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 2).End(xlUp).Row
    If UltimaLinha < 2 Then UltimaLinha = 2
    
    For i = 2 To UltimaLinha
        Range("B" & i).Value = CDate(Range("B" & i).Value)
    Next
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 08/05/2018 11:26 am