Ir ao conteúdo
  • Cadastre-se
Visitante

Excel Macro Excel, copiar colar valores

Recommended Posts

Visitante

Oi pessoal

 

Utilizei a seguinte macro aqui do forum, e funcionou quase na perfeição, no entanto necessito de colar só os valores.alguém me pode ajudar ?   obrigado

 

Sub CopyOrder()
   
  Dim LR As Long 'retorna o número da última linha com conteúdo na coluna
    LR = Sheets("ORDERS").Cells(Rows.Count, 1).End(xlUp).Row
  Sheets("ORDER").Range("A4:F10").Copy Sheets("ORDERS").Range("A" & LR + 1)

End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
Dim LR As Long 'retorna o número da última linha com conteúdo na coluna
    LR = Sheets("ORDERS").Cells(Rows.Count, 1).End(xlUp).Row
  Sheets("ORDERS").Range("A" & LR + 1).Value = Sheets("ORDER").Range("A4:F10").Vlaue

End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
  • Autor do tópico
  •    0
    Visitante

    Obrigado André. já fiz o teste, mas copia só a coluna "A", mas eu necessito que copie o Range("A4:F10"), ou seja o mesmo conteúdo, da sheet "ORDER" para a sheet "ORDERS" , mas só valores

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    Tenta assim:

     

     

    Sub CopyOrder()
       
      Dim LR As Long 'retorna o número da última linha com conteúdo na coluna
        LR = Sheets("ORDERS").Cells(Rows.Count, 1).End(xlUp).Row
      Sheets("ORDER").Range("A4:F10").Copy

    Sheets("ORDERS").select

    Sheets("ORDERS").cells(LR, 1).PasteSpecial Paste:=xlPasteValues

     

    End Sub

    • Curtir 1

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites
  • Autor do tópico
  •    0
    Visitante

    Oi, obrigado pela ajuda.

    Fiz o teste, copia só valores como eu pretendia, mas não cola o "Range" como eu adequadamente.

    O Range("A4:F10") na Sheet ("ORDER") é o campo limite na introdução de dados, mas se eu tiver somente dados num Range por exemplo ("A4:F6"), deve ser somente estes valores que devem ser copiados para a sheet ("ORDERS"), na primeira linha vazia que a macro encontrar.

    Se você conseguir ajudar fico muito agradecido.

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    Assim:

     

    Sub CopyOrder()
       
      Dim LR As Long 'retorna o número da última linha com conteúdo na coluna
        LR = Sheets("ORDER").Cells(Rows.Count, 1).End(xlUp).Row
      Sheets("ORDER").Range("A4:F" & LR).Copy

    LR = Sheets("ORDERS").Cells(Rows.Count, 1).End(xlUp).offset(1,0).Row

    Sheets("ORDERS").select

    Sheets("ORDERS").cells(LR, 1).PasteSpecial Paste:=xlPasteValues

     

    End Sub

    • Obrigado 1

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites
  • Autor do tópico
  •    0
    Visitante

    Valeu campeão. obrigado e um forte abraço aí pra galera de N.I.

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    Crie uma conta ou entre para comentar

    Você precisar ser um membro para fazer um comentário

    Criar uma conta

    Crie uma nova conta em nossa comunidade. É fácil!

    Crie uma nova conta

    Entrar

    Já tem uma conta? Faça o login.

    Entrar agora





    Sobre o Clube do Hardware

    No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

    Direitos autorais

    Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

    ×