Kezdőlap › Fórumok › Excel programozás › .xlam-ban vlookup használata › Hozzászólás: .xlam-ban vlookup használata
Hogyan kellene hivatkozni a xlam függvényre?
Beégessem? Mert így nem jó:
Public Function fioknev(id) As Variant
Dim tabla As Range
Dim hossz As Integer
id = id & „”
wb = ActiveWorkbook.Path
wbn = wb & „\Function2.xlam”
hossz = Len(id)
If hossz = 2 Then
Set wbb = wbn
Set tabla = Sheets(„Fiok”).Range(„C1:L200”)
fioknev = Application.WorksheetFunction.VLookup(id, tabla, 2, False)
End If
If hossz = 8 Then
Set wbb = wbn
Set tabla = Sheets(„Fiok”).Range(„A1:L200”)
fioknev = Application.WorksheetFunction.VLookup(id, tabla, 4, False)
End If
If hossz > 8 Then
id = Left(id, 8)
Set wbb = wbn
Set tabla = Sheets(„Fiok”).Range(„A1:L200”)
fioknev = Application.WorksheetFunction.VLookup(id, tabla, 4, False)
End If
End Function