locked
Transferir dados da PLAN1 para PLAN3 linha por linha [ RESOLVIDO ] RRS feed

  • Pergunta

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

    quinta-feira, 4 de novembro de 2010 18:47

Todas as Respostas

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

    sexta-feira, 5 de novembro de 2010 02:25