Cara Copy Sheet ke File Baru dengan Kode VBA

Beberapa waktu lalu ada email masuk menanyakan bagaimana cara copy seluruh data yang ada pada sheet tertentu ke file baru dengan menggunakan VBA? Nah kali ini saya akan menjawab pertanyaan tersebut. Copy seluruh data yang ada dalam sheet tertentu sebaiknya menggunakan copy sheet saja kenapa? karena hal ini akan mempermudah dan menyesuaikan format yang ada dalam data yang di copy artinya jika sheet dicopy maka data maupun format yang ada dalam sheet tersebut tidak akan berubah berbeda dengan jika kita copy dengan cara biasa yaitu copy paste.

Ok, berikut langkahnya
Pertama Anda masuk ke VBA editor dengan cara menekan tombol ALT+F11 kemudian siapkan satu buah module dengan cara klik Insert kemudian pilih Module

Langkah berikutnya silakan tuliskan code VBA dibawah ini dalam Module1 yang telah disisipkan

Sub CopySheetkeFileBaru()
    Dim Baru As Workbook
    Set Baru = Workbooks.Add
    ThisWorkbook.Sheets("DATA").Copy Before:=Baru.Sheets(1)
    Baru.SaveAs "C:\test1.xlsx"
End Sub

Setelah selesai mengetikkan kode VBA tersebut langkah berikutnya kita akan membuat satu buah tombol dengan Commandbutton pada Sheet

Lihat juga bagaimana Cara Memindahkan dan Mengganti Nama Sheet

Berikut tutorial [11] Cara Copy Data dari Satu Sheet ke Sheet Lain

 
Silakan buat pada worksheet dan jika selesai maka akan muncul Asign Macro silakan pilih CopySheetkeFileBaru kemudian klik OK

Selesai.
Untuk menguji apakah code VBA telah berhasil atau belum silakan klik tombol tersebut dan lihat hasilnya jika benar sebuah file baru dengan nama Test1 dan sheet DATA telah berhasil di duplikasi atau dicopy.

Silakan pelajari Cara Memasukan Data pada Sheet yang Berbeda

Semoga bermanfaat dan selamat mencoba.

Tweet