none
[Dúvida] Visual Basic RRS feed

  • Pergunta

  • Bom dia amados.

    Estou criando um formulário de cadastro para o Excel. Só que eu estou precisando de um código que eu não sei qual é, vou tentar explicar.

    O meu código está da seguinte forma: Quando eu preencho os campos do formulário e clico salvar, ele salva e os dados vão para a linha que eu indiquei que eles fossem e após isso fiz com que ele acrescentasse uma linha fazendo com que as informações que eu coloquei fossem para baixo. O que eu gostaria de saber é se tem algum código que eu possa colocar para toda vez que eu for cadastrar outra empresa ele preencha a linha de baixo e que eu não precise mais colocar um código para que acrescente mais uma linha fazendo com que a informação anterior vá para baixo.

    Aguardo ansioso.

    • Movido AndreAlvesLima segunda-feira, 8 de outubro de 2012 19:12 (De:Conteúdo do site MSDN)
    segunda-feira, 3 de setembro de 2012 11:49

Respostas

  • Amigo... Bom dia...


    Seguinte no Evento Click do Botao para Inserir os dados voce coloca o seguinte codigo:

        ' wsCadastro - planilha que voce esta adicionando as informacoes     Set wsCadastro = Worksheets("Cadastro")     Final = wsCadastro.Cells(65536, 1).End(xlUp).Row          lin = Final + 1     If (txtNome.text = "" Or txtSobreNome.text = "" Or txtIdade.text = "" Or txtNascimento.text = "") Then            MsgBox ("Há Campos não preenchidos!")            Else     wsCadastro.Cells(lin, 1).Value = txtNome.text     wsCadastro.Cells(lin, 2).Value = txtSobreNome.text     wsCadastro.Cells(lin, 3).Value = txtIdade.text     wsCadastro.Cells(lin, 4).Value = txtNascimento.text

    End If

    espero que seja realmente isso que voce esta precisando. 8D


    OBS: Não esquece de votar como Util. 8)

    quinta-feira, 6 de setembro de 2012 13:53

Todas as Respostas

  • Amigo... Bom dia...


    Seguinte no Evento Click do Botao para Inserir os dados voce coloca o seguinte codigo:

        ' wsCadastro - planilha que voce esta adicionando as informacoes     Set wsCadastro = Worksheets("Cadastro")     Final = wsCadastro.Cells(65536, 1).End(xlUp).Row          lin = Final + 1     If (txtNome.text = "" Or txtSobreNome.text = "" Or txtIdade.text = "" Or txtNascimento.text = "") Then            MsgBox ("Há Campos não preenchidos!")            Else     wsCadastro.Cells(lin, 1).Value = txtNome.text     wsCadastro.Cells(lin, 2).Value = txtSobreNome.text     wsCadastro.Cells(lin, 3).Value = txtIdade.text     wsCadastro.Cells(lin, 4).Value = txtNascimento.text

    End If

    espero que seja realmente isso que voce esta precisando. 8D


    OBS: Não esquece de votar como Util. 8)

    quinta-feira, 6 de setembro de 2012 13:53
  • Olá,

    Estou movendo este post para a categoria de VBA...

    Por favor, das próximas vezes que tiver alguma dúvida relacionada a esse assunto, poste por lá...

    Obrigado...

    André Alves de Lima
    Microsoft MVP - Client App Dev
    Visite o meu site: http://www.andrealveslima.com.br
    Me siga no Twitter: @andrealveslima

    segunda-feira, 8 de outubro de 2012 19:11