Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Copiar em uma aba e...
 
Notifications
Clear all

Copiar em uma aba e colar em outra

 
2024 - VBA & Macros
Post Recente por Celri_33 8 anos atrás
5 Posts
2 Usuários
0 Reactions
897 Visualizações
RSS
 Celri_33
(@celri_33)
Posts: 208
Reputable Member
Topic starter
 

Bom dia pessoal!

Preciso daquela costumeira ajuda de vocês.
Tenho uma planilha que segue anexo, preciso copiar da Plan1 a partir da linha 2 para a Plan3 os dados que estão grifados em amarelo, até ai sem problemas eu consigo fazer mas a complicação esta no seguinte motivo:
Todos os dias vou gerar o relatório, colocar na Plan1 para levar os dados para a Plan3 mas os dados da Plan3 não podem ser apagados, ou seja, são acumulativos, então a colagem teria que ser abaixo dos dados que já estão la , tem como fazer?

Tracking Time Delivery.zip
 
Postado : 10/04/2017 5:26 am
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Se vc consegue fazer a copia.

Essa linha de codigo identifica a primeira linha vazia


range("A1048576").End(XLup).offset(1,0).row

Coloque no seu codigo onde deve identificar a linha vazia.

 
Postado : 10/04/2017 5:54 am
 Celri_33
(@celri_33)
Posts: 208
Reputable Member
Topic starter
 

Ola amigo, não sei se fiz direito mas deu erro.

Segue anexo.

Tracking Time Delivery.zip
 
Postado : 10/04/2017 6:43 am
 Celri_33
(@celri_33)
Posts: 208
Reputable Member
Topic starter
 

MPrudencio

Esta dando erro de copilação.

 
Postado : 10/04/2017 10:58 am
 Celri_33
(@celri_33)
Posts: 208
Reputable Member
Topic starter
 

Pessoal,

Resolvi assim, não sei se é o modo mais correto mas deu certo:

Sub Copiar2()
  Dim LR As Long 'retorna o número da última linha com conteúdo na coluna
    LR = Sheets("Plan3").Cells(Rows.Count, 1).End(xlUp).Row
  Sheets("Plan1").Range("B2:B5000").Copy Sheets("Plan3").Range("A" & LR + 1)
  Sheets("Plan1").Range("D2:D5000").Copy Sheets("Plan3").Range("B" & LR + 1)
  Sheets("Plan1").Range("F2:F5000").Copy Sheets("Plan3").Range("C" & LR + 1)
  Sheets("Plan1").Range("I2:I5000").Copy Sheets("Plan3").Range("E" & LR + 1)
  Sheets("Plan1").Range("K2:K5000").Copy Sheets("Plan3").Range("G" & LR + 1)
  Sheets("Plan1").Range("L2:L5000").Copy Sheets("Plan3").Range("J" & LR + 1)
  Sheets("Plan1").Range("O2:O5000").Copy Sheets("Plan3").Range("M" & LR + 1)
  Sheets("Plan1").Range("R2:R5000").Copy Sheets("Plan3").Range("O" & LR + 1)
  Sheets("Plan1").Range("T2:T5000").Copy Sheets("Plan3").Range("U" & LR + 1)
  Sheets("Plan1").Range("X2:X5000").Copy Sheets("Plan3").Range("Y" & LR + 1)
  Sheets("Plan1").Range("Y2:Y5000").Copy Sheets("Plan3").Range("Z" & LR + 1)
  Sheets("Plan1").Range("AA2:AA5000").Copy Sheets("Plan3").Range("AA" & LR + 1)
End Sub
 
Postado : 10/04/2017 12:40 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico