barbosa, da proxima vez leia as Regras antes de postar, principalmente nos Itens referentes ao Assunto do tópico e os anexos que devem estar compactados.
Quanto a sua questão, troque a rotina do botão Pesquisar pela a abaixo :
Private Sub butPesquisar_Click()
Dim idNome, idBusca As String
Dim Linha As Integer
Linha = 1
idNome = CobPesquisa
'Definimos e armazenamos na Variavel Dados o Nome da Aba que se encontram os Dados
Set Dados = ThisWorkbook.Worksheets("Plan2")
'Pesquisa no nome do cliente e preencher os dados
Do While idBusca <> idNome
Linha = Linha + 1
'Na linha abaixo precisamos referenciar a Aba(Dados)
idBusca = Dados.Range("B" & Linha).Value
If idBusca = Empty Then
MsgBox "Nome não encontrado!"
Exit Do
End If
Loop
With Dados
txtCodigo = .Range("A" & Linha).Value
txtNome = .Range("B" & Linha).Value
txtEndereco = .Range("C" & Linha).Value
txtNumero = .Range("D" & Linha).Value
txtCompl = .Range("E" & Linha).Value
txtBairro = .Range("F" & Linha).Value
txtCidade = .Range("G" & Linha).Value
cbxUF = .Range("H" & Linha).Value
txtCEP = .Range("I" & Linha).Value
txtCPF = .Range("J" & Linha).Value
txtDataNasc = .Range("K" & Linha).Value
txtIdade = .Range("L" & Linha).Value
cbxEstadoCivil = .Range("M" & Linha).Value
txtEmail = .Range("N" & Linha).Value
TxtTelefone = .Range("O" & Linha).Value
txtCelular = .Range("P" & Linha).Value
txtPlano = .Range("Q" & Linha).Value
txtAnamnese = .Range("R" & Linha).Value
CobPesquisa.SetFocus
End With
End Sub
Como os dados estão na Aba "Plan2" precisamos antes de Pesquisar, ou acessar a aba ou Seta-laem uma Variável, veja as alterações que fiz e entenderá.
[]s
Postado : 25/11/2012 2:24 pm