COPY PASTE MULTY FORMAT - EXCEL VBA

 Copy dari area range tertentu dan dipastekan di active cell

Ada beberapa mode paste yang dapat digunakan sesuai keperluannya yaitu diantaranya :

‘paste tema termasuk interior , jenis dan ukuran font

 Simpan .PasteSpecial Paste:=xlPasteAllUsingSourceTheme

‘paste transpose

Simpan .PasteSpecial Transpose:=True

 ‘paste tanpa rumus

Simpan .PasteSpecial Paste:=xlPasteValues

‘paste rumus

Simpan .PasteSpecial Paste:=xlPasteFormulas

‘paste value dan interior

Simpan .PasteSpecial Paste:=xlPasteAll

Contoh1 :

Sub test_copy1 ()

 Set Salin = Range("B2:B13")

 Set Simpan = ActiveCell

 Salin.Copy

Simpan .PasteSpecial Transpose:=True

end sub

Contoh2 :

Sub test_copy1 ()

 Set Salin = sheets("hasil"). Range("g3:g32")

 Set Simpan = ActiveCell

 Salin.Copy

Simpan.PasteSpecial Paste:=xlPasteValues

End Sub

Demikian selamat mencoba !!