Segue a rotina alterada, substitua
Private Sub cmdPequisar_Click()
Dim c As Variant
'Verificar se foi digitado um nome na primeira caixa de texto
If txtTitulo.Text = "" Then
MsgBox "Natural de"
txtTitulo.SetFocus
GoTo Linha1
End If
With Worksheets("Dados Clientes").Range("A:A")
Set c = .Find(txtTitulo.Text, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
c.Activate
txtTitulo.Text = c.Value
txtNome.Text = c.Offset(0, 1).Value
txtEndereco.Text = c.Offset(0, 2).Value
cboEstado.Text = c.Offset(0, 3).Value
cboCidade.Text = c.Offset(0, 4).Value
txtTelefone.Text = c.Offset(0, 5).Value
txtEmail.Text = c.Offset(0, 6).Value
txtNascimento.Text = c.Offset(0, 7).Value
TxtSecao.Text = c.Offset(0, 10).Value
TxtBairro.Text = c.Offset(0, 11).Value
TxtNaturalde.Text = c.Offset(0, 12).Value
'Carregando o botão de opção
If c.Offset(0, 8) = "Masculino" Then
OptionButton1.Value = True
Else
OptionButton2.Value = True
End If
Else
MsgBox "Cliente não encontrado!"
End If
End With
Linha1:
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 18/04/2013 12:29 pm