Excel Macro Excel, copiar colar valores

[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

 

[André_Arruda]

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

 

[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

[CasaDoHardware]

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

[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.

[CasaDoHardware]

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

[Visitante]

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