Hirdetés
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- Brogyi: CTEK akkumulátor töltő és másolatai
- GoodSpeed: Daikin FTXF35E / RXF35F Sensira 3,3 kW Inverteres klíma - a Sztori
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- GoodSpeed: Mutasd magad topic!
- Geri Bátyó: Agglegénykonyha 14 – Kések, késélezés
- mefistofeles: Az elhízás nem akaratgyengeség!
- Andras-G: Az internet veszélyei [2. rész] - Facebook Marketpalce
- gerner1
-
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
-
hallgat
csendes tag
válasz
Delila_1
#3014
üzenetére
"Másik módja az utolsó sor, ill. utolsó oszlop megkeresésének, arra az esetre, ha a lapon több, egymástól üres sorokkal, oszlopokkal elválasztott adataink vannak:
Kiválasztjuk egy olyan oszloponak az első celláját, amelyikben biztosan folyamatosan vannak az adatok, pl. A1.
Range("A1").Select
Selection.End(xlDown).Select ' ez azonos azzal, mint amikor Ctrl+le-nyilat nyomunk
usor = Selection.Row"
-------------------------------------------------------------------
Sziasztok!Nem egy mai bejegyzése Delilának de éppen ezen vagyok elakadva.

Ha ilyen módon megkerestem az utolsó használt sort, akkor mi a szintaktikája, hogy az "usor" értékét felhasználjam egy másik oszlopban?
Mondjuk munkalap1 B1:T1 celláit (19 cella) transzponálással másolja be munkalap2 B oszlopába a 2. sorától az utolsó soráig kijelölt területre, ismételgetve (ha 190 sor, akkor 10x. Elvileg mindig kijön egészre a sorok száma / 19)Előre is köszönet!!

Új hozzászólás Aktív témák
- Amlogic S905, S912 processzoros készülékek
- PlayStation 5
- MWC 2026: Varázslatos kínai B-brand telefonok
- AliExpress tapasztalatok
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- OLED TV topic
- Samsung kuponkunyeráló
- PlayStation 3
- Vigneau interaktív lokálblogja
- További aktív témák...
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- The Elder Scrolls Online Imperial Collector s Edition
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Dell PowerEdge R820 4x Xeon 688GB ECC RAM
- Beszámítás! LENOVO LOQ 15AHP10 FHD Gamer notebook - R7 250 32GB DDR5 1TB SSD RTX 5050 Max-Q 8GB
- LENOVO ThinkCentre M93p (SFF)i5-4570,4GB DDR3,500GB SATA3 HDD,DVD,WIN10
- 16gb (2x8gb) Micron DDR5 SODIMM 4800 Mhz RAM
- HIBÁTLAN iPhone 12 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4670,100% Akksi
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


Fferi50