Se puderem me ajudar em mais essa e acho que vai servir pra outros também. Estou tentando fazer com que ao clicar em pesquisar os Textbox são preenchidos com os dados do cliente, e clicando novamente no botão Pesquisar os TextBox são carregados com os dados do próximo registro do mesmo cliente. Ou seja, vai de registro em registro do mesmo código.
Estou com dificuldades no Loop.
Private Sub cmdPequisar_Click()
'Verificar se foi digitado um nome na primeira caixa de texto
If txtCPF.Text = "" Then
MsgBox "Digite o CPF de um cliente"
txtCPF.SetFocus
GoTo Linha1
End If
With Worksheets("Dados Clientes").Range("A:A")
Set c = .Find(txtCPF.Value, LookIn:=xlValues, LookAt:=xlPart)
Do Until Sheets("Dados Clientes").Cells(0, 1) = ""
If Sheets("Dados Clientes").Cells(0, 1) = txtCPF Then
If Not c Is Nothing Then
c.Activate
txtCPF.Value = c.Value
txtNome.Value = c.Offset(0, 1).Value
txtEndereco.Value = c.Offset(0, 2).Value
cboEstado.Value = c.Offset(0, 3).Value
cboCidade.Value = c.Offset(0, 4).Value
txtTelefone.Value = c.Offset(0, 5).Value
txtEmail.Value = c.Offset(0, 6).Value
txtNascimento.Value = c.Offset(0, 7).Value
Exit Sub
Linha = Linha + 1
Loop
Else
MsgBox "Cliente não encontrado!"
End If
End With
Linha1:
End If
End Sub