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

• #44889 Fferi50 Topikgazda Sprite75 #44886

  Új Válasz 2020-09-22 11:45:20 #44889

  Ú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

  

  Fferi50

  Topikgazda

  válasz Sprite75 #44886 üzenetére

  Szia!
  Próbáld ki a következőt:
  A mentési makrót tartalmazó modul elejére, eljáráson kívül vegyél fel egy publikus változót.
  Public sNev As String 'ez fogja tartalmazni a mentendő munkafüzet nevét.
  Private Sub Workbook_Open()
Modul1.sNev=Thisworkbook.Name 'Itt Modul1 helyére annak a modulnak a nevét írd, amelyikben definiáltad az sNev változót.
TimerStart
Application.OnTime Now + TimeValue("00:02:00"), "SaveThis"
End Sub

  A mentési makrót módosítsd így:
  Sub PDFautoment()
' PDFment Makró automata
If ActiveWorkbook.Name<> Modul1.sNev Then Timerstart: Exit Sub
lapnev = ActiveSheet.Name

  Így a mentés csak akkor fog lefutni, ha az adott munkafüzet aktív, de az időzítőt továbbra is bekapcsolja.
  Üdv.

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