Membuat Entri Data dengan VBA

Uuntuk melengkapi tips sebelumnya yaitu Menghapus Nilai Ganda Menggunakan VBA saya akan buatkan untuk anda yaitu Membuat Entri Data dengan VBA. Ada dua lgika penting yang perlu diingat saat membuat Entri Data dengan VBA yaitu :
1 Mengetahui baris terakhir yang kosong
2 Mengisi baris akhir yang kosong dengan data

Lihatlah tabel dibawah ini

K/B	A	B	C
1	-	-	-
2	NAMA KARYAWAN	JENIS KELAMIN	JABATAN
3	Agus mahardika	L	HRD
4	Mubin	L	Maintenance Building
5	Sujiyono	L	Staff OB
6	Mas Eko	L	Staff OB
7	Karim	L	Driver
8	Nadi Maulana	L	Driver
9	Siti Rukmini	P	OG
10	Wasis zain	L	OB
11	Sudarso	L	OB
12	-	-	-
13	-	-	-
14	-	-	-

Coba buatlah tabel sebagaimana tabel diatas, lalu perhatikan ke kolom E F dan kolom G, isikan pada kolom E1 "NAMA KARYAWAN" kolom F1 "JENIS KELAMIN" dan kolom G1 "JABATAN" perhatikan gambar dibawah ini



Lalu klik tab menu developer, pilih insert > Insert Commandbutton ActiveX Controls, perhatikan lagi gambar diatas. Jika sudah langsung saja ketikan baris kode macro dibawah ini kedalam jendela VBE

Private Sub CommandButton1_Click()
Set Epro = Sheets("HOME")
BarisAkhir = Epro.Cells(Epro.Rows.Count, "A").End(xlUp).Offset(0, 0).Row
Epro.Cells(BarisAkhir + 1, 1).Value = Epro.Range("E2").Value
Epro.Cells(BarisAkhir + 1, 2).Value = Epro.Range("F2").Value
Epro.Cells(BarisAkhir + 1, 3).Value = Epro.Range("G2").Value
End Sub

Atau bisa juga ditulis seperti ini

Private Sub CommandButton1_Click()
BarisAkhir = Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row + 1
Cells(BarisAkhir, 1).Value = Range("E2").Value
Cells(BarisAkhir, 2).Value = Range("F2").Value
Cells(BarisAkhir, 3).Value = Range("G2").Value
End Sub

Sekarang isikan pada kolom E2 "Nama pembaca" kolom F2 "Jenis kelamin pembaca" dan kolom G2 "Jabatan Pembaca" lalu klik tombol Commanbutton, insya Allah berhasil ya, karena tidak terlalu rumit.

Catatan Membuat form input vba excel

Kita buktikan bahwa ada "kaitanya antara menghitung baris yang aktif dengan membuat form input vba excel", karena kalau diamati memang baris baris kode macro Membuat form input vba excel sangat identik dengan menghitung baris yang aktif .kode macro yang digunakan untuk menghitung baris aktif adalah

Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row

Senada dengan pernyataan diatas bahwa Logika pertama yang digunakan form input agar menghasilkan input data secara teratur adalah mengetahui terlebih dahulu baris yang aktif, Lalu kelogika kedua form input akan meletakan input data tepat dibawah jumlah baris yang aktif, baris kode macronya adalah

Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row + 1

BarisAkhir = Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row
Cells(BarisAkhir + 1, 1).Value . . . . .

Mungkin pembaca masih ada yang bertanya tanya baris kode macro nomor 1,2,3 seperti dibawah ini

Cells(BarisAkhir, 1).Value = ...
Cells(BarisAkhir, 2).Value = ...
Cells(BarisAkhir, 3).Value = ...

Angka 1,2,3 pada kode maro tersebut tidak mewakili baris (Row) akan tetapi angka tersebut mewakili kolom yakni angka 1 untuk kolom A, angka 2 untuk kolom B, kolom C diwakili angka 3 dan seterusnya.

Download - Sampel artikel ini

Baca juga artikel yang berkatiatan dengan artikel ini
 Membuat loading di userform
 Text berjalan pada userform Excel
 Membuat loading dengan macro
 Mengatasi Error in loading dll

Follow IG Wasis Zain atau Like fanpage Excel Pro

Tanpa iklan yang bikin muter muter

Demikianlah tips dan tutorial cara Membuat Entri Data dengan VBA, silahkan buka aplikasi microsoft excel anda lalu pahami tentang Visual basic for application (VBA), semoga bermanfaat dan mudah dimengerti. Aamiin

Download - 423 Sampel Excel VBA dijmain mahir VBA

 Order Aplikasi Murah dengan design premium Info Disini