Print Raport MAM 1

'=======Cetak_Raport_MAM1=========
Sub cetak_banyak()
Dim mulai As Byte
Dim sampai As Byte
Dim a As Byte
mulai = Range("U3").Value
sampai = Range("V3").Value
For a = mulai To sampai
Range("M1") = a
Sheet44.PrintOut from:=1, To:=3, Copies:=1
Next a
Sheet44.Select
End Sub


Goal Sek - Analisa

 Sub goalsek()

'

' goalsek Macro

'

  Selection.GoalSeek Goal:=842, ChangingCell:=Selection.Offset(0, -1)

    

    

End Sub

Bris Terakhir

Menuju Baris terakhir : 

Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Value
nilainya berupa value dari cell tersebut
===========================
irow = Sheet1.Cells(Rows.Count, 1).End (xlUp).Offset(1, 0).row
nilainya berupa nomor baris 

Ebook Trik Excel

 klik di sini

uCase Looping

 klik di sini

https://trumpexcel.com/vba-ucase/

Pengaturan Cetak Dafnil, Dafdir, dan Raport

With Sheet1.PageSetup
.PaperSize = xlPaperLegal
.BottomMargin = Application.CentimetersToPoints(3)
End With

Backup File

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim saveDate As Date
    Dim saveTime As Variant
    Dim formatTime As String
    Dim formatDate As String
    Dim backupFolder As String

    saveDate = Date
    saveTime = Time

    formatTime = Format(saveTime, "hh.MM.ss")
    formatDate = Format(saveDate, "DD MMM YYYY")

    Application.DisplayAlerts = False
        backupFolder = ThisWorkbook.Path & "\"
        ActiveWorkbook.SaveCopyAs Filename:=backupFolder & Replace("Backup-" & ActiveWorkbook.Name, ".xlsb", "") & " " & formatDate & " " & formatTime & ".xlsb"
    Application.DisplayAlerts = True

'    MsgBox "Backup Successfully In The Path " & backupFolder
End Sub