Új hozzászólás Aktív témák

  • bteebi

    veterán

    Sziasztok!

    Van egy Excel file két munkalappal ("adat" és "forras"), az "adat" munkalapra szeretnék másolni a "forras" lapról úgy, hogy az "adat" 1. oszlopában lévő érték alapján bemásolok a 2. oszlopba egy értéket a "forras" lap 2. oszlopából, amihez az FKERES-t használnám. Mindkét munkalapon változó nagyságú tartomány van, viszont az "adat" 1. oszlopában szereplő érték a "forras" 1. oszlopában biztos, hogy megtalálható (és csak egyszer).

    Sub kivalaszt()
    Dim ar As String, lastrow As Integer, lr As Integer, sor As Integer
    lastrow = Sheets("forras").UsedRange.Rows.Count
    lr = Sheets("adat").UsedRange.Rows.Count
    For sor = 2 To lr
    ar = WorksheetFunction.VLookup(Sheets("adat").Cells(sor, 1), Sheets("forras").Range("A1:B" & lastrow), 2, False)
    Sheets("adat").Cells(sor, 2) = ar

    Erre run-time errort kapok (1004): "WorksheetFunction osztály VLookup tulajdonsága nem érhető el." Vajon mi lehet a hiba? Előre is köszönöm a segítségeteket! :R

    [ Szerkesztve ]

    Cancel all my meetings. Someone is wrong on the Internet.

Új hozzászólás Aktív témák