-
IT café
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!
Tapasztalatom alapján a következőt javaslom:
Nem kell az adatokat az A oszlopba összevonni! A makróval csv-be mentés "magától" megcsinálja a vesszővel tagolt fájlt. Így megspórolhatod az összemásolás műveletét.
Elég, ha az adott munkalapot átmásolod egy új munkafüzetbe és mented az újat, majd bezárod.
A rákérdezést az
Application.DisplayAlerts=False
sorral tudod elkerülni.
Vagyis nagyjából így nézhetne ki a makród ezen része:Sheets("… Adatsor").Copy '(az eredeti, oszlopokban adatot tartalmazó munkalap másolása új munkafüzetbe - ezután ez a munkafüzet lesz az aktív.
Application.DisplayAlerts=False
ActiveWorkbook.SaveAs Filename:= _
"C:\...\Vesszővel tagolt" & sz & Cikl & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
ActiveWorkbook.Close False ' további mentés nélkül bezárjuk az új munkafüzetet, ismét az eredeti lesz aktív
Application.DisplayAlerts=True ' ha a figyelmeztetéseket látni szeretnédÜdv.
Ps. persze a mentéshez szükséges változóknak értéket kell adnod itt is előzetesen.
Új hozzászólás Aktív témák
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Minden ami hőszivattyú
- Xbox Series X|S
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Gyúrósok ide!
- Honor 200 - kétszázért pont jó lenne
- BestBuy topik
- The First Descendant (PC, PS4, PS5, XO, XSX)
- Elektromos rásegítésű kerékpárok
- Vigneau interaktív lokálblogja
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Discord Nitro 1 éves (full verzio nem basic)
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap - NYÁRI AKCIÓ!