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


--
T De Villiers
------------------------------------------------------------------------
T De Villiers's Profile: http://www.excelforum.com/member.php...o&userid=26479
View this thread: http://www.excelforum.com/showthread...hreadid=509311

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"
wrote in message
news:T.De.Villiers.22v0xm_1139316901.5884@excelfor um-nospam.com...

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


--
T De Villiers
------------------------------------------------------------------------
T De Villiers's Profile:
http://www.excelforum.com/member.php...o&userid=26479
View this thread: http://www.excelforum.com/showthread...hreadid=509311