Assalamu'alaikum Wr. Wb.
Materi praktikum yang kita pelajari dalam mata kuliah "Analisis Laporan Keuangan UMKM" yaitu materi "Rumus VBA cmd Simpan Nomor Nota". Untuk lebih jelasnya mengenai materi "Rumus VBA cmd Simpan Nomor Nota" dapat dipelajari pada materi berikut:
Sub SimpanNoNota ()
‘PILIH SHEET, DISINI NAMA SHEETNYA ADALAH : Traksaksi kasir
Sheets(“Transaksi kasir”).Select
‘NO. TRANSAKSI YANG AKAN KITA COPY
no_transaksi = Range (“K3”).Text
‘MEMASUKKAN DATA KE TABEL NO NOTA KETIKA MENGKLIK TOMBOL TAMBAH
Sheets(“Transaksi Kasir”).Select ‘<< MEMILIH SHEET Transaksi Kasir
TotalData = Range(“Z3”).Value ‘<< CELL Z3 ADALAH TOTAL DATA PADA TABEL NO NOTA
Rows(TotalData + 4 & “:” & TotalData + 4).Select ‘<< ANGKA 4 ADALAH BARIS PERTAMA PADA TABEL NO NOTA YANG AKAN DIISI DATA
Selection.Copy
Rows(TotalData + 4 & “:” & TotalData + 4).Select
ActiveSheet.Paste
Application.CutCopyMode = False
‘MENENTUKAN KOLOM PADA TABEL TRANSAKSI YANG AKAN DIISIKAN DATA
Range(“W” & TotalData + 4).Select ‘<< W ADALAH KOLOM NO NOTA, ANGKA 4 ADALAG BARIS PERTAMA PADA TABEL NO NOTA
ActiveCell.FormulaR1C1 = no_transaksi
End Sub
Demikian penjelasan materi dari saya, semoga bermanfaat.
Let’s Study! Have a nice day!
Wassalamu’alaikum Wr. Wb.

Comments
Post a Comment