Új hozzászólás Aktív témák

• #20557 bteebi veterán bteebi #20556

  Új Válasz 2014-02-18 17:07:35 #20557

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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 Sub

  Kipróbáltam, FullName helyett Name-mel is megy, de akkor kell bele a "\".

Új hozzászólás Aktív témák