- Perelnek a vallásos kripto-piramisjáték miatt
- Milyen routert?
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- ASUS routerek
- Windows 10
- Mozilla Firefox
- Microsoft Outlook topic
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Középpontba kerültek a hibrid autók, alig fogyaszt a BYD újdonsága
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
-
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
-
bteebi
veterán
válasz bteebi #20556 üzenetére
És működik! Egy talált kódot átírva sikerült megoldanom, hogy úgy mentse el, ahogy szeretném:
Sub SaveAs()
Dim utolsopont As Long
utolsopont = InStrRev(ActiveWorkbook.FullName, ".")
Dim UjNev As String
UjNev = Left$(ActiveWorkbook.FullName, utolsopont - 1) & "_mod" & Mid$(ActiveWorkbook.FullName, utolsopont)
Application.Dialogs(xlDialogSaveAs).Show ActiveWorkbook.Path & UjNev
End SubKipróbáltam, FullName helyett Name-mel is megy, de akkor kell bele a "\".
Cancel all my meetings. Someone is wrong on the Internet.
Új hozzászólás Aktív témák
- Luck Dragon: Asszociációs játék. :)
- Alkoholista nevelde
- Nem a Microsoft gyártaná a következő Xbox konzolokat?
- Dell notebook topic
- Külpolitika
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Nem tudom a dal címét, előadóját
- PlayStation 5
- Xbox Series X|S
- Formula-1
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen