Cara Membuat Nota Otomatis Pake Excel (Aplikasi Free)

Nota merupakan salah satu bukti transaksi jual beli yang tentunya sangat dibutuhkan sebagai salah satu bukti transaksi keuangan bagi perusahaan. Di Excel kita bisa membuat nota jual secara otomatis dengan bantuan coding VBA (macro excel).

Untuk desain nota memang banyak ragam/jenisnya namun secara umum nota jual (nota penjualan) tidak jauh berbeda terdiri dari kolom Nama Barang (item), harga, quantity, jumlah, dan total. Biasanya nota juga dituliskan sebuah titimangsa untuk menjelaskan bahwa terjadi transaksi pada waktu tersebut.



Aplikasi nota otomatis ini ketika menuliskan nama barang maka akan secara otomatis akan mencari sendiri database barang yang ada di toko sehingga hal ini akan memungkinkan mengurangi kesalahan penulisan nama barang yang sesuai dengan yang ada di toko tersebut.

Selain itu juga fitur nota toko otomatis ini juga Anda tidak usah menuliskan harga karena harga akan menyesuaikan dengan barang.

Coding Nota Otomatis

Private Sub ComboBox1_AfterUpdate()
kodebarang = Me.ComboBox1.Value
With Worksheets("Database").Range("A1:B10000")
    Set X = .Find(kodebarang, LookIn:=xlValues)
    If Not X Is Nothing Then
        Baris = X.Row
        Me.TextBox1.Text = Worksheets("Database").Cells(Baris, 2).Value
        TextBox1 = Format(TextBox1, "#,##0")
    End If
    End With
End Sub

Private Sub ComboBox1_Change()
On Error Resume Next
Dim i As Long
For i = 1 To Application.WorksheetFunction.CountA(Sheet2.Range("A:A"))
If LCase(Left(Sheet2.Cells(i, 1), 1)) = Me.ComboBox1 And Me.ComboBox1 <> "" Then
    Me.ComboBox1.AddItem Sheet2.Cells(i, 1)
End If
Next i
Me.ComboBox1.DropDown
End Sub

Sub bersihkan()
ComboBox1.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub

Private Sub CommandButton1_Click()
On Error Resume Next
Dim iRow As Long
Dim Ws As Worksheet
Set Ws = Worksheets("Temp")
iRow = Ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Ws.Cells(iRow, 1).Value = Me.ComboBox1.Value
Ws.Cells(iRow, 2).Value = Me.TextBox1.Value
Ws.Cells(iRow, 3).Value = CDbl(Me.TextBox2.Value)
Ws.Cells(iRow, 4).Value = CDbl(Me.TextBox3.Value)
Call SettingListbox
Call Baru
End Sub

Private Sub CommandButton2_Click()
Worksheets("Temp").Range("Temp").Copy
Worksheets("Nota").Range("I11").PasteSpecial xlPasteValues

End Sub

Private Sub CommandButton3_Click()
Call HapusNota
End Sub

Sub Baru()
ComboBox1.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
ComboBox1.SetFocus
End Sub

Sub HapusNota()
On Error Resume Next
Range("Nota").ClearContents
Range("Temp").ClearContents
End Sub

Private Sub CommandButton4_Click()
UserForm1.Hide
Worksheets("Nota").PrintPreview
UserForm1.Show
End Sub

Private Sub TextBox2_AfterUpdate()
If TextBox2.Value = "" Then
    Exit Sub
    Else
        TextBox3.Value = CDbl(TextBox1.Value) * TextBox2.Value
        TextBox3 = Format(TextBox3, "#,##0")
End If
End Sub

Private Sub TextBox4_Change()
Worksheets("Nota").Range("K5") = TextBox4.Value
End Sub

Private Sub TextBox5_Change()
Worksheets("Nota").Range("J7") = TextBox5.Value
End Sub

Private Sub UserForm_Initialize()
Call SettingListbox
End Sub
Sub SettingListbox()
With ListBox1
    .RowSource = "temp"
    .ColumnCount = 4
    .ColumnWidths = "150;50;20;50"
End With
End Sub


Oke daripada kalian bingung dengan coding yang bikin ga mau mikir jadi download ajah aplikasi Nota Otomatis ini



Posting Komentar

2 Komentar

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

close
Video Belajar Tutorial Excel