Private Sub CommandButton1_Click()
Dim lembar As Worksheet
Set lembar = Worksheets(2)
lembar.Range(“B2”) = “No”
lembar.Range(“B2”).Font.Name = “Calibri”
lembar.Range(“B2”).HorizontalAlignment = xlCenter
lembar.Range(“B2”).VerticalAlignment = xlCenter
lembar.Range(“B2”).ColumnWidth = 12
lembar.Range(“B2”).Interior.Color = vbBlue
lembar.Range(“B2”).Borders.Color = vbBlack
lembar.Range(“B2”).Font.Color = vbWhite
With lembar.Range(“C2”)
.Value = “Tanggal”
.Font.Name = “Calibri”
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ColumnWidth = 12
.Interior.Color = vbBlue
.Borders.Color = vbBlack
.Font.Color = vbWhite
End With
With lembar.Range(“D2”)
.Value = “Keterangan”
.Font.Name = “Calibri”
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ColumnWidth = 12
.Interior.Color = vbBlue
.Borders.Color = vbBlack
.Font.Color = vbWhite
End With
With lembar.Range(“E2”)
.Value = “Debit”
.Font.Name = “Calibri”
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ColumnWidth = 12
.Interior.Color = vbBlue
.Borders.Color = vbBlack
.Font.Color = vbWhite
End With
With lembar.Range(“F2”)
.Value = “Kredit”
.Font.Name = “Calibri”
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ColumnWidth = 12
.Interior.Color = vbBlue
.Borders.Color = vbBlack
.Font.Color = vbWhite
End With
With lembar.Range(“G2”)
.Value = “Saldo”
.Font.Name = “Calibri”
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ColumnWidth = 12
.Interior.Color = vbBlue
.Borders.Color = vbBlack
.Font.Color = vbWhite
End With
End Sub

Private Sub CommandButton2_Click()
Dim lembar As Worksheet
Dim alamat As Range
Dim nilai As Integer
Set lembar = Worksheets(2)
nilai = lembar.Cells(lembar.Rows.Count, “B”).End(xlUp).Row
lembar.Range(“C” & nilai + 1) = Range(“B4”)
lembar.Range(“D” & nilai + 1) = Range(“B5”)
lembar.Range(“E” & nilai + 1) = Range(“B6”)
lembar.Range(“F” & nilai + 1) = Range(“B7”)
lembar.Range(“G” & nilai + 1) = Range(“B8”)
lembar.Range(“B” & nilai + 1) = nilai – 1
Range(“B4:B8”) = “”
End Sub