- Fotók, videók mobillal
- Android alkalmazások - szoftver kibeszélő topik
- iPhone topik
- Honor 200 Pro - mobilportré
- MWC 2026: Óriásakkut tuszkoltak egy szupervékony hajlíthatóba
- MWC 2026: Vitrinben itt a Nothing Phone (4a)
- MWC 2026: Adatbiztonságra fókuszáló újdonságok a Motorolától
- Telekom mobilszolgáltatások
- Google Pixel topik
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
Új hozzászólás Aktív témák
-
Delila_1
veterán
Reggel nem figyeltem eléggé.

Írj az L1 cellába – vagy ehelyett egy olyan cellába, amire biztosan nem lesz szükséged később – egy egyest. Ha másik cellát választasz, mindkét sorban írd át az L1-et.
Sub masol()
Range("A1:E5").Copy Range("A1").Offset(Range("L1") * 5)
Range("L1") = Range("L1") + 1
End SubEz a makró az A1:E5 tartományt annyiszor másolja folyamatosan egymás alá, ahányszor elindítod.
-
Apollo17hu
őstag
Első lépésben egy do while... ciklusban megszámolnám, hány cella van feltöltve az "A" oszlopban. Ezt letárolnám akár változóba, de akár valamelyik cellába ki lehetne íratni, majd ezt felhasználva az
ActiveCell.Offset(6, 0).Range("A1").Select
utasításban a 6-ost kicserélném az 1. lépésben meghatározott változó értékére.
Új hozzászólás Aktív témák
- sziku69: Fűzzük össze a szavakat :)
- Formula-1
- Fotók, videók mobillal
- Szeged és környéke adok-veszek-beszélgetek
- Gitáros topic
- Android alkalmazások - szoftver kibeszélő topik
- Apple MacBook
- Kertészet, mezőgazdaság topik
- Meghozta a régóta várt asztali Ryzen APU-kat az AMD
- iPhone topik
- További aktív témák...
- Apple Watch Series 10 46mm GPS+Cellular Titanium, Újszerű, 1 Év Garanciával
- Xiaomi 13T Pro 512GB, Kártyafüggetlen, 1 Év Garanciával
- BRUTÁL ÁR / SZÉP ÁLLAPOT- Apple iPad 8.Gen WIFI 32GB
- Samsung Galaxy S25+ 5G 256GB 12GB RAM Dual tengerészkék
- iPhone 17 Pro max 1TB(!) ÚJ 3 év Apple jótállás Apple.hu vásárlás!
- GYÖNYÖRŰ iPhone 14 Pro Max 256GB Deep Purple-1 ÉV GARANCIA - Kártyafüggetlen, MS4398, 100% Akksi
- BESZÁMÍTÁS! ASRock X870 R9 7950X3D 32GB DDR5 1TB SSD RTX 4090 24GB Be quiet Pure Base 501 LX white
- Új és újszerű 15-16 Gamer, irodai, üzleti, készülékek nagyon kedvező alkalmi áron Garanciával!
- Acer Predator Helios 18 AI I9 ULTRA 9275HX, 192GB RAM, 2TB SSD, RTX 5080
- Samsung Galaxy A23 5G 128GB, Kártyafüggetlen, 1 Év Garanciàval
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


