Impor CSV dan Backup Otomatis (VBA) untuk bengkel kendaraan

Info proyek

• TemaKasir dan Riwayat Servis Bengkel
• FiturPengolahan Data · Menengah
• PerangkatExcel
• Harga (satu harga)Rp 575.000

Fungsi yang dipakai

• VBA
• Workbooks.Open
• GetOpenFilename
• SaveCopyAs
• Format

Impor ribuan baris aman karena selalu ada cadangan.

Rumus di dalam berkas

Langkah memakai

1. 1Siapkan CSV dengan 6 kolom: tanggal, item, kategori, qty, harga, status.
2. 2Import modul .bas lewat Alt+F11.
3. 3Jalankan ImporCSV, pilih berkasnya.
4. 4Cek cadangan di folder yang sama dengan berkas Excel.
5. 5Salin rumus kolom G ke baris baru bila belum otomatis.

Kode makro VBA

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

Sub ImporCSV()
    Dim f As Variant, wb As Workbook, wd As Worksheet, n As Long, t As Long
    Set wd = ThisWorkbook.Sheets("Data")
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\Backup_" & Format(Now, "yyyymmdd_hhmm") & ".xlsx"
    f = Application.GetOpenFilename("CSV (*.csv),*.csv")
    If f = False Then Exit Sub
    Set wb = Workbooks.Open(f)
    n = wb.Sheets(1).Cells(wb.Sheets(1).Rows.Count, "A").End(xlUp).Row
    If n >= 2 Then
        t = wd.Cells(wd.Rows.Count, "A").End(xlUp).Row + 1
        wb.Sheets(1).Range("A2:F" & n).Copy
        wd.Cells(t, 1).PasteSpecial xlPasteValues
        wd.Range("G" & t & ":G" & (t + n - 2)).Formula = "=D" & t & "*E" & t
    End If
    Application.CutCopyMode = False
    wb.Close SaveChanges:=False
    MsgBox (n - 1) & " baris diimpor.", vbInformation
End Sub

Isi contoh

Kolom pada lembar Data:

• Servis atau Suku Cadang
• Kategori
• Jumlah
• Harga
• Status
• Tanggal Servis

Item pada lembar Master

Dashboard: Dasbor Bengkel

• Total Pendapatan
• Jumlah Kendaraan Masuk
• Servis Terlaris
• Pelanggan Berulang

Tips

• Catat nomor polisi dan kilometer tiap servis
• Ingatkan pelanggan jadwal servis berikutnya
• Pantau stok suku cadang yang sering dipakai

Data contoh bersifat sintetis.

Harga dan pemesanan

Pertanyaan umum