Using Index function in userform

[NDMDRB]

Hello,

Please I need your help

I'm trying to find a value reference to two columns, I'v tried it in Excel worksheet, it works fine, but I'm not able to use it in VBA

Here is the function that I tested in Excel worksheet in range (I2) and works fine

=INDEX(E:E,MATCH(1,(A:A=G2)*(B:B=H2),0))

	A	B	C	D	E	F	G	H	I
1	Inv. #	Num	BarCode	Name	Cost		Inv. #	Num	Cost
2	101	1	111	Test1	10		102	3	30
3	101	2	222	Test2	20
4	102	1	111	Test1	10
5	102	2	222	Test2	20
6	102	3	333	Test3	30

<tbody>
</tbody>

I tried to use it in my userform but I get an error

Here is the code I tried

Dim ws As Worksheet
Set ws = Sheet6


Set findvalue = Application.WorksheetFunction.Index(ws.Range("E:E"), Match(1, (ws.Range("A:A") = Me.List_Sales.Value) * (ws.Range("B:B") = Me.List_Details.Value), 0))
Me.txtReturn = findvalue

Can someone please help me how make it correct?

 

[JoeMo]

Assuming your findvalue variable is not an object, try removing the "Set" keyword.

 

[Rick Rothstein]

Assuming your findvalue variable is not an object, try removing the "Set" keyword.

Also, the use of Match in your code line won't work as it is not a built-in VBA function... you will have to affix a call to the WorksheetFunction object for it like you did for the Index call.

 

[NDMDRB]

Actually I did it the same as Vlookup works but I'm not sure about it,

Can you please help me how to get the result I need even with another way?

 

[NDMDRB]

Hello, please I need your help

 

[NDMDRB]

Also, the use of Match in your code line won't work as it is not a built-in VBA function... you will have to affix a call to the WorksheetFunction object for it like you did for the Index call.

Hello Rick Rothstein,

Can you please help me fixing my problem? I'm new with VBA and still didn't get any solution, please I need your help

 

[Fluff]

How about

Dim ws As Worksheet
Dim FindValue As Variant
Set ws = Sheet6


FindValue = Application.Index(ws.Range("E:E"), Application.Match(1, (ws.Range("A:A") = Val(Me.List_Sales.Value)) * (ws.Range("B:B") = Val(Me.List_Details.Value)), 0))
If Not IsError(FindValue) Then
   Me.txtReturn = FindValue
Else
   Me.txtReturn = "Not found"
End If

 

[NDMDRB]

Thanks for your time Fluff, but I still get an error (Run-time error '13': Type mismatch)

 

[Fluff]

What are you entering into
List_Sales and List_Details
are they text or numerical?

 

[NDMDRB]

What are you entering into
List_Sales and List_Details
are they text or numerical?

Numbers