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

• #33039 Delila_1 veterán Carasc0 #33037

  Új Válasz 2016-10-23 14:31:30 #33039

  Ú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

  

  Delila_1

  veterán

  válasz Carasc0 #33037 üzenetére

  ThisWorkbookba

  Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:10"), "OsszegKiiras"
End Sub

  Modulba

  Sub OsszegKiiras()
Beep
MsgBox Application.WorksheetFunction.Sum(Sheets("Munka3").Range("C4:C15")) '***

Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

  A csillagokkal jelzett sorban a saját lapod, saját összegzendő tartományod címét add meg!

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