Hirdetés
- BerserkGuts: 9800X3D Hitvallás, Dogma megcáfolása egy RTX5080+12600K-val
- Luck Dragon: Asszociációs játék. :)
- Brogyi: CTEK akkumulátor töltő és másolatai
- sziku69: Fűzzük össze a szavakat :)
- Gurulunk, WAZE?!
- sziku69: Szólánc.
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- GoodSpeed: Te hány éves vagy?
- joghurt: Megtarthatod a jogsid?
- Tamás9x: Facebook adatvédelmi problémák, és a kezdő lépések.
-
LOGOUT
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
-
föccer
nagyúr
Sziasztok!
Korábban itt nyújtott segítséget szeretném adaptálni.
Egyik fájlból a másikba akarok másolni.
A cél fájl futtatja a makrót, és a "Gyujtott_mintavetelek" munkalap-ra kell kirakni, soronként. Az aktuális sort a Gyujtott_minta_darab változó tartja számon. Nyilván ez léptetve van. 0-tól indul és a 2- sortül kell kiírtnom.
A forrás fájl neve az Akt_file változó tárolja (egymás után több fájlt nyitok meg) A forrás fájl "Üzem" nevű munkalapjáról 1-20 oszlopok kellenek. Az, hogy a forrás munkalap melyik sora kell éppen, az pedig az Akt_sor változó hozza.
Sheets("Gyujtott_mintavetelek").Range(Sheets("Gyujtott_mintavetelek").Cells(Gyujtott_minta_darab + 2, 1), Sheets("Gyujtott_mintavetelek").Cells(Gyujtott_minta_darab + 2, 20)).Value = Workbooks(Akt_file).Sheets("Üzem").Range(Workbooks(Akt_file).Sheets("Üzem").Cells(Akt_sor, 1), Workbooks(Akt_file).Sheets("Üzem").Cells(Akt_sor, 20)).ValueNem találom benne a hibát ellenben nem akar lefutni, out of range hibát dob. Az Akt_sor biztosan felveszi a megfelelő értéket, mielőtt ez a sor furna.
MEg tudnátok mondani hogy hol a hiba?
Köszi

Új hozzászólás Aktív témák
Hirdetés
- Kormányok / autós szimulátorok topikja
- iPhone topik
- Ubiquiti hálózati eszközök
- Elképzelhetetlen sebességre kapcsol Jeff Bezos űrinternete
- Genshin Impact (PC, PS4, Android, iOS)
- Motoros topic
- Abarth, Alfa Romeo, Fiat, Lancia topik
- Samsung Galaxy Buds3 Pro - szárat eresztettek a babok
- Telekom mobilszolgáltatások
- Hyundai, Kia topik
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- PC Game Pass előfizetés
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- BESZÁMÍTÁS! HP Elitedesk 800 G1 USDT brand - i7 4790S 16GB DDR3 256GB SSD Intel HD 4600 250W WIN10
- Apple iPhone 13 Pro Max /128GB / Kártyafüggetlen / 12Hó Garancia / Akku:83%
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- Jo Nesbo: LEOPÁRD (nem olvasott)
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 32/64GB RAM RTX 5060 Ti 8GB GAMER PC termékbeszámítással
Á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

Fferi50
