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