Este fórum está sendo desativado

[DennerSantos]

Galera precisava de uma ajuda vi um vídeo no youtube para aplicar umas informações de uma tabela para outra e so precisava de uma ajuda na formatação de data numa das colunas na hora de transportar a data vem em formato errado

segue o codigo

Código: Selecionar todos

Sub relatorio()
    Plan4.Range("A31:G1500").ClearContents
    ultimalinha = Planilha1.Cells(Rows.Count, "a").End(xlUp).Row
    lin = 31
    For i = 2 To ultimalinha
        If Planilha1.Cells(i, 12) = "Nubank" Then
            Plan4.Cells(lin, 1) = Planilha1.Cells(i, 1) 'Movimento
            Plan4.Cells(lin, 2) = Planilha1.Cells(i, 4) 'data
            Plan4.Cells(lin, 3) = Planilha1.Cells(i, 7) 'Pessoa
            Plan4.Cells(lin, 4) = Planilha1.Cells(i, 8) 'Descrição
            Plan4.Cells(lin, 5) = Planilha1.Cells(i, 9) 'Entrada
            lin = lin + 1
        End If
          If Planilha1.Cells(i, 13) = "Nubank" Then
            Plan4.Cells(lin, 1) = Planilha1.Cells(i, 1) 'Movimento
            Plan4.Cells(lin, 2) = Planilha1.Cells(i, 4) 'data
            Plan4.Cells(lin, 3) = Planilha1.Cells(i, 7) 'Pessoa
            Plan4.Cells(lin, 4) = Planilha1.Cells(i, 8) 'Descrição
            Plan4.Cells(lin, 6) = Planilha1.Cells(i, 9) 'Entrada
            lin = lin + 1
        End If
        
    Next
End Sub

obrigado

[CursoDeExcelGratis]

Bom dia, o que acontece é que internamente no excel , a data é um número, o que vc pode fazer para facilitar sua vida é deixar pre-formatada a coluna onde vc vai copiar a data, que pela sua macro vai ser sempre a mesma coluna, basicamente seleciona a coluna inteira e coloca no tipo de dados Data, deveria resolver. Experimenta e me conta se deu certo !

[osvaldomp]

#
Experimente:

Plan4.Cells(lin, 2) = DateValue(Planilha1.Cells(i, 4)) 'data

[DennerSantos]

osvaldomp

meu amigo deu certo agora vem em formato de data porem a data vem envertida a um tempo atras achei uma solução para resolver isso porem nao sei como aplicar pode me ajudar?

Código: Selecionar todos

Cells(UltimaLinha, 4).Value = Format(data.value,"DD/MM/YYYY")

Grato

[osvaldomp]

#
Veja se atende.
Plan4.Cells(lin, 2) = DateValue(Format(Planilha1.Cells(i, 4), "dd/mm/yyyy")) 'data

Se ainda estiver invertida então experimente este abaixo.
Plan4.Cells(lin, 2) = DateValue(Format(Planilha1.Cells(i, 4), "mm/dd/yyyy")) 'data

[DennerSantos]

Cara deu muito certo, fico muito agradecido mano

obrigado de verdade