Hirdetés
- Két 200 megapixeles kamerát tesz a Xiaomi a 18-as szériába?
- 1 mAh-val lopta el a Realme a Honor győzelmét
- Xiaomi 14T Pro - teljes a család?
- Okosóra és okoskiegészítő topik
- One mobilszolgáltatások
- Privát AI mobil lesz az S26, nem okostelefon
- Samsung Galaxy Buds3 Pro - szárat eresztettek a babok
- Külföldi prepaid SIM-ek itthon
- Milyen okostelefont vegyek?
- Apple iPhone 13 mini - miért nem veszik elegen?
-
Mobilarena
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
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Két 200 megapixeles kamerát tesz a Xiaomi a 18-as szériába?
- Le Mans Ultimate
- Kormányok / autós szimulátorok topikja
- Luck Dragon: Asszociációs játék. :)
- Okos Otthon / Smart Home
- 1 mAh-val lopta el a Realme a Honor győzelmét
- Xiaomi 14T Pro - teljes a család?
- VR topik
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- További aktív témák...
- Humble szökevények 500-1500Ft
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Antivírus szoftverek, VPN
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Eladó ÚJ BONTATLAN Samsung Galaxy A17 5G 8/256GB / 24 hó jótállás
- Creality HALOT ONE gyantás nyomtató
- Xbox Elite Series 2 kontroller 3 hó garancia, számlával!
- HIBÁTLAN iPhone 12 Pro 128GB Pacific Blue- 1ÉV GARANCIA -Kártyafüggetlen, MS3948
- BESZÁMÍTÁS! BenQ GW2270 22 75Hz VA FHD 5ms monitor garanciával hibátlan működéssel
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Fferi50

