Misi: rekap harian kasir

Koperasi Maju Bersama di Makassar mencatat transaksi kasir di lembar Harian: kolom A tanggal, B nama kasir, C nomor transaksi, D nominal. Baris 1 berisi judul kolom dan data hari ini mengisi baris 2 sampai 41 tanpa baris kosong. Kasir terakhir yang tercatat di B41 adalah Wulan. Makro RekapHarian di buku kerja laporan.xlsm menulis ringkasan ke lembar Rekap.

Sub RekapHarian()
    Dim sumber As Worksheet, rekap As Worksheet
    Dim akhir As Long
    Set sumber = ThisWorkbook.Worksheets("Harian")
    Set rekap = ThisWorkbook.Worksheets("Rekap")
    akhir = sumber.Cells(sumber.Rows.Count, 1).End(xlUp).Row
    rekap.Range("B1").Value = akhir - 1
    rekap.Range("B2").Formula = "=SUM(Harian!D2:D" & akhir & ")"
    rekap.Range("B3").Value = sumber.Cells(akhir, 2).Value
    sumber.Range("F1").Value = "Direkap"
End Sub

Makro ini tidak memilih lembar apa pun. Setiap baris yang menyentuh sel diawali variabel lembar, sehingga hasilnya sama di lembar mana pun pengguna berada saat menjalankannya. Rumus di Rekap!B2 dirakit dari potongan teks dan nilai variabel akhir yang disambung dengan &, lalu dimasukkan lewat properti Formula sehingga sel itu berisi rumus sungguhan.

Telusuri makro baris demi baris: catat isi tiap variabel setelah baris yang mengisinya, lalu tentukan sel mana yang ditulis, di lembar mana, dan apakah yang ditulis berupa nilai atau rumus.