Excel

From neil.tappsville.com
Jump to navigationJump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

Overcome Vlookup key limit

Open excel, alt-f11, this workbook - insert module


Function [[My Vlookup]](Lval As Range, c As Range, oset As Long) As Variant
Dim cl As Range
For Each cl In c.Columns(1).Cells
: If UCase(Lval) = UCase(cl) Then
: [[My Vlookup]] = cl.Offset(, oset - 1)
: Exit Function
: End If
: Next
End Function