(Resolvido) Procurar valor na base e retornar no textbox

[Passos2010]

Bom dia!

Pessoal, estou desenvolvendo um bd no excel com VBA e não consigo colocar um comando para que um determinado textbox faça uma busca na planilha base e me retorne o nome do funcionário, detalhe o valor procurado está em outro textbox e gostaria que ao digitar a identificação(crachá) do funcionário automaticamente seja colocado no textbox ao lado o nome deste funcionário.

Obrigado

[JoséA]

Seja bem vindo ao fórum.

Mostra o seu arquivo.

[Passos2010]

segue o arquivo.

Estou desenvolvendo na sheet(Controler), no botão formulário 5 textbox que buscaram na sheet(base_equipe) o nome do funcionário quando a pessoa

digitar na textbox da chapa o número de sua matricula.

http://www.4shared.com/file/qlgAg0S8/BASE_...NTIVO_COPA.html

Pode de dar uma auxilio.

Grato

[Passos2010]

Caro amigo,

Esqueci de falar caso necessite,coloquei senha no arquivo:

passos123

Caso necessite.

Obrigado pela atenção,

[Passos2010]

Ola caro amigo JoséA

Conseguiu visualizar o arquivo?

Abraço

[JoséA]

Acrescente o código abaixo na área de código do seu formulário, digite a matrícula no txt desejado + Enter ou TAB para conferir.

Private Sub txt_chapa1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim QualLinha: QualLinha = LocalizarLinha(txt_chapa1, Plan2.Range("A1:A65000"))
    QualLinha = QualLinha + 1
  txt_nome1 = Plan2.Range("B" & QualLinha)
End Sub
Private Sub txt_chapa2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim QualLinha: QualLinha = LocalizarLinha(txt_chapa2, Plan2.Range("A1:A65000"))
    QualLinha = QualLinha + 1
  txt_nome2 = Plan2.Range("B" & QualLinha)
End Sub
Private Sub txt_chapa3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim QualLinha: QualLinha = LocalizarLinha(txt_chapa2, Plan2.Range("A1:A65000"))
    QualLinha = QualLinha + 1
  txt_nome3 = Plan2.Range("B" & QualLinha)
End Sub
Private Function LocalizarLinha(Qual, Área As Range)
Dim PrimEndereço, C
With Área
    Set C = .Find(Qual, LookIn:=xlValues)
    If Not C Is Nothing Then
        PrimEndereço = C.Address
        LocalizarLinha = C.Row - 1
    End If
End With
End Function

[Passos2010]

José A

Bom dia!

Funcionou corretamente obrigado.

[JoséA]

...Funcionou corretamente obrigado.

:D Fico feliz que tenha resolvido, estando ao nosso alcance disponha.

[Passos2010]

Bom dia!

José

Cara cada dia surge uma nova dúvida, dessa vez preciso saber se tem alguma parte das propriedades do objeto(textbox e combobox) que podemos definir as teclas de navegação, pois já consigo pular de um textbox para o outro usando as teclas tab e enter mas gostaria de mudar usando as setas para direita e esquerda também.Tem algum lugar que posse definir assim nas propriedades?

Mais uma vez obrigado pela atenção,