Hirdetés
- bambano: Bambanő háza tája
- sh4d0w: Van-e még?
- gban: Ingyen kellene, de tegnapra
- eldiablo: 30 év után szakítottunk, de azért még beszélünk...
- Real Racing 3 - Freemium csoda
- Luck Dragon: Asszociációs játék. :)
- GoodSpeed: Samsung Galaxy A56 5G
- sziku69: Fűzzük össze a szavakat :)
- Magga: PLEX: multimédia az egész lakásban
- Toomy: FOXPOST: régen jó volt, de már jobban jársz, ha elfelejted
Ú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
Hirdetés
- SAMSUNG UE85BU8079 215CM 4K SMART UJ MODELL! AKCIÓ!
- SAMSUNG (QE98QN90FATXZT) 250CM NEO-QLED 165HZ 2025 CSÚCS TV ! AKCIÓ
- SAMSUNG (QE85QN85B) 215CM NEO-QLED SMART PRÉMIUM ! AKCIÓ!
- SAMSUNG (QE85QN80F) 215CM 4K NEO-QLED 144HZ SMART UJ PRÉMIUM ! AKCIŐ
- SAMSUNG (QE77S90CAT) 195CM 4K SMART OLED PRÉMIUM ! AKCIÓ!
- iPhone XS Max 256GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3997
- Sony PS3/PS4/PS5 és kézikonzolok Okosítása és Szoftveres szintű javítása - BD-JB LEMEZ KAPHATÓ!
- Apple iPhone 11 128 GB Lila 1 év Garancia Beszámítás Házhozszállítás
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5090 32GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! MSI B550M R5 5600X 16GB DDR4 512GB SSD ROG RTX 3070 Ti 8GB Asus A31 PLUS TG ARGB 750W
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: Laptopműhely Bt.
Város: Budapest


