Nomor Urut dan ID Otomatis (VBA) untuk laundry

Info proyek

• TemaKasir dan Order Laundry
• FiturOtomasi · Menengah
• PerangkatExcel
• Harga (satu harga)Rp 550.000

Fungsi yang dipakai

• VBA
• Worksheet_Change
• Format
• Target
• Application.EnableEvents

Setiap transaksi punya nomor unik untuk dilacak.

Rumus di dalam berkas

Langkah memakai

1. 1Klik kanan tab Data, View Code.
2. 2Tempel kode ke jendela lembar Data (bukan modul biasa).
3. 3Kolom M berjudul ID Makro, tempat ID diterbitkan.
4. 4Isi item baru di kolom B pada baris kosong, ID muncul di M.
5. 5Simpan sebagai .xlsm.

Kode makro VBA

Modul makro dikirim sebagai berkas Modul_Makro.bas terpisah di dalam ZIP. Impor lewat Alt+F11. Cuplikan singkatnya:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, last As Long, nomor As Long
    If Intersect(Target, Me.Range("B2:B5000")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each c In Intersect(Target, Me.Range("B2:B5000")).Cells
        If c.Value <> "" And Me.Cells(c.Row, 13).Value = "" Then
            last = Me.Cells(Me.Rows.Count, 13).End(xlUp).Row
            If last < 2 Then
                nomor = 1
            Else
                nomor = Val(Right(Me.Cells(last, 13).Value, 4)) + 1
            End If
            Me.Cells(c.Row, 13).Value = "TRX-" & Year(Date) & "-" & Format(nomor, "0000")
            If Me.Cells(c.Row, 1).Value = "" Then Me.Cells(c.Row, 1).Value = Date
        End If
    Next c
    Application.EnableEvents = True
End Sub

Isi contoh

Kolom pada lembar Data:

• Layanan Laundry
• Kategori
• Berat atau Jumlah
• Harga
• Status
• Tanggal Masuk

Item pada lembar Master

Dashboard: Dasbor Order Laundry

• Total Pendapatan
• Total Berat atau Item
• Order Belum Diambil
• Layanan Terlaris

Tips

• Beri nomor nota pada tiap order
• Catat berat cucian saat diterima
• Hubungi pelanggan bila cucian siap diambil

Data contoh bersifat sintetis.

Harga dan pemesanan

Pertanyaan umum