Emulate Index/Match combo function w/ VBA custom function

S

Spencer Hutton

Does anyone know the code to emulate this function using a custom VBA function:

=INDEX(ReturnRange(MATCH(MatchValue,LookupRange,0))

TIA.
 
B

Bernie Deitrick

Spencer,

For example:

Dim ReturnRange As Range
Dim MatchValue As Variant
Dim LookupRange As Range

Set ReturnRange = Range("A1:A10")
MatchValue = 17
Set LookupRange = Range("B1:B10")

MsgBox Application.Index(ReturnRange, _
Application.Match(MatchValue, LookupRange, 0)).Value

HTH,
Bernie
MS Excel MVP
 
N

Niek Otten

Maybe the discussion a few lines below this one (Sumif - FastExcel, poster
Naz) is interesting for you

--

Kind Regards,

Niek Otten

Microsoft MVP - Excel
 
Top