√ Copy Worksheet Ke Workbook Gres Dan Close Melalui Userform Dengan Vba

Tutorial copy beberapa worksheet ke workbook gres kemudian simpan dengan nama yang telah disetting kemudian close atau tutup workbook gres tersebut ini merupakan tutorial yang berbeda dengan cara copy worksheet ke workbook gres dengan cara biasa. Kenapa aku katakan berbeda? ibarat yang telah kita ketahui bahwa untuk mengcopy sheet dengan cara biasa kita memakai kemudahan copy and move dengan klik kanan pada worksheet yang akan dicopy tersebut.

Tutorial ini tentunya akan mempermudah dan mempersingkat waktu pekerjaan Anda dikala bekerja dengan memakai Ms. Excel alasannya hanya satu kali klik saja beberapa worksheet yang dipilih akan dicopykan ke workbook baru. Hal ini gotong royong hampir sama dengan menciptakan backup data worksheet.

Silakan simak:
Cara Membuat Backup Worksheet dengan VBA

Kok dapat hanya dengan satu klik data beberapa sheet akan dicopykan secara otomatis dan menyimpannya juga tanpa mengetikkan nama filenya? Tentu saja alasannya hal ini sedikit kita gunakan coding VBA sebagai alat bantu untuk membuatnya.

Bagaimana Copy Worksheet ke Workbook Baru dan Close dengan VBA?

Langkah pertama tentunya Anda harus mempunyai data yang akan pada worksheet yang akan dicopy, terang bagaimana tidak bila tidak ada datanya apa yang dicopynya? Minimal Anda harus mempunyai beberapa worksheet contohnya aku disini mempunyai 5 buah worksheet dengan nama sebagai berikut :
Worksheet1
Worksheet2
Worksheet3
Worksheet4
Worksheet5

Lebih jelasnya silakan lihat gambar berikut ini

Lihatlah ada 5 buah worksheet pada gambar diatas dan kita akan copykan 3 buah worksheet yaitu Sheet1, Sheet3 dan Sheet4 secara array melalui UserForm.

Karena kita akan menciptakan tombol dan mengcopykan worksheet tersebut melalui UserForm maka kita harus menciptakan 1 buah UserForm melalui VBA Editor silakan tekan ALT+F11 kemudian sisipkan 1 buah UserForm dan tambahkan pula 1 buah CommandButton

Setelah dua buat object tersebut dibentuk langkah berikutnya kita menciptakan coding biar perintah tombol tersebut dapat berjalan sesuai dengan impian Anda dapat mengganti Caption dari CommandButton tersebut dengan "Copykan" Lalu bagaimana cara mengganti Caption tersebut silakan Anda lihat pada Properties yang berada di sebelah kiri VBA Editor kemudian silakan double clik CommandButton tersebut kemudian tuliskan coding berikut

Private Sub CommandButton1_Click()
'Mendefinisikan Worksheet
Dim LembarKerja As Worksheet
ThisWorkbook.Sheets(Array("Sheet1", "Sheet3", "Sheet4")).Copy
For Each LembarKerja In Worksheets
        Cells.Copy
        Cells.PasteSpecial xlPasteValues
        Range("A1").Select
Next LembarKerja
Application.DisplayAlerts = False

'Coding ini untuk lokasi penyimpanan nama file
With ActiveWorkbook
    .SaveAs ThisWorkbook.Path & "\Data Backup.xls", xlNormal
    'File hasil disimpan di ditutup
    .Close SaveChanges:=True
End With
'Pesan untuk menunjukkan isu penyimpanan berhasil
MsgBox "Data Berhasil Di Copy, Lokasi penyimpanan sama", 64, "Informasi"
Application.CutCopyMode = False
Application.DisplayAlerts = True
And Sub

Jika sudah final mengetiikan coding VBA diatas silakan Anda simpan file tersebut dan jangan lupa pilih type penyimpanan dengan menentukan Excel Macro-Enable Workbook

Setelah itu silakan coba Run atau jalankan dengan menekan ttombol F5 dan silakan Anda klik tombol Copykan maka secara otomatis akan muncul pesan " Data Berhasil Di Copy, Lokasi penyimpanan sama" dan lihat alhasil pada daerah penyimpanan lokasi file tersebut disimpan

Dan alhasil file Backup akan berdampingan dengan file tersebut

Perhatikan gambar yang ditunjukan oleh anak panah warna merah tersebut dan berhasil silakan buka file Data Backup maka alhasil yaitu Sheet1, Sheet3 dan Sheet4 akan dicopy.

Demikian tutorial singkat ini semoga bermanfaat dan selamat mencoba.

Jangan lupa Baca:
Dasar-Dasar Copy Paste Excel dengan VBA

Sumber http://www.excel-id.com/