Hirdetés
- eBay-es kütyük kis pénzért
- Viber: ingyen telefonálás a mobilodon
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- sziku69: Fűzzük össze a szavakat :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- eldiablo: 30 év után szakítottunk, de azért még beszélünk...
- Magga: PLEX: multimédia az egész lakásban
- sziku69: Szólánc.
- Mr Dini: Mindent a StreamSharkról!
Ú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
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Melyik tápegységet vegyem?
- Kínai és egyéb olcsó órák topikja
- Milyen processzort vegyek?
- Nintendo Switch 2
- Gitáros topic
- Kész, vége, ennyi volt: eladja tévés üzletágát a Sony
- Fotók, videók mobillal
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- További aktív témák...
- Eladó Logitech G29 + Logitech H váltó!
- P1 Gen6 16" FHD+ IPS i7-13800H RTX A1000 32GB 1TB NVMe ujjlolv IR kam gar
- T14s Gen2i 14" FHD IPS i7-1165G7 16GB 512GB NVMe ujjlolv IR kam új akku gar
- T14s Gen1 14" FHD IPS érintő Ryzen 7 PRO 4750U 16GB 256GB NVMe ujjlolv IR kam gar
- Vadonatúj iPhone 14 PRO 256GB space black KÁRTYAFÜGGETLEN! 2027 január 15-ig Apple garancia!!!
- HIBÁTLAN iPhone 15 128GB Green-1 ÉV GARANCIA - Kártyafüggetlen, MS4425
- Eladó Apple iPhone 15 Pro Max 256GB / Akku 90% / 12 hó jótállás
- GYÖNYÖRŰ iPhone 14 Pro 128GB Space Black-1 ÉV GARANCIA - Kártyafüggetlen, MS3781
- BESZÁMÍTÁS! LENOVO ThinkPad P15 Gen1 munkaállomás - i7 10875H 16GB DDR4 512GB SSD Quadro T1000 4GB W
- GYÖNYÖRŰ iPhone 13 mini 128GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3338
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs


