[RESOLVIDO] Avanço de busca (.Findnext: 10 x 0 Eu)

[DeH]

Boa tarde Pessoal,
Fiz um form de busca para visualizar melhor as anotações feitas em um célula, porém ele procura só o primeiro registro de nome de cliente e para por ali. Preciso que quando eu apertar o "pesquisar" ele busque o próximo registro com aquele mesmo nome. Tentei o .FindNext(), mas foi vencido por ele. Alguém pode me ajudar ?
Abraço.

André Griszewski

[DeH]

Pelo jeito ninguém conseguiu =(
Continuarei quebrando cabeça por aqui, Obrigado a todos que tentaram.
Abraço

[joseA]

Teste assim:

Código: Selecionar todos

Private Sub btn_pesquisa_Click()
 Dim celula As Range

 Set celula = Cells.Find(What:=txt_nome.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
 :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
 False, SearchFormat:=False)

 If celula Is Nothing Then

 MsgBox "Ops! Não achou"

 Else
 celula.Select

txt_nome.Value = celula.Value
txt_data.Value = celula.Offset(0, 1).Value
txt_categoria.Value = celula.Offset(0, 2).Value
txt_contato.Value = celula.Offset(0, 3).Value
txt_tel.Value = celula.Offset(0, 4).Value
txt_email.Value = celula.Offset(0, 5).Value
txt_class.Value = celula.Offset(0, 6).Value
txt_status.Value = celula.Offset(0, 7).Value
txt_tabela.Value = celula.Offset(0, 8).Value
txt_emkt.Value = celula.Offset(0, 9).Value
txt_hist.Value = celula.Offset(0, 10).Value

 End If
End Sub

[DeH]

Funcionou \o\.
Meus Sinceros Agradecimentos.
Um grande Abraço.
PS: Salvou minha vida!

[joseA]

Estando ao alcance disponha.