Membuat Nota Transaksi Penjualan Berdasarkan Tanggal,Bulan,Tahun dan Nomor Urut

Posted by Admin

Cara Membuat Nomor Nota Transaksi Penjualan Secara Otomatis - Kali ini saya akan membahas tentang menampilkan Nomor faktur transaksi penjualan secara otomatis berdasarkan Tanggal, Bulan, Tahun dan Nomor urut.

Kalau secara manual sangatlah membosankan mengetik secara terus-menerus.

Meskipun Tutorial ini sudah banyak di blog lain. tapi nggak ada salah nya saya membagikannya lagi,

Meskipun coding nya sederhana, tetapi bagi orang pemula yang pengen mempelajari coding tentang vba di microsoft excel ini sangatlah sulit.

kususnya bagi orang yang ingin membuat aplikasi penjualan, untuk menampilkan nomor faktur secara otomatis di tabel transaksi penjualan sangat dibutuhkan.

Nggak Usah berlama Langsung aja dech ke TKP.....hehehe

1. Buatlah Nomor di (Sheet2) seperti berikut.

2. Setelah Itu Buatlah tabel pada (Sheet1)  dengan beri nama Transaksi Penjualan dan disain lah seperti dibawah ini:

3. Buka Tab Developer maka muncul icon seperti berikut:

4. Selanjutnya Klik Icon Visual Basic maka muncul jendela baru seperti gambar di bawah ini.

5. Selanjutnya, klik kanan pada mouse VBAProject-Insert-Module maka muncul (Module1)

6. Doubel klik pada Module1 dan ketikan coding berikut ini.

Sub NotaPenjualan()
Dim i As Long
Dim c As Long
Dim no As String
For i = 1 To 1048576
        c = Sheet2.Range("A:A").Cells(i, 1)
    If c = 0 Then
        no = "PJ/" & Day(Now) & Month(Now) & Year(Now) & i
        Sheet1.Range("G5").Value = no
        Sheet1.Range("G6").Value = no
        Sheet1.Range("A:A").Cells(i, 1) = i
Exit For
    End If
    Next i
End Sub

7. Kemudian Kembali ke Tabel Transaksi Penjualan, Klik Insert-Shapes-Rectangle rubahlah namanya Nomor atau boleh saja sesuka Kamu

8. Klik Kanan pada tombol nomor Assign Macro pilihlah notapenjualan.

Catatan:
Menambahkan icon Button nggak harus nya di shapes, di Tab Developer juga tersedia Button dan CommanButton

Selamat Mencoba Semoga berhasil.

Excel

Share This :