Pada kesempatan ini admin akan memberikan contoh latihan membuat tombol print otomatis menggunakan coding Excel VBA Macro. Dimana kita cukup membuat satu form/format nanti data-datanya akan berubah otomatis saat dicetak dengan mengambil data dari sheet lain. karena menggunakan rumus vlookup untuk cetaknya masih manual maka kita tambahkan tombol print otomatis menggunakan Excel Macro ini.
Kalau dalam microsoft word seperti sistem kerja cetak mail marge, bedanya jika menggunakan Excel memiliki kelebihan kita bisa memasukan rumus-rumus perhitungan didalamnya. Pembuatan Print otomatis menggunakan Macro VBA Excel ini bisa kita terapkan pada pembuatan cetak rapot, pembuatan slip gaji, pembuatan tagihan pembayaran dan format-format lainnya yang kita butuhkan.
VB Macro Print Otomatis
Pada Contoh kali admin akan membuat tombol print otomatis untuk format Slip Gaji karyawan, pada postingan sebelumnya sudah pernah admin bahas cara membuat slip gaji karyan menggunakan rumus vlookup excel, kekurangan pada format vlookup tersebut yaitu jika kita ingin mencetak atau print masih manual satu persatu. Jika data banyak tentunya akan menghabiskan waktu yang lama sehingga kurang simpel, kurang efektif dan efisien.
Untuk itu kita akan buat tombol print otomatisnya, lengkap dengan settingan dari nomer tetentu sampai nomer tertentu dan berapa kali copy cetaknya.
Langsung saja berikut langkah-langkahnya :
Supaya bisa mengikuti dengan mudah sobat bisa download contoh file latihannya dibawah ini
- Pertama buat tombol print dan print preview
- Buat tabel untuk menuliskan : Dari No (Cell L5) , Sampai No (Cell L6) dan Copy (Cell L7)
- Selanjutnya masuk pada koding
Untuk print preview kodingnya
Sub Button2_Click()
Worksheets(“SlipGajiOtomatis”).PrintPreview
End Sub
Koding untuk print
Sub Button1_Click()
mulai = Range(“L5”).Value
sampai = Range(“L6”).Value
kali = Range(“L7”).Value
For i = mulai To sampai
Worksheets(“SlipGajiOtomatis”).Range(“D6”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 2).Value
Worksheets(“SlipGajiOtomatis”).Range(“D7”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 3).Value
Worksheets(“SlipGajiOtomatis”).Range(“D8”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 4).Value
Worksheets(“SlipGajiOtomatis”).Range(“D12”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 5).Value
Worksheets(“SlipGajiOtomatis”).Range(“D13”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 6).Value
Worksheets(“SlipGajiOtomatis”).Range(“D14”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 7).Value
Worksheets(“SlipGajiOtomatis”).Range(“D15”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 8).Value
Worksheets(“SlipGajiOtomatis”).Range(“D16”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 9).Value
Worksheets(“SlipGajiOtomatis”).Range(“D17”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 10).Value
Worksheets(“SlipGajiOtomatis”).Range(“H12”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 11).Value
Worksheets(“SlipGajiOtomatis”).Range(“H13”).Value = Worksheets(“DataKaryawan”).Cells(3 + i, 12).Value
Worksheets(“SlipGajiOtomatis”).PrintOut Copies:=kali
Next i
End Sub
Ket kodingnya:
Mulai, sampai, kali merupakan variabel pengaturan halaman yang akan dicetak.
Rumus kita cocokan antara cell pada sheet “SlipGajiOtomatis” cetak dengan sheet“DataKaryawan”
Contoh :
Data Karyawan
NIK “SlipGajiOtomatis” = NIK “DataKaryawan”
Worksheets(“SlipGajiOtomatis”).Range(“D6”).Value = Worksheets(“DataKaryawan”).Cells(i + 3, 2).Value
Range(“D6”) =Cells(i + 3, 2)
Untuk Cells (i + 3, 2) urutannya baris dulu baru kolom artinya mulai baris ke 3+i kolom ke 2
(i untuk mulai print) jika mulai dari no 1 maka 3+1 =4 jadinya baris ke 4 kolom ke 2
For i = mulai To sampai —- Next i ini untuk proses perhitungan otomatis (looping)
Untuk memahami silahkan download file yang sudah jadi dibawah ini
Terimaksih semoga bermanfaat.
langkahnya lengkap, makasih mas, tinggal praktek
silahkan mas bro dipraktekan>
Sejak gak kerja dan fokus ngeblog, ilmu officenya agak blur semua nieh.
Bisa belajar lagi disini,
mksh inpohnya
silahkan sob
salut buat pak edi murah hati buat nge share ilmu nya semoga ya pak..trm kasih
sama sama, semoga bermanfaat
terima kasih, sangat membantu sekali, tapi saya kesulitan saat mengcopy sheet ke sheet di file excel yg lain.mohon dibukakan unprotectnya. mohon balasan ke email saya irfanbasir@gmail.com. thanks
sob Irfan sudah dikirim lewat email filenya. Tanks
itu kan hasil printnya menurun kebawah ya gan? kalo saya pengen bikin hasil printnya kesamping dulu satu kali baru turun dan seterusnya (1 kertas bisa 2 slip gaji kanan kiri) gimana kodenya ya gan? pake double loop kah?
iya sob printnya menurun kebawah, spertinya masih boros kertas dan kurang efektif satu-satu, nanti saya kembangkan lagi supaya satu lembar bisa beberapa slip gaji. untuk saat belum tau caranya. Terimakasih masukkannya.
Bagus bgt kang ilmunya, kebetulan sedang cari tuh… eh ketemu …. tnks bgt.
password sheetnya beleh minta gk, tolong dikirim ke email miftah3004@gmail.com ya kang
untuk koding cell yg di merge bagaimana mas??
untuk yg marge kemungkinan masuknya biasanya diambil yang atas dan kiri. misalnya tabel A1 dan A2 marge maka diambilnya A1. silahkan dicoba dulu.
mas,, untuk membuat no induk karyawan di print slip gaji bagaimana,, koq punya saya error
gan bisa minta passwordnya
saya kesulitan lihat prosesnya
kalo boleh kirim ke alamat
nugrahadian79@yahoo.com
maaf baru sempat balas utk password bisa kirim email ke password@belajaroffice.com otomatis.
Terimakasih
Sudah berhasil kalo datanya sedikit tapi ketika datanya banyak di atas 500 ada eror data terlalu banyak… mohon solusinya. terima kasih
Saya mencoba tapi tetap gagal, apa yang salah ya?
Kemungkinan masih ada koding yg tdk sesuai, nama sheet harus sesuai dengan kodingnya. Supaya lebih jelas silhkan file yg sobat buat ke email edi@belajaroffice.com nanti admin cek di mana letak kesalahannya. Terimakasih
Om, kalo mau save as PDF.. Dan nama filenya diambil dari NIK karyawan tersebut gimana ya?
Belum tau caranya sob ???