Assalamu'alaikum Wr. Wb.
Materi praktikum yang kita pelajari dalam mata kuliah "Analisis Laporan Keuangan UMKM" yaitu materi "Rumus VBA Module Simpan Data". Untuk lebih jelasnya mengenai materi "Rumus VBA Module Simpan Data" dapat dipelajari pada materi berikut:
Sub SimpanData ()
‘PILIH SHEET YANG AKAN DICOPY, YAITU SHEET : Transaksi Kasir
Sheets(“Transaksi Kasir”).Select
Range (“C7”).Offset(1, 0).Select
If Range(“K12”) = 1 Then ‘<< K12 adalah Cell Total Item
Range(Selection, Selection.End(xlToRight)).Select
Else
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
End If
Selection.Copy
‘PILIH SHEET YANG ALAN DIPASTE, YAITU SHEET : Daftar Transaksi
Sheets(“Daftar Transaksi”).Select
If Range(“B2”).Offset(1, 0).Value = “” Then
Range(“B2”).Offset(1, 0).Select
Else
Range(“B2”).End(x1Down).Offset(1, 0).Select
End If
ActiveSheet.Paste
‘MENGOSONGKAN ISIAN DATA DAN TABEL TRANSAKSI DI SHEET Transaksi Kasir
Sheets(“Transaksi Kasir”).Select ‘<< MEMILIH SHEET Transaksi Kasir
Range(“C8:H107”) = “” ‘<< MENGOSONGKAN TABEL TRANSAKSI
Range(“H4”) = “”
Range(“K4”) = “=today()” ‘<<MENAMPILKAN TANGGAL HARI INI
Range(“K6”) = “”
Range(“K8”) = “”
Range(“K6”).Select
Range(“K6”).ClearContents
End Sub
Demikian penjelasan materi dari saya, semoga bermanfaat.
Let’s Study! Have a nice day!
Wassalamu’alaikum Wr. Wb.

Comments
Post a Comment