- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Gurulunk, WAZE?!
- Szevam: Mennyire tipik Z-gen viselkedés? Tipizálható-e egyáltalán?
- bitpork: Nagy dilema
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- Elektromos rásegítésű kerékpárok
- Brogyi: CTEK akkumulátor töltő és másolatai
- Kempingezés és sátrazás
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Ú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) = arErre 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
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- PROCASTER 40UNB700 40" 101cm televízió + Számla + Garancia
- Xiaomi Redmi 9AT 32GB, Kártyafüggetlen, 1 Év Garanciával
- Samsung Galaxy A14 64GB, Kártyafüggetlen, 1 Év Garanciával
- AKCIÓ! MSI B550 R7 3700X 16GB DDR4 512GB SSD RTX 3060Ti 8GB Rampage SHIVA Seasonic 650W
- Samsung Galaxy A13 64GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Liszt Ferenc Zeneművészeti Egyetem
Város: Budapest