Cara Copy semua Data Sheet Excel Ke File Excel Lain Otomatis dengan Coding VBA Excel

Konten [Tampil]

File Copy Data di Semua Sheet Penjualan ke Workbook Lain

Bagaimana cara untuk mengkopikan seluruh sheet yang ada di file Excel ke dalam workbook lain hanya dengan menggunakan satu klik saja.  Contohnya Saya memiliki Data Penjualan.xlsm dan juga Hasil Rekap ke XLSX.Di dalam file Workbook Data Penjualan.xlsm terdapat 5 sheet dan seluruh data yang terdapat pada 5 sheet tersebut akan saya copykan ke dalam file Hasil Rekap. xlsx.

Memulai Copy Data di Semua Sheet

Pada Worksheet ("DATA") terdapat Tabel Set Copy Data lihat gambar dibawah ini :

untuk memulai Copy isikan terlebih dahulu pada kolom Copy File ke dan Start Copy Sheet. Copy File Ke isikan Nama File Tujuan Copy pada cell (“G4”). Kemudian isi start copy Sheet pada cell (“G5”) dengan anggka 2 yang berarti Mulai dari Sheet(2) yaitu Sheet (JANUARI). Maka sheet dari urut 2 sampai urut akhir akan tercopy ke dalam file Hasil Rekap .xlsx

Langkah-Langkah Membuat Copy Seluruh Sheet

Oke Langsung saja langkah-langkah mengcopykan data di semua sheet ke dalam satu workbook seperti diatas silahkan Download file (ling terdapat di bawah Artikel). Untuk melihat codingnya atau membuat codingnya silahkan ikuti Langkahberikut :

• Download File Berikut : Link Download
• Buka File Data Penjualan.xlsm
• Masuk ke Menu Tab Developer Kemudian Pilih Visual Basic
• Selanjutnya membuat project dalam sebuah. Caranya pilih tanda Panah ke bawah Pada Menu TooBar dan pilih Modul  

PaPastekan Script Koding dibawah ini ke dalam Modul :

Sub CopySemuaSheet() Dim PathFile As String Dim File As String Dim wsCopy As Worksheet Dim wsPaste As Worksheet Dim UrutPertama As Integer Dim NO As Integer   'Membuat No urutan Sheet Set wsdata = Worksheets("DATA") UrutPertama = wsdata.Range("G5").Value urutAkhir = ThisWorkbook.Sheets.Count 'MENGGUNAKAN FUNGSI PERULANGAN UNTUK COPY DATA BERDASARKAN URUTAN SHET For i = UrutPertama To urutAkhir 'Membuat tujuan  file dari data yang di copy PathFile = ThisWorkbook.Path & "\" & wsdata.Range("G4") & ".xlsx" File = Dir(PathFile) 'Menggunakan fungsi if untuk copy paste data If File = "" Then MsgBox "Maaf File Tujuan tidak ditemukan" Exit Sub Else Workbooks.Open PathFile 'membuat deklarasi variable objek worksheet untuk copy dan paste NO = ThisWorkbook.Worksheets("DATA").Range("G5").Value Set wsCopy = ThisWorkbook.Sheets(NO) Set wsPaste = ActiveWorkbook.ActiveSheet 'membuat variable untuk copy paste data BarisAkhir = Cells(Rows.Count, "A").End(xlUp).Offset(1).Row wsCopy.Range("A3:e3" & BarisAkhir).Copy wsPaste.Range("A" & BarisAkhir).PasteSpecial Paste:=xlPasteValues wsdata.Range("G5") = wsdata.Range("G5") + 1 ActiveWorkbook.Close saveChanges = False End If Next i MsgBox "sudah berhasil mengirim semua data Sheet" End Sub

• Setelah Codingnya di pastekan ke dalam Modul langkah selanjutanya Membuat Jalankan Prosedur menggunakan Shape Button Start Copy Data Caranya Klik Kanan Pada Shape Button Pilih Assign Macro

• Muncul Jendela Assign Macro Pilih Prosedure CopySemuSheet dan Pilih OK

Maka Prosedur sudah siap digunakan, demikian cara Copy Semua Sheet ke Workbook lain dengan menggunakan VBA. terima Kasih

Download File Copy Semua Sheet Ke Workbook Lain

Silahkan download File Lengkap Dengan Codingnya berikut Download File dan Coding

Untuk Lebih Jelasnya silahkan simak Video dibawah ini :