vba: VLookUp Function in one userform

Hi All,

Please see attached file for my sample workbook.
What i would want to happen is that i want to be able to use Vlook up by using the Value of the Textbox1 in the Info form and place the vlookup result in the fnameresult box.
Data are in Nickname sheet A:B


Greatful for immediate assistance.

test template.xlsm

Hi, saikong051,

maybe try

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Dim var As Variant
  On Error Resume Next
  var = WorksheetFunction.VLookup(CStr(TextBox1.Value), Sheets("Nickname").Range("A:B"), 2, 0)
  On Error GoTo 0
  If IsEmpty(var) Then
    fnameresult.Value = ""
  Else
    fnameresult.Value = var
  End If
End Sub

Ciao,
Holger

Hi, saikong051,

did you adapt the name to meet your needs? Yes, code goes behind the UF Info. And you would need to leave the textbox in order to get the code going.

Ciao,
Holger