Hirdetés
- Felfedte a Xeon 600 sorozat sötét titkait az Intel
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- AMD FX
- MWC 2026: Megérkezett a Xiaomi Pad 8 sorozat
- OLED monitor topic
- Fejhallgató erősítő és DAC topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Lítium-ion/Li-ion akkumulátorok
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Apple MacBook
-
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
- Energiaital topic
- Felfedte a Xeon 600 sorozat sötét titkait az Intel
- Sokkal jobb ajánlat lett elődjénél az iPhone 17e
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- PayPal
- Otthoni hálózat és internet megosztás
- Hegesztés topic
- AMD FX
- Eredeti játékok OFF topik
- Sütés, főzés és konyhai praktikák
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Bioshock 2 Special Edition
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- SK Hynix 32GB DDR4 2666MHz PC4-21300 laptop RAM
- HIBÁTLAN iPhone 13 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS4638
- Apple iPhone 12 Pro / 128GB / Kártyafüggetlen / 12Hó Garancia
- Lenovo ThinkPad T14s Gen 3 i5-1245U 14" FHD+ 16GB 1TB 1 év teljeskörű garancia
- Keresünk iPhone 14/14 Plus/14 Pro/14 Pro Max
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
