Beberapa waktu kemudian ada email masuk menanyakan bagaimana cara copy seluruh data yang ada pada sheet tertentu ke file gres dengan memakai VBA? Nah kali ini aku akan menjawab pertanyaan tersebut. Copy seluruh data yang ada dalam sheet tertentu sebaiknya memakai copy sheet saja kenapa? alasannya yaitu hal ini akan mempermudah dan menyesuaikan format yang ada dalam data yang di copy artinya kalau sheet dicopy maka data maupun format yang ada dalam sheet tersebut tidak akan berubah berbeda dengan kalau 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 final mengetikkan instruksi VBA tersebut langkah berikutnya kita akan menciptakan 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 kalau final 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 balasannya kalau benar sebuah file gres dengan nama Test1 dan sheet DATA telah berhasil di duplikasi atau dicopy.
Silakan pelajari Cara Memasukan Data pada Sheet yang BerbedaSemoga bermanfaat dan selamat mencoba.
Sumber http://www.excel-id.com/