Wa'alaikumsalam wr. wb.,
pak Gilang, bagai mana kalo saya ajarkan cara membuat macro dengan cara
melakukan perekaman macro (record macro), agar di kemudian hari pak
Gumilang dapat membuat sendiri macro dan mengajarkan kepada yang belum
bisa. Untuk member lain yang ingin ikut belajar VBA silakan dicoba cara
berikut ini.
berikut langkah-langkahnya:
1. pergi dahulu ke sheet 2
2. isi tabel dengan minimal 1 buah data dalam 1 baris
3. tekan tombol "Record Macro"
4. pada kotak "Macro name:" isi nama macro, tidak boleh dimulai dengan
Angka, tidak boleh ada spasi dan spesial karakter. Untuk saat ini beri saja
nama Simpan
5. pada kotak "Store macro in:" pilih This Workbook
6. tekan tombol "OK"
pada saat ini akan terbentuk script seperti ini:
Sub Simpan ()
End Sub ()
semua langkah berikutnya akan tersimpan di dalam kode tersebut, di
antara Sub dan End Sub
7. klik "Sheet1"
pada saat ini akan terbentuk script seperti ini:
Sheets("Sheet1").Select
8. klik cell B2 yang merupakan header dari tanggal
pada saat ini akan terbentuk script seperti ini:
Range("B2").Select
9. aktifkan alamat relatif dengan menekan tombol "Use Relative Reference"
10. tekan panah_bawah 1 x
pada saat ini akan terbentuk script seperti ini:
ActiveCell.Offset(1, 0).Range("A1").Select
11. tekan tombol CTRL Shift Panah_bawah
pada saat ini akan terbentuk script seperti ini:
Range(Selection, Selection.End(xlDown)).Select
12. masih dalam posisi menekan tombol CTRL dan Shift, lalu tekan tombol
Panah_kanan
pada saat ini akan terbentuk script seperti ini:
Range(Selection, Selection.End(xlToRight)).Select
langkah 11 & 12 akan melakukan blok seluruh data yang akan dicopy
13. tekan tombol CTRL C untuk melakukan proses copy
pada saat ini akan terbentuk script seperti ini:
Selection.Copy
14. klik sheet2 di mana akan dilakukan proses simpan data
pada saat ini akan terbentuk script seperti ini:
Sheets("Sheet2").Select
15. matikan mode relatif dengan menekan kembali tombol "Use Relative
Reference"
16. klik cell B2 yang merupakan header tanggal
pada saat ini akan terbentuk script seperti ini:
Range("B2").Select
17. aktifkan kembali mode relatif dengan menekan kembali tombol "Use
Relative Reference"
18. tekan tombol CTRL Panah_bawah, akan menuju ke baris akhir yang berisi
data
pada saat ini akan terbentuk script seperti ini:
Selection.End(xlDown).Select
19. tekan tombol Panah_bawah 1 x untuk menuju ke baris kosong berikutnya
pada saat ini akan terbentuk script seperti ini:
ActiveCell.Offset(1, 0).Range("A1").Select
20. pada cell yang aktif (ditunjuk), tekan tombol kanan mouse, pilih "Paste
Special", beri tanda pada "Values and number formats"
karena kita akan mempaste nilainya dan mengikuti format data aslinya,
klik tombol "OK"
pada saat ini akan terbentuk script seperti ini:
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=
_
xlNone, SkipBlanks:=False, Transpose:=False
21. klik tombol "Stop recording" untuk menghentikan proses rekam macro
script lengkap yang dihasilkan adalah sebagai berikut:
Sub Simpan()
'
' Simpan Macro
'
'
Sheets("Sheet1").Select
Range("B2").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Sheet2").Select
Range("B2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub
selamat, Anda sudah berhasil membuat macro pertama anda sendiri
untuk menjalankannya panggil macro tersebut sesuai namanya dengan tombol
yang sudah Anda buat, caranya sebagai berikut:
1. pada ribbon "Developer" (excel 2007 ke atas), klik tombol "Design mode"
2. double klik tombol yang sudah anda buat
pada saat ini akan terbuka sebuah VBE (Visual Basic Editor) dengan
script seperti ini
Private Sub CommandButton1_Click()
End Sub
3. diantara kediua baris tersebut tuliskan nama macro yang sudah dibuat
yaitu Simpan
hasil akhirnya adalah sebagai berikut:
Private Sub CommandButton1_Click()
Simpan
End Sub
Sekarang coba anda buat data baru dan simpan dengan cara menekan tombol
tersebut.
Untuk membuat nomer urutnya, silakan dicoba juga dengan melakukan proses
rekam.
Selamat mencoba dan tetap semangat.
Wassalamu'alaikum wr. wb.,
-Ms. Jan Raisin-
Pada 30 November 2012 22:40, gilang gumilar <[email protected]>menulis:
> **
>
>
>
> Assalamu'alaikum
> sebelumnya salam perkenalan saya member baru. dan yang ingin saya tanyakan
> tentang pembuatan faktur penjulan yang nantinya pada saat ditekan tombol
> simpan
>
> data pada faktur akan otomatis dicopy ke sheet 2, dan selanjutnya bila
> faktur diisi kembali data dan dipindahkan, datanya otomatis masuk ke sheet
> 2 pada baris terakhir. untuk lebih jelasnya tabelnya saya lampirkan.
> mungkin ada yang bisa bantu saya. sebelumnya saya ucapkan terima kasih
>
>
