Private Sub btnCadastrar_Click()
'declarar as variáveis
Dim linha As Integer, ws As Worksheet
Dim nome As String
Dim numerocadastro As Integer
Dim telefone As Integer, idade As Integer
Set ws = Worksheets(1) 'faço ws ser a planilha plan1
linha = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'verificar o preenchimento por parte do usuario
If Not IsNumeric(txtnumerocadastro.Text) Then
MsgBox "O Campo Ra deve ser Numérico"
txtnumerocadastro.Text = ""
txtnumerocadastro.SetFocus
Exit Sub
End If
If txtnome.Text = "" Then
MsgBox "O Campo Nome deve ser preenchido"
txtnome.SetFocus
Exit Sub
End If
If Not IsNumeric(txttelefone.Text) Then
MsgBox "O Campo Telefone deve ser Numérico"
txttelefone.Text = ""
txttelefone.SetFocus
Exit Sub
End If
If Not IsNumeric(txtidade.Text) Then
MsgBox "O Campo Idade deve ser Numérico"
txtidade.Text = ""
txtidade.SetFocus
Exit Sub
End If
'jogar os dados do formulários em variáveis
numerocadastro = txtnumerocadastro.Text
nome = UCase(txtnome.Text)
telefone = txttelefone.Text
idade = txtidade.Text
'jogar os dados das variáveis finalmente para a planilha
ws.Cells(linha, 1).Value = numerocadastro
ws.Cells(linha, 2).Value = nome
ws.Cells(linha, 3).Value = telefone
ws.Cells(linha, 4).Value = idade
MsgBox "Dados cadastrados com sucesso"
txtnumerocadatro.Text = ""
txtnome.Text = ""
txttelefone.Text = ""
txtidade.Text = ""
txtCnumerocadastro.SetFocus
End Sub
Private Sub CommandButton1_Click()
UserForm1.Show
Aqui ficaria o código do botão procurar !!!
End Sub
Então, preciso que à partir desse programa seja criado mais um botão neste formulário, que faça uma busca nos dados cadastrados pelo o usuário e assim facilite o preenchimento dos dados. Esse dados já estão cadastrados em uma planilha do excel. (Um botão procurar que fique visivel no formulário de cadastro)Obs: preciso apenas do código. Obrigada
Postado : 01/12/2015 12:57 pm