Hirdetés
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- GoodSpeed: Kell e manapság egérpad vagy sem?
- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- Meggyi001: Eldugott helyek Párizsban, amiket jó eséllyel még nem láttál... 2. rész.
- droidic: Windows 11 önállóság nélküli világ: a kontroll új korszaka
- sziku69: Fűzzük össze a szavakat :)
- bambano: Bambanő háza tája
- btz: Internet fejlesztés országosan!
-
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
-
Fferi50
Topikgazda
válasz
tgumis
#42405
üzenetére
Szia!
Ha a "célfüzetben" szeretnél tovább dolgozni, akkor más megoldást célszerű alkalmazni.
A forrás munkalapodat is hozzárendelheted egy változóhoz a cél megnyitása előtt (ez fontos, előtte), utána a másolás miatt nem kell megváltoztatni az aktív munkafüzetet.
Pl.Dim forras as WorkSheetSet forras=ActiveSheet---ide jön a célfüzet megnyitásaSet celfuzet=ActiveWorkbookforras.Range(Range("A2"), Range("K2").End(xlDown)).Copy Destination:=celfuzet.Sheets("anyagbiz_lista").Range("Anyagbiz[Anyagbiz-szám]")
Mivel nem változtattuk meg az aktív munkafüzetet, a másolás után is a celfuzet marad aktív.Az aktív munkafüzet megváltoztatása nélkül lehet műveleteket végezni, ha a munkafüzeteket/munkalapokat változóhoz rendeljük és a makróban a változókat használjuk hivatkozásként.
Üdv.
Új hozzászólás Aktív témák
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Kezdő fotósok digitális fényképei
- A nagy Szóda, Szódakészítés topic - legyen egy kis fröccs is! :-)
- Meghalt a Windows 10, éljen a Windows 10!
- Android alkalmazások - szoftver kibeszélő topik
- Rocksztár lehet a ChatGPT-ből
- Luck Dragon: Asszociációs játék. :)
- Vicces képek
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Semmibe veszi a KRESZ-t a Tesla Mad Max módja
- További aktív témák...
- REFURBISHED és ÚJ - DELL Universal Dock UD22
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9700X 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Samsung Galaxy S23 Ultra 5G 512GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! ASRock B650M R7 7700 32GB DDR5 1TB SSD RX 9070 XT 16GB be quiet! Pure Base 500 FX 750W
- LG Gram 14 WUXGA IPS i7-1360P 5.0Ghz 12mag 32GB DDR5 1TB SSD Intel Iris XE 10óra Akku Win11 Garancia
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest
Fferi50
