Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Candy: AOOSTAR WTR PRO – NAS, alkoss, gyarapíts
- Luck Dragon: MárkaLánc
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- NvidiaRTX: Xiaomi Electric Scooter 6 Max: Az első rollerem
- Mr Dini: Mindent a StreamSharkról!
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Parci: Milyen mosógépet vegyek?
-
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
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
- SSD kibeszélő
- Formula-1
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Nem fut az Intel grafikus vezérlőin az év egyik legjobban várt címe
- Battlefield 6
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Okos otthon - gyári appok, ökoszisztémák
- Luck Dragon: Asszociációs játék. :)
- iPhone topik
- Milyen légkondit a lakásba?
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Microsoft és egyéb dobozos retro szoftverek
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- MS SQL Server 2016, 2017, 2019
- AKCIÓ! Dell Precision 3571 4G LTE i7-12700H 32GB 1000GB FHD RTX A1000 4GB 1 év teljeskörű garancia
- 27% - GIGABYTE MO34WQC2 Karcos OLED Monitor! 3440x1440 / 240hz / 0.03ms / FreeSync!
- MICROSOFT Surface Book 2,13.5", i5-7200U,8GB RAM,256GB SSD,WIN11
- AKCIÓ! ASUS B560M i5 11400 64GB DDR4 512GB SSD RTX 3070 8GB ZALMAN S2 TG CHIEFTEC 750W
- Hp 830 G8 Core i7 1185U 16Gb Ram Intel Iris FullHD IPS Boltból számlával Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50