Este fórum está sendo desativado

[Kevim2013]

Como fasso para poder criar uma pesquisa, do por exemplo.
Useform1 possui 2 textbox e um botão pesquisar.
No textbox1 você escreve um nome X que iria pesquisar esse nome na coluna A, e, logo em seguida, da um offset e vai pra coluna B aonde estão um exemplo nome dos pais, pega es a informação e joga no textbox2 quando se aperta o botão "pesquisar".
Qual seria o código utilizado no botão pesquisar?

[alexandrevba]

Boa tarde!!

Seria melhor posar seu arquivo modelo...

Código: Selecionar todos

WorksheetFunction.VLookup(Val(txtEan.Text), Worksheets("BD_Prod").Range("A1:D100000"), 2, 0)

Att

[Kevim2013]

Coloquei um enexo exemplo. De um userfrom com um botão e os dados bássicos.
Só preciso que ao apertar o botão apareça o valor da "idade" no userform.

[alexandrevba]

Boa tarde!!

Tente algo assim.

Código: Selecionar todos

Private Sub BtPesquisa_Click()

 On Error Resume Next
    MyVar = Application.VLookup(txtNome.Text, Worksheets("Plan1").Range("A:B"), 2, False)
On Error GoTo 0
 
    If Not IsError(MyVar) Then
        txtIdade.Text = MyVar
    Else
        MsgBox "valor não encontrado!"
    End If
End Sub

Att

[Kevim2013]

Se eu quisesse alterar a coluna em que eu pesquiso valores como eu poderia fazer isso?