cerca dato con vlookup

Ciao, avrei un problema con il cerca verticale ma usando VBA (vlookup).
Praticamente, vorrei poter ricevere un' informazione digitando dentro la textbox1 dentro la userform1.
Nella textbox1 digito un codice articolo, presente nel foglio1 colonna A e vorrei poter ricevere il dato nella textbox2, dato presente nel foglio1 colonna B

Grazie a tutti, allego file

Il Foglio2 non contiene dati.

Ciao, scusa hai ragione, intendevo sempre "FOGLIO1" ma colonna B, dove cè il prezzo dell' articolo.
Grazie

Scusa Corfurio ma quali sono le difficoltà che incontri?

Con tutte le informazioni che ti sono state date nella discussione sull'altro forum dovresti essere in grado di risolvere (e anche facilmente) il problema.

Come nell'altra circostanza basta che usi l'evento AfterUpdate della textbox1 per valorizzare la textbox2 con il VLookup.

Ciao! Si ci sto provando, il problema è che non capisco come strutturare il tutto, la funzione vlookup necessità di alcuni parametri, e l' ho capita.. ma come la rendo attiva sulle textbox?

=VLOOKUP(B4,Foglio1!$A$2:$B$5,2,FALSE)

B4 (è il dato da cercare nel range A2:B5 sul foglio, nel mio caso sarebbe scritto nella Textbox1)

2 (è la colonna a cui estraggo il dato, che dovrebbe poi comparire nella textbox2)

Grazie


**aggiornamento

Non so come ma cè l' ho fatta!!!

---

Private Sub textbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
ur = Sheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row



For row_number = 2 To ur
item_in_review = Sheets("Foglio1").Range("A" & row_number)

If item_in_review = TextBox1.Text Then
TextBox2.Text = Sheets("Foglio1").Range("B" & row_number)

End If
Next
End If
End Sub

---

Io, se ho capito bene, avrei usato un codice come questo

Private Sub Textbox1_AfterUpdate()
Me.Textbox2.Value = Application.WorksheetFunction.VLookup(Me.Textbox1.Value, Range("A2:B5"), 2, False)
End Sub