Notifications
Clear all

Código para procurar dados de cadastro

7 Posts
2 Usuários
0 Reactions
952 Visualizações
(@15987)
Posts: 5
Active Member
Topic starter
 

Ola preciso de um código para um botão do formulário que procure os dados na mesma planilha de cadastros a partir de um dos dados do cadastro digitados.

 
Postado : 01/12/2015 12:41 pm
(@15987)
Posts: 5
Active Member
Topic starter
 

Ola preciso de um código para um botão do formulário que procure os dados na mesma planilha de cadastros a partir de um dos dados do cadastro digitados.

Urgentee por favor !!!!

 
Postado : 01/12/2015 12:43 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

15987,

Boa tarde!

Sua dúvida está muito genérica. Poste um arquivo exemplo, compactado (com dados fictícios, porém com layout idêntico da sua planilha real) para que possamos ajudar.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 01/12/2015 12:45 pm
(@15987)
Posts: 5
Active Member
Topic starter
 

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
(@15987)
Posts: 5
Active Member
Topic starter
 

 
Postado : 01/12/2015 1:02 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

15987,

Como lhe disse na primeira resposta, o ideal é que poste um arquivo exemplo pois em programação todos os detalhes são muito importantes e é impossível "adivinhar" o que a pessoa quer.

Mesmo com esse código todo que você colocou, fica muito difícil saber exatamente como são as coisas. Desse modo, fiz algumas suposições e coloquei num arquivo exemplo (com o seu código).

Veja se é isso.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 01/12/2015 1:50 pm
(@15987)
Posts: 5
Active Member
Topic starter
 

muito obrigada era isso mesmo que eu precisava, eu ainda estou aprendendo por isso tive dificuldades em descrever o que eu queria, mas você entendeu. :)

 
Postado : 01/12/2015 2:41 pm