[VBA] Application.VLookUp

[ExcelNooberino]

Hello all! I'm trying to create a UserForm where it shows data from the ActiveCell that I've selected in the respective worksheet, but I'm struggling with an error for the VLookUp formula in it. Can somebody tell me what I'm doing wrong in here please? Much thanks in advance!

Private Sub UserForm_Initialize()

Dim Desc As Variant
Dim ACell As Variant
Dim shtRList As Worksheet

Set shtRList = Sheets("REFList")

ACell = ActiveCell.Value
Desc = Application.VLookup(ACell, shtRList.Range("A:B"), 2, False)

Label1.Caption = ACell
Label4.Caption = Desc

End Sub

 

[VBE313]

How about..

Desc = WorksheetFunction.VLookup(ACell, shtRList.Range("A:B"), 2, False)

 

[Fluff]

What error do you get & on what line?

 

[VBE313]

What error do you get & on what line?

ExcelNooberino said " but I'm struggling with an error for the VLookUp formula in it. "

 

[Fluff]

Yes, but that does not tell me what the error was & I suspect the error is generated on this line

Label4.Caption = Desc

 

[ExcelNooberino]

Sorry for not providing all the info... The error I'm getting is "Type mismatch" and yes it's on the last line of the sub. I've created a little button just to open the form but it stops me even before that, and I think it's due to the last line because when I verify each line on F8 the rest is all fine...

 

[Fluff]

Ok, how about

Private Sub UserForm_Initialize()

Dim Desc As Variant
Dim ACell As Variant
Dim shtRList As Worksheet

Set shtRList = Sheets("REFList")

ACell = ActiveCell.Value
Desc = Application.VLookup(ACell, shtRList.Range("A:B"), 2, False)

Label1.Caption = ACell
If IsError(Desc) Then
   Label4.Caption = "N/A"
Else
   Label4.Caption = Desc
End If

End Sub

You are getting the error because it could not find the activecell value in the lookup table.

 

[ExcelNooberino]

Ok, how about

Private Sub UserForm_Initialize()

Dim Desc As Variant
Dim ACell As Variant
Dim shtRList As Worksheet

Set shtRList = Sheets("REFList")

ACell = ActiveCell.Value
Desc = Application.VLookup(ACell, shtRList.Range("A:B"), 2, False)

Label1.Caption = ACell
If IsError(Desc) Then
   Label4.Caption = "N/A"
Else
   Label4.Caption = Desc
End If

End Sub

You are getting the error because it could not find the activecell value in the lookup table.

Ok, that actually works, but I dont get why I get the error! I just tried to insert a " ' " before the number and now it shows the description that I want ?

 

[Fluff]

Did you do that in the activecell, or the lookup table?

 

[ExcelNooberino]

Did you do that in the activecell, or the lookup table?

In the activecell, but why?!