userform textbox using vlookup date could not give correct answer (40850)

[OscarPerez]

Hi,

I created an UserForm that looks for Student Name his/her Conferenece Date through a VLookup.

The following is my code:

Private Sub cmdFind_Click()
With frmConference
.txtTranslator.Value = Application.WorksheetFunction.VLookup(txtStudentName.Value, Sheets("SPANISH").Range("A2:F113"), 6, 0)
.txtDate.Value = Application.WorksheetFunction.VLookup(txtStudentName.Value, Sheets("SPANISH").Range("A2:F113"), 5, 0)
.txtTime.Value = Application.WorksheetFunction.VLookup(txtStudentName.Value, Sheets("SPANISH").Range("A2:F113"), 4, 0)
End With
End Sub

The txtTranslator and txtTime works correctly, however txtDate give me a number '40850' not a Date?

How can I change this number for the actual Date?

Thank you in advance for your help!

 

[OscarPerez]

Thanks Worf!

It works, however, when I try to change the range from ("E2") to
Range("E2:E113").Value it give me an error?

Run-time error '13':
Type mismatch

Debug:
num = Sheets("SPANISH".Range("E2:E113").Value

 

[NateO]

Hello,

Format the VLookup return, e.g.,

Format$(WorksheetFunction.VLookup(txtStudentName.Value, Sheets("SPANISH").Range("A2:F113"), 5, 0), "mmmm d, yyyy")

*untested*

 

[OscarPerez]

Thanks NateO!!

It worked perfect !