Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
Por DennerSantos
#63783
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
Avatar do usuário
Por CursoDeExcelGratis
#63785
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 !
Por osvaldomp
#63787
#
Experimente:

Plan4.Cells(lin, 2) = DateValue(Planilha1.Cells(i, 4)) 'data
Por DennerSantos
#63792
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
Por osvaldomp
#63797
#
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

Na figura 1 é a aparência quando abro[…]

Cara, nem sei como agradecer. Showww, resolveu per[…]

repetição entre jogos

Poderia dar alguns exemplo de resultado esperado s[…]

Mudar o mês na fórmula

Anexa um exemplo, por favor.

Não seria só desabilitar a opç[…]

Ajuda Para Calculo com horario.

Bom dia/tarde/noite Pessoal preciso de uma ajuda[…]

Agradeço muito pela dica, mas acredito que […]

Retornar nome do computador na rede

achei a mesma pergunta neste forum , com resposta,[…]