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

• #29728 bteebi veterán

  Új Válasz 2015-12-07 11:13:50 #29728

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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!

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