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

• #50476 TheSaint aktív tag VGYke #50475

  Új Válasz 2023-02-13 20:08:02 #50476

  Ú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

  

  TheSaint

  aktív tag

  válasz VGYke #50475 üzenetére

  Esetleg valami ilyesmi:

  Private Sub CommandButton1_Click()
    Dim lastPrint As Date
    lastPrint = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
    If (Date - lastPrint) >= 15 Then
        Worksheets("Munka2").PrintOut
    End If
End Sub
  
  Gombot add hozzá, Munka2 fület nyomtatja.

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