Sobat ruang excel, Barang-barang yang ada di ruangan baik ruang kelas, kantor maupun perpustakaan harus diinventarisir. Seperti barang mabeler, elektronik, dan barang modal lainnya harus tercatat dan diketahui dengan jelas rincian barang dan riwayat pencatatnya. 

Hal tersebut harus dilakukan dengan tujuan untuk memantau keberadaan dan kondisi barang modal tersebut secara berkala. Selain itu juga agar memudahkan dalam pengerjaan pencatatan dan pelaporan pada Sistem Informasi Manajemen Daerah (SIMDA) di setiap tahunnya.

ruang excel mencoba berbagi sebuah Aplikasi Input data barang inventaris dengan menggunakan basis data Microsoft Excel yang dilengkapi tombol catat dengan bantuan kode vba.

Sobat ruang excel bisa unduh aplikasi Input data barang dengan gratis dan jika sobat ingin mengembangkan aplikasi ini silahkan berikut kode vba-nya untuk dipasang pada file excel input data pada menu macros :

Berikut adalah kode vba pada tombol Catat :

Sub insertData()

Dim jumlahData As Integer

Dim no, kodebarang, namabarang, jenisbarang, bahan, volume, laik, kuranglaik, tdklaik, namaruang, pencatat As String

Sheets("Entri").Select

no = Range("B2").Text

kodebarang = Range("B3").Text

namabarang = Range("B4").Text

jenisbarang = Range("B5").Text

bahan = Range("B6").Text

volume = Range("B7").Text

laik = Range("D7").Text

kuranglaik = Range("F7").Text

tdklaik = Range("H7").Text

namaruang = Range("B8").Text

pencatat = Range("B10").Text

    Sheets("Data Invt").Select

    jumlahData = Range("L1").Value

    Rows(jumlahData + 2 & ":" & jumlahData + 2).Select

    Selection.Copy

    Rows(jumlahData + 3 & ":" & jumlahData + 3).Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Range("A" & jumlahData + 3).Select 'input no

    ActiveCell.FormulaR1C1 = jumlahData + 1

    Range("B" & jumlahData + 3).Select 'input kodebarang

    ActiveCell.FormulaR1C1 = kodebarang

    Range("C" & jumlahData + 3).Select 'input namabarang

    ActiveCell.FormulaR1C1 = namabarang

    Range("D" & jumlahData + 3).Select 'input jenisbarang

    ActiveCell.FormulaR1C1 = jenisbarang

    Range("E" & jumlahData + 3).Select 'input bahan

    ActiveCell.FormulaR1C1 = bahan

    Range("F" & jumlahData + 3).Select 'input volume

    ActiveCell.FormulaR1C1 = volume

    Range("G" & jumlahData + 3).Select 'input laik

    ActiveCell.FormulaR1C1 = laik

    Range("H" & jumlahData + 3).Select 'input kuranglaik

    ActiveCell.FormulaR1C1 = kuranglaik

    Range("I" & jumlahData + 3).Select 'input tdklaik

    ActiveCell.FormulaR1C1 = tdklaik

    Range("J" & jumlahData + 3).Select 'input namaruang

    ActiveCell.FormulaR1C1 = namaruang

    Range("K" & jumlahData + 3).Select 'input user

    ActiveCell.FormulaR1C1 = pencatat

    Sheets("Entri").Select

    'pesan berhasil

    MsgBox "Input Data Berhasil !", vbInformation, "Terimakasih !"

End Sub

Ketika kita berhasil memasukan kode tersebut pada Vba/macro catat maka data yang kita edit pada Sheet Entri kemudian klik tombol catat data akan terinput di Data Invt.

Lihat Gambar di bawah :