Membuat Macro/VBA yang dapat diakses dengan Keyboard shortcuts

Untuk membuat VBA/Macro ada 2 cara :

1. Cara mudah adalah dengan record macro, nanti tinggal kita edit hasilnya.
2. Bisa juga kita cari  code yang ada diinternet lalu kita edit

Kita mulai dulu dari yang pertama

Kita akan mencoba membuat macro yang dapat paste secara value/angkanya saja dan sekaligus transpose

1.  Cara Pertama, Record Macro

1. Kita Copy dulu salah satu cells (hal ini supaya tombol paste-specials bisa On)
2. Kita klik Record Macro di ribbon developer
3. akan muncul windows sbb :
4. 
5. Kita isi namanya (usahakan informatif)
6. Kita klik text box di shortcut key
7. Kita pencet SHIFT+T jika ingin keyboard shorcut adalah Ctrl+Shift+T (atau tombol lainnya terserah anda)
8. Pastikan kita memilih Personal Macro Workbook
9. Isi description dengan penjelasan ttg macro ini
10. Klik OK
12. Kita akan kembali ke Excel
14. Klik kanan salah satu cell, lalu pilih Paste specials
15. 
16. Pilih Value dan transpose
17. 
18. Klik OK
19. Klik stop recording di ribbon developer
20. 
21. Kita coba
22. Copy dulu cells yang mau dipaste transpose value
23. Pencet Ctrl+Shift+T
24. ini hasilnya
25. 
26. Ini codenya kalo kita lihat di VBE

27. Sub Paste_Transpose_Value()
    '
    ' Paste_Transpose_Value Macro
    ' Paste secara transpose value
    '
    ' Keyboard Shortcut: Ctrl+Shift+T
    '
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    End Sub

     

28. Selesai

Tentu saja cara ini menghasilkan code yang masih kotor karena belum ada trap error, artinya jika ada masalah kita tidak tahu dimana kesalahannya

• Jika kita tidak disheet atau sedang klik shape/picture
• 
• Kita lupa belum copy
• 
• Klik End untuk stop/Debug untuk edit code

Cara 2.  Kita akan membuat yang lebih perfect

1. Kita klik Record Macro di ribbon developer
2. akan muncul windows sbb :
3. 
4. Kita isi namanya (usahakan informatif)
5. Kita klik text box di shortcut key
6. Kita pencet SHIFT+P jika ingin keyboard shorcut adalah Ctrl+Shift+P (atau tombol lainnya terserah anda)
7. Pastikan kita memilih Personal Macro Workbook
8. Isi description dengan penjelasan ttg macro ini
9. Klik OK
10. Kita akan kembali ke Excel
12. Klik stop recording di ribbon developer
13. 
14. Kita coba Edit macro tadi dengan edit langsung ke VBE (Visual Basic Editor)
15. Pencet Alt+F11
16. Masuk ke VBE
17. Cari di project explorer, personal.xlsb
18. Buka module
19. Cari ditiap module macro yang tadi kita rekam
20. Ini hasil rekaman tadi

21. Sub Paste_Transpose_Value2()
    '
    ' Paste_Transpose_Value2 Macro
    ' Paste Transpose Value cara 2
    '
    ' Keyboard Shortcut: Ctrl+Shift+P
    '
    
    
    End Sub

     

22. Kita coba cari di internet/ kita buat sendiri code untuk paste value transpose
23. ini hasilnya

24. Sub Paste_Transpose_Value2()
    '
    ' Paste_Transpose_Value2 Macro
    ' Paste Transpose Value cara 2
    '
    ' Keyboard Shortcut: Ctrl+Shift+P
    '
    
    '*******************************************************************
    '************** Start  Error Trap
    '*******************************************************************
        'tidak bisa ditampilkan jika bukan range
        If TypeName(Selection) <> "Range" Then
            MsgBox "sorry,hanya bisa dipaste di worksheet, pilih dulu salah satu cell untuk paste"
            
            Exit Sub
        End If
    
        'harus ada yang mau dicopy
        If Application.CutCopyMode = False Then
            MsgBox "Not in  Copy/Cut Mode" & vbCrLf & "dicopy dulu ANUNYA!!!"
            Exit Sub
        End If
    
    '*******************************************************************
    '**************End ERROR TRAP
    '*******************************************************************
    
    
        'baru kita paste value transpose
        Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
    
    
    End Sub
    

     

25. Sudah ada error trapnya jadi jika dipaste di Chart sheet atau di shape/picture nggak bisa, harus ada cell yang terpilih
26. 
27. Serta harus sudah mengCopy dulu, kalo belum akan ada peringatan
28. 
29. Selesai

Catatan :

• Code untuk paste yang lain bisa cari di addin e-Audit Utilities, module modPasteSpecials, itu source codenya FREE/Open Source
• Anda bisa browse Contoh2 VBA di eoditor contohnya untuk paste specials bisa ke http://eoditor.com/tips-tricks-vba-excel/paste-specials/