v function

[T De Villiers]

The following function should be

v(a11,b12:d14) >>>> vlookup(a11,b12:d14,3,0)

where the 3rd parameter in the vlookup(in this case 3)
is always the difference in the columns + 1 in the v function (in this
case d-b+1 = 3)

Am nearly there but not quite, any help is much appreciated


Function v(a, b) As Variant
Dim res As Variant
res = Application.VLookup(a, b, c, 0)

If IsError(res) Then
res = Application.VLookup(a, b, c, 0)
End If

If IsError(res) Then
taz = 0
Else
taz = res
End If

End Function

 

[Niek Otten]

Option Explicit

Function v(a, b As Range) As Variant
Dim res As Variant
Dim c As Long

c = b.Columns.Count
res = Application.VLookup(a, b, c)

If IsError(res) Then
v = 0
Else
v = res
End If

End Function

--
Kind regards,

Niek Otten

"T De Villiers" <[email protected]>
wrote in message
news:[email protected]...