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