Membuat tabel data dengan macro, adakah kaitanya antara menghitung baris yang aktif dengan membuat entri data ? jawabanya adalah jelas ada, alasanya entri data tidak akan bisa menghasilkan input data secara teratur jika entri data tidak mengetahui jumlah baris yang aktif. Logika yang digunakan oleh entri data data adalah Logika pertama yang digunakan entri data agar menghasilkan input data secara teratur adalah mengetahui terlebih dahulu baris yang aktif, kemudian yaitu logika kedua entri data akan meletakan input data tepat dibawah jumlah baris yang aktif, harap pembaca ingat baik baik logika satu ini karena dengan memahami satu logika saja pembaca bisa mengembangkan logika tersebut untuk keperluan banyak hal

Logika pertama yang digunakan entri data agar menghasilkan input data secara teratur adalah mengetahui terlebih dahulu baris yang aktif, kemudian yaitu logika kedua entri data akan meletakan input data tepat dibawah jumlah baris yang aktif


MEMBUAT TABEL DATA
Sekarang saatnya action, mungkin pembaca sudah berkali kali melihat artikel di blog tentang tema yang kali ini saya angkat, akan tetapi pada artikel ini saya akan mengajak pembaca untuk lebih memahami cara membuat entri data vba excel dengan logika yang tepat. Ok langsung saja, untuk memulai membuat entri data vba excel buatlah tabel seperti ini

K/B A B C
1 - --
2 NAMA KARYAWAN JENIS KELAMIN JABATAN
3 Agus mahardika LHRD
4 Mubin LMaintenance Building
5 Sujiyono LStaff OB
6 Mas Eko LStaff OB
7 Karim LDriver
8 Nadi Maulana LDriver
9 Siti Rukmini POG
10 Wasis zain LOB
11 Sudarso LOB
12 - --
13 - --
14 - --

Jika sudah membuat tabel sebagaimana tabel diatas arahkan perhatian 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 entri data vba excel

Kita buktikan bahwa ada "kaitanya antara menghitung baris yang aktif dengan membuat entri data vba excel", karena kalau diamati memang baris baris kode macro Membuat entri data 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 entri data agar menghasilkan input data secara teratur adalah mengetahui terlebih dahulu baris yang aktif, Lalu kelogika kedua entri data 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

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. Oh iya penulis memohon maaf karena belum membahas tentang tombol Commandbutton ActiveX Controls padahal pada dua pertemuan sebelumnya tombol Commandbutton ActiveX Controls ini sudah digunakan, tapi Insya Allah akan penulis bahas pada pertemuan selanjutnya, tapi sebelumnya silahkan buka pertemuan kedua yang menjelakan dasar dasar visual basic for application (VB) pada link Apa itu Microsoft Visual Basic

Demikianlah ulasan kali ini mengenai membuat entri data, semoga ulasan ini dapat dipahamai dengan baik.

No comments