-
GAMEPOD.hu
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
- Samsung Galaxy S23 Ultra - non plus ultra
- Windows 11
- Házimozi belépő szinten
- ThinkPad (NEM IdeaPad)
- Yettel topik
- Politika
- Kertészet, mezőgazdaság topik
- A tüntetések ellenére is bővítheti német gyárát a Tesla
- Samsung Galaxy A52s 5G - jó S-tehetség
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs