Diskusi tentang Excel

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.

Related

Macro Excel VBA 1812216036815086722

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item