Private Sub tbltambah_Click()

Sheets("Sheet1").Select

no_transaksi = Range("N7").Text

tanggal = Range("N8").Text

nama_barang = Range("N10").Text

harga = Range("N11").Value

jumlah = Range("N12").Value

Total = Range("N13").Value

If no_transaksi = "" Or tanggal = "" Or nama_barang = "" Or harga = "" Or jumlah = "" Or Total = "" Then

MsgBox "Isian Belum Lengkap", vbExclamation, "Konfirmasi"

Exit Sub

End If

Sheets("Sheet1").Select

TotalData = Range("N19").Value

Rows(TotalData + 9 & ":" & TotalData + 9).Select

Selection.Copy

Rows(TotalData + 9 & ":" & TotalData + 9).Select

ActiveSheet.Paste

Application.CutCopyMode = False

Range("C" & TotalData + 9).Select

ActiveCell.FormulaR1C1 = no_transaksi

Range("D" & TotalData + 9).Select

ActiveCell.FormulaR1C1 = tanggal

Range("E" & TotalData + 9).Select

Range("F" & TotalData + 9).Select

ActiveCell.FormulaR1C1 = harga

Range("G" & TotalData + 9).Select

ActiveCell.FormulaR1C1 = jumlah

Range("H" & TotalData + 9).Select

ActiveCell.FormulaR1C1 = Total

Sheets("Sheet1").Select

Range("N10") = ""

Range("N12") = ""

Range("N10").Select

End Sub

Private Sub tblsave_Click()

If Range("N19").Value = 0 Then

MsgBox "Data Transaksi Kosong", vbExclamation, "Konfirmasi"

Exit Sub

End If

Pesan = MsgBox("Apakah ingin melanjutkan simpan data?", vbQuestion + vbYesNo, "Konfirmasi")

If Pesan = vbYes Then

MsgBox "Data Berhasil Disimpan", vbInformation, "Konfirmasi"

CetakNota

SimpanNota

SimpanData
Else

Exit Sub

End If

End Sub

Private Sub tblbatal_Click()

If Range("N19").Value = 0 Then

Exit Sub

End If

Pesan = MsgBox("Apakah ingin membatalkan transaksi?", vbQuestion + vbYesNo, "Konfirmasi")

If Pesan = vbYes Then

Sheets("Sheet1").Select

Range("c8:H110") = ""

Range("I5") = ""

Range("N8") = "=today()"

Range("N10") = ""

Range("N12") = ""

Range("N10").Select

Else

Exit Sub

End If

End Sub
Sub SimpanNota()

Sheets("Sheet1").Select

no_transaksi = Range("N7").Text

Sheets("Sheet1").Select

TotalData = Range("AB7").Value

Rows(TotalData + 8 & ":" & TotalData + 8).Select

Selection.Copy

Rows(TotalData + 8 & ":" & TotalData + 8).Select

ActiveSheet.Paste

Application.CutCopyMode = False

Range("Y" & TotalData + 8).Select

ActiveCell.FormulaR1C1 = no_transaksi

End Sub

Sub CetakNota()

Sheets("Sheet3").PrintPreview

End Sub

Sub SimpanData()

Sheets("Sheet1").Select

Range("C7").Offset(1, 0).Select

If Range("N19") = 1 Then

Range(Selection, Selection.End(xlToRight)).Select

Else

Range(Selection, Selection.End(xlToRight)).Select
 Range(Selection, Selection.End(xlDown)).Select

End If

Selection.Copy

Sheets("Sheet2").Select

If Range("B3").Offset(1, 0).Value = "" Then

Range("B3").Offset(1, 0).Select

Else

Range("B3").End(xlDown).Offset(1, 0).Select

End If

ActiveSheet.Paste

Sheets("Sheet1").Select

Range("C9:H110") = ""

Range("I5") = ""

Range("N8") = "=today()"

Range("N10") = ""

Range("N12") = ""

Range("N10").Select

Range("N10").ClearContents

End Sub