-
Fototrend
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
-
Mutt
senior tag
válasz
l.skywalker
#39616
üzenetére
Szia,
Nem teljesen világos a kérdés, mert azt is írod, hogy az utolsó sort VBA-ban már kikerested de közben kell egy képlet amivel ugyanezt meg tudod határozni.
Ha VBA-ban van egy változód amiben ott az utolsó sor azonosítója és azt VBA-n kívül akarod használni, akkor a Névkezelőbe feltudod venni:
ActiveSheet.Names.Add Name:="Utolsosor", RefersTo:=UtolsoSorEz munkalap körben hozza létre a változót, ha másik lapon akarsz ráhivatkozni, akkor az ActiveSheet-et hagyd el (vagy cseréld le Thisworkbook -ra).
Innentől már az INDIRECT függvénnyel tudsz a tartományra hivatkozni:
=INDIREKT("A5:A"&Utolsosor)Egy lépésben az A5:A_utolsó sora így is leírható:
ActiveSheet.Names.Add Name:="Utolsosor", RefersTo:=Range("A5", Range("A" & Rows.Count).End(xlUp))Ha képlettel kell az utolsó sor, akkor pedig használható:
=KERES(2;1/(A:A<>"");SOR(A:A))üdv
Új hozzászólás Aktív témák
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Metal topik
- Horgász topik
- A Kindle-botrány röviden — a digitális tulajdon vége
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Mobil flották
- Apple MacBook
- World of Warships
- Battlefield 6
- Pixel plus ultra: teszten a 6K-s LG UltraFine monitor
- További aktív témák...
- MS SQL Server 2016, 2017, 2019
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Játékkulcsok olcsón: Steam, Uplay, GoG, EA, Xbox stb.
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Samsung Galaxy A37 5G / 6/128GB / Kártyafüggetlen / 12Hó Garancia
- Apple iPhone 13 /128GB /Kártyafüggetlen / 12 Hó Garancia / akku: 85%
- Samsung Odyssey G7 S28BG702EP IPS Monitor! 3840x2160 / 144Hz / 1ms / FreeSync / G-Sync
- Baofeng UV-5R Mini kézi amatőr rádió
- GYÖNYÖRŰ iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3060
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50