-
GAMEPOD.hu
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
őstag
Szia!
A fájlnevet megadhatod így:
Windows("Terv_HWP_" & Format(date,"yyyy_mm_dd" & ".xlsm").ActivateDe magát a másolást is egyszerűbben tudod megtenni:
Workbooks("Terv.xlsx").Sheets("Terv").Range("A1:C25").Value=Workbooks("Terv_HWP_" & Format(Date,"yyyy_mm_dd" & ".xlsm").Sheets("Tény").Range("A1:C25").ValueMivel a Terv nevű fájlt utoljára nyitod meg, ha csak egy munkalapja van, akkor elég az
Activesheet.Range("A1:C25").Value=Workbooks("Terv_HWP_" & Format(Date,"yyyy_mm_dd" & ".xlsm").Range("A1:C25").Valuetekintettel arra, hogy megnyitás után az lesz az aktív munkalap.
Nem kell ide-oda ugrálni a két munkafüzet között. Figyelj rá, hogy a kódban a workbooks - worksheets forma van és nem a windows!
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
Szia!
Szerintem ne a Windows hanem a Workbooks objektumot használd lsz:
Workbooks("Terv_HWP_" & Format(Date, "yyyy_mm_dd" & ".xlsm")).Activate , mivel az ablak neve nem biztos, hogy ugyanaz...
De írtam a hozzászólásban, hogy nem kell aktiválni a korábban megnyitott fájlt. Ide írom ismét a képletet, egy picit javítani kellett rajta:
Activesheet.Range("A1:C25").Value=Workbooks("Terv_HWP_" & Format(Date,"yyyy_mm_dd" & ".xlsm").Sheets(1).Range("A1:C25").ValueA Sheets(1) helyett azt a munkalapot írd be, ahol az adatok találhatóak.
Üdv.
Új hozzászólás Aktív témák
- CASIO órák kedvelők topicja!
- Kertészet, mezőgazdaság topik
- AMD Ryzen 9 / 7 / 5 / 3 3***(X) "Zen 2" (AM4)
- iPhone topik
- Sorozatok
- Diablo 3
- Villanyszerelés
- Kerékpárosok, bringások ide!
- Újabb Samsungok telepíthetik a Galaxy AI-t
- bb0t: Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Steames kulcsok jó áron eladóak!
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest