Telefonszámunk: 1-472-0679

Hozzászólás: .xlam-ban vlookup használata

Kezdőlap Fórumok Excel programozás .xlam-ban vlookup használata Hozzászólás: .xlam-ban vlookup használata

#3758
Titok
Felhasználó

    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