Hirdetés
- Kompakt, mégis egyszerűen fejleszthető barebone géppel jelentkezett a Shuttle
- 100 Hz-et tud az ASUS dokkolóval kombinált, ultraszéles monitora
- Egyre inkább szoftverrel segítene a Core CPU-k teljesítményén az Intel
- A szuperintelligencia még odébb, a szuperapp már közel
- Ha Darwinra hallgat az AI, nehéz lesz megállítani
- Canon MILC: EOS R és M topik
- Milyen TV-t vegyek?
- Milyen egeret válasszak?
- Kormányok / autós szimulátorok topikja
- Egyre inkább szoftverrel segítene a Core CPU-k teljesítményén az Intel
- Nem tetszik a PC-gyártóknak az Xbox új iránya?
- Apple MacBook
- PLC programozás
- OLED TV topic
- Milyen asztali (teljes vagy fél-) gépet vegyek?
-
PROHARDVER!
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
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Microsoft Office 2024 Home Business dobozos
- Játékkulcsok olcsón: Steam, Uplay, GoG, EA, Xbox stb.
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel! 13 hónap ultimate - 50.000 ft
- AKCIÓ! 4TB Corsair MP600 Pro XT NVMe SSD meghajtó garanciával hibátlan működéssel
- Dell USB-C dokkolók: (K20A) WD19/ WD19S/ WD19DC + 130W, 180W, 240W töltők
- Xiaomi 17 Ultra 512GB Black Karcmentes állapot 16GB RAM 2029.03.11. garancia
- Honor Magic 8 Lite 256GB Midnight Black Újszerű állapot 2029.02.11. garancia
- GYÖNYÖRŰ iPhone 14 Pro Max 256GB Space Black -1 ÉV GARANCIA -Kártyafüggetlen, MS4031
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
