Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Substituir ".&...
 
Notifications
Clear all

Substituir "." por "/" em datas

 
2024 - VBA & Macros
Post Recente por Wagner Morel 6 anos atrás
3 Posts
2 Usuários
0 Reactions
840 Visualizações
RSS
 fmathias
(@fmathias)
Posts: 6
Active Member
Topic starter
 

Olá,

Estou com um problema referente a formatação de data, ao passar do formato DD.MM.AAAA para DD/MM/AAAA algumas células (somente algumas) estão aparecendo como MM/DD/AAAA. Alguém sabe dizer porque, ou como resolver?

Na imagem abaixo, os dados da coluna "B" são os originais, para que possam entender o erro. Na coluna "A" a macro já foi executada e as células que ficaram alinhadas à direita são as que não ficaram como deveria.

Obrigado.

 
Postado : 30/06/2018 7:54 pm
 fmathias
(@fmathias)
Posts: 6
Active Member
Topic starter
 

Usei este código:

Dim row As Integer
row = 6

Do While (Range("A" & row).Value <> "")
    
    Dim val As String
    val = Range("A" & row).Value
    
    Dim z As Integer
    
    Dim result As String
    result = ""
    
    Dim spl() As String
    spl = Split(val, ".")
    
    If (UBound(spl) > 0) Then
        
        
        For z = 0 To Len(val)
            
            Dim r As String
            result = result & Replace(Mid(val, z + 1, 1), ".", "/")
        Next z
        
    End If
    
    If result <> "" Then
        
        Range("A" & row).NumberFormat = "@"
        Range("A" & row).Value = result
        
    End If
    
    row = row + 1
Loop
 
Postado : 30/06/2018 9:20 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

fmathias,

Bom dia!

Segue versão com correção.

Formatação de data.zip

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 : 30/06/2018 9:25 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico