- Légies iPhone halvány színei
- Google Pixel topik
- Motorola Moto G56 - bátyja árnyékában
- Xiaomi 15 - kicsi telefon nagy energiával
- Vékonyabb lett, jobb kamerát kapott, de az akku maradt a régi: itt a Fold7
- Ez össze van rakva - Segway Ninebot F3 Pro
- Telekom mobilszolgáltatások
- One mobilszolgáltatások
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- Samsung Galaxy Watch7 - kötelező kör
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
veterán
Nagyon jó a PC fórumos válasz. Átmásolom ide, hogy más is okulhasson belőle.
Dongetto ezt írta:Function pelda(munkalapszama As Integer, cella As String)
pelda = Sheets(munkalapszama).Range(cella).Value
End FunctionEzt a makrót ebbe a füzetbe, vagy az egyéni makrófüzetbe (hogy minden más füzet is elérje) beírva működik az alábbi képlet:
=pelda(5;"B3") -> az ötödik, bármilyen nevű lap B3 cellájának értékét adja.
Átírtam ennek megfelelően az előző makrómat.
Sub Keplet()
Sheets("Munka1").Select
For sor = 2 To 69
Cells(sor, 2).Select
ActiveCell.FormulaR1C1 = "=pelda(" & sor & ",""B3"")"
Next
End SubHa jól emlékszem, 69 lapod tartalmazza az adatokat, amiket az első lapra B2-től kezdve gyűjtesz ki egymás alá (ezzel együtt 70 lapod van). A makróban Munka1-nek neveztem a gyűjtő lapot. Ezt teszed előre, azért indul a ciklus 2-től.
Új hozzászólás Aktív témák
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Assassin's Creed Shadows Collector's Edition PC
- ÁRGARANCIA!Épített KomPhone i5 10600KF 16/32/64GB RAM RX 6600 8GB GAMER PC termékbeszámítással
- Csere-Beszámítás! Asztali számítógép PC Játékra. I5 12400F / RTX 3070 / 32GB DDR4 / 1TB SSD
- Bomba ár! Dell Latitude 7320 - i5-11GEN I 8GB I 256SSD I HDMI I 13,3" FHD I Cam I W11 I Garancia!
- ismét elérhető 3db - Sennheiser MOMENTUM 4 fejhallgatók
- ÁRCSÖKKENTÉS TP-Link Archer C1200 Router eladó (1200 Mb/s Wi-Fi)
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest