Hirdetés
- Garmin Edge 1050 kerékpáros óra: mindenből a legtöbbet
- 5.1, 7.1 és gamer fejhallgatók
- Gaming notebook topik
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- HiFi műszaki szemmel - sztereó hangrendszerek
- Milyen TV-t vegyek?
- Milyen billentyűzetet vegyek?
- Projektor topic
- Döbbenetesen sok energia kell az érkező Nova Lake működéséhez?
- Melyik tápegységet vegyem?
Ú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
- Geri Bátyó: Agglegénykonyha 13 – Néhány egyszerű, de finom étel
- Formula-1
- Okos Otthon / Smart Home
- Garmin Edge 1050 kerékpáros óra: mindenből a legtöbbet
- AliExpress tapasztalatok
- Bemutatkozott az új John Wick játék
- One mobilszolgáltatások
- 5.1, 7.1 és gamer fejhallgatók
- PlayStation 5
- Revolut
- További aktív témák...
- SO DIMM to DIMM, DDR4 Adapter, Laptop memóriából PC ram
- 644Kg VGA kártya - Teszteletlen - Videokártya csomag - Vegyes márka és model
- 644Kg VGA kártya - Teszteletlen - Videokártya csomag - Vegyes márka és model
- Monitor Audio gold 100 5g
- Gamer PC-Számítógép! Csere-Beszámítás! R5 8400F / RTX 5060 / 16GB DDR5 / 1TB Nvme SSD!
- AKCIÓ! LENOVO ThinkPad P15 Gen2 munkaállomás - i7 11800H 16GB DDR4 512GB SSD Quadro T1200 4GB W
- Telefon felvásárlás!! iPhone 15/iPhone 15 Plus/iPhone 15 Pro/iPhone 15 Pro Max
- 229 - Lenovo LOQ (15IRX10) - Intel Core i7-13700HX, RTX 5060 (ELKELT)
- iPad A16 128GB Wi-Fi Silver 100% (1év Garancia) Mindössze 4 ciklussal!
- MacBook Air 13" M2 / 256GB / 8GB midnight (éjkék) / 96% akksi
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest



