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

https://www.sneakerfiles.com/wp-content/uploads/[…]

https://img.alicdn.com/imgextra/i1/848014414/O1C[…]

https://www.1freshfoot.com/media/catalog/product[…]

Olá galera, Estou tentando criar um gr&aac[…]

FUNÇÃO SOMESES

Na planilha a1, TOKO tem um espaço antes da[…]

osvaldomp, muito agradecido pela ajuda :D :D

Não entendi se sua dúvida é d[…]

Cadastro de Funcionários

Eu não me proponho a construir o UserForm d[…]