Impor CSV dan Backup Otomatis (VBA) untuk wedding planner

Info proyek

• TemaWedding Planner dan Anggaran Pernikahan
• 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:

• Pos Pernikahan
• Kategori
• Jumlah
• Harga
• Status
• Tanggal

Item pada lembar Master

Dashboard: Dasbor Anggaran Pernikahan

• Total Anggaran
• Sudah Dibayar
• Sisa Tagihan
• Jumlah Pos Selesai

Tips

• Tetapkan batas anggaran sebelum survei vendor
• Catat DP dan tanggal pelunasan tiap vendor
• Hitung jumlah tamu lebih dulu karena memengaruhi banyak biaya

Data contoh bersifat sintetis.

Harga dan pemesanan

Pertanyaan umum