Notifications
Clear all

Copiar Linha Plan1 para Ultima linha Plan2

3 Posts
2 Usuários
0 Reactions
1,177 Visualizações
(@huggo1001)
Posts: 13
Active Member
Topic starter
 

NÃO CONSIGO INSERIR DADOS DA PLAN1 NA ULTIMA LINHA DA PLAN2.
TENTEI O SEGUINTE:
Sub Macro1()
Sheets("Plan1").Select ' Seleciona a Plan1
Range("A1").Select ' Posiciona na célula a ser copiada
Selection.Copy ' copia
Sheets("Plan2").Select ' Seleciona a planilha de destino
Range("A1").Select ' posiciona na primeira célula
ActiveCell.Offset(1, 0).Range("A1").Select ' posiciona na primeira livre
ActiveSheet.Paste ' cola
Sheets("Plan1").Select ' volta na planilha de origem dos dados
ActiveWorkBook.Save
Range("A1").Select
End Sub

AQUI VAI UM EXEMPLO:

 
Postado : 24/07/2013 6:12 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Hugo, apaguei o seu post no Forum "Formulario", uma vez que não temos um Formulário, e a questão é a de copiar da Plan1 para Plan2.

Tambem alterei o Titulo para um mais apropriado.

Então cole a rotina abaixo em seu arquivo, associe ao Botão na plan1.

Sub Copia_Plan1_p_Plan2()
    
    Sheets("Plan1").Range("A4:V4").Copy Destination:= _
    Sheets("Plan2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

End Sub

Uma OBS : Como na rotina é copiado a linha 4 de "A4:V4" para a proxima linha vazia na Plan2, você tem de apagar os PONTOS que estão na Plan2, senão os valores serão copiados abaixo dos pontinhos.

Não esqueça de salvar o Arquivo como Habilitado para Marcros (.xlsm)

Faça os testes e veja se é isto o que pretende.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/07/2013 7:09 pm
(@huggo1001)
Posts: 13
Active Member
Topic starter
 

Mauro,

Desculpe a minha ignorância e obrigado pelos acertos.
Quanto ao código eu adaptei apenas o retorno a linha 4 apagando o que foi transferido, para ser inserido novos dados.

Valeu e 1 Abç!

 
Postado : 25/07/2013 10:10 am