Transferir dados da PLAN1 para PLAN3 linha por linha [ RESOLVIDO ]

Question

Salve caríssimos,

 

Encontrei aqui no forum um tópico onde o usuário transfere dados de um FORMULÁRIO para PLAN3...e eu preciso de algo parecido:

Formatei a PLAN1 para ficar com cara de formulário (mas não é), e tenho o botão um Cadastrar, que deve transferir os valores

dessas células para a PLAN3 um embaixo do outro. É como se a PLAN1 fosse a tela de cadastro e a PLAN3 o banco de dados.

 

Para facilitar a ajuda e entendimento estou postando a planilha em:

http://201.89.32.14/cadastro_clientes.xls

 

Obrigado mesmo desde já.

 

SDS, Mateus Belluzzo.

Answer 1

O entrave foi resolvido com a seguinte solução:

Dentro do botão (ferramenta de controle) Cadastrar que tenho na PLAN1, colei o código abaixo.

Private Sub CommandButton1_Click()
Worksheets("Plan2").Range("b65536").End(xlUp).Offset(1, 0).Value = ActiveSheet.Range("b5").Value
Worksheets("Plan2").Range("b65536").End(xlUp).Offset(0, 1).Value = ActiveSheet.Range("c5").Value
Worksheets("Plan2").Range("b65536").End(xlUp).Offset(0, 2).Value = ActiveSheet.Range("b8").Value
End Sub

Isso faz com que, cada vez que clico no botão, os valores do "formulário" sejam copiados para PLAN2 sempre na última linha vazia.

Bem o que eu precisava!

 

Att, Mateus Belluzzo.