Copy Paste Special - VBA EXCEL

Copy paste special Format cell

Copy Color special format adalah menggunakan Kode VBA maksud Copy paste semua bentuk format akan dicopy  baik interior , value dan format cellnya jadi akan menghasil copy yang sama persis dengan aslinya

Cara  juga hanya perlu membuat sebuah modul
Pastekan kode berikut :

Sub Copy_interior()
    Range("B2:B13").Select
    Application.CutCopyMode = False
    Selection.copy
    Range("E2").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
ThisWorkbook.Worksheets("Sheet1").Range("E:E").EntireColumn.AutoFit
        End Sub

Sub Reset()
With ActiveSheet
ActiveSheet.Columns("E:E").Select
Selection.Delete Shift:=xlToLeft
End With
End Sub

Sub CopyFormat_last_Row()

Sheets("Sheet1").Range("a2:d10").Copy

Sheets("Sheet2").Cells(Cells.Rows.Count, 1).End(xlUp).Offset(2, 0).PasteSpecial Paste:=xlPasteAllUsingSourceTheme

End Sub

Berikut pilihan jenis copy special :

PasteSpecial Paste:=xlPasteAllUsingSourceTheme

          Hasil copy sama persis dgn aslinya

PasteSpecial Transpose:=True

         Hasil copy transpose

PasteSpecial Paste:=xlPasteValues

         Hasil copy Value

PasteSpecial Paste:=xlPasteFormulas

        Hasil copy Rumusnya tetap

PasteSpecial Paste:=xlPasteAll

       Hasil copy sama persis dgn aslinya termasuk rumus tetap ada

Selesai
Mari rajin mencoba ,Semakin rajin mencoba maka semakin banyak pengalaman yang kita akan dapat
Semoga bermanfaat