Hirdetés
- Mit várunk 2026-ban a mobilpiacon?
- Google Pixel topik
- OnePlus 15 - van plusz energia
- Xiaomi 15 Ultra - kamera, telefon
- One mobilszolgáltatások
- Az év utolsó napján előbújt pár Galaxy S26 dummy
- Apple iPhone 16 Pro - rutinvizsga
- Xiaomi 14 - párátlanul jó lehetne
- Így változik a Galaxy A37 és A57 kamerája
- Mobil flották
Ú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
- Vezetékes FEJhallgatók
- Star Wars Outlaws teszt
- Milyen légkondit a lakásba?
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- AMD vs. INTEL vs. NVIDIA
- Mit várunk 2026-ban a mobilpiacon?
- Google Pixel topik
- OnePlus 15 - van plusz energia
- Xiaomi 15 Ultra - kamera, telefon
- További aktív témák...
- ÁRGARANCIA!Épített KomPhone i5 14400F 16/32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
- Clevo 1060 6GB Mxm 3.1 laptop videó kártya ingyen házhoz szálitással
- Lenovo Thinkpad T14 Gen 3, 1 Év Garanciával
- GYÖNYÖRŰ iPhone SE 2020 256GB Black-1 ÉV GARANCIA - Kártyafüggetlen, MS4003
- BESZÁMÍTÁS! GIGABYTE A520M R5 5500 16GB DDR4 512GB SSD GTX 1070 8GB Zalman T3 Plus DeepCool 400W
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest



