Ú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
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Hosszú premier előzetest kapott az Arknights: Endfield
- Tőzsde és gazdaság
- Metal Gear Solid
- AMD GPU-k jövője - amit tudni vélünk
- Aim training (Aimlabs, Kovaak's, Aimbeast stb.)
- Luck Dragon: Asszociációs játék. :)
- Battlefield 6
- Allegro vélemények - tapasztalatok
- Energiaital topic
- További aktív témák...
- Samsung Galaxy A33 5G / 6/128GB / Kártyafüggetlen / 12Hó Garancia
- HIBÁTLAN iPhone 14 Plus 128GB Yellow -1 ÉV GARANCIA - Kártyafüggetlen, MS4472
- Apple iPhone 14 Plus 128GB sárga használt, karcmentes 97% akku 6 hónap garancia
- HIBÁTLAN iPhone 15 Pro 128GB Natural Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS4384
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest


