Cara memindahkan data antar file Excel menggunakan Macro

Mengcopy data secara otomatis akan memudahkan anda, ketimbang harus menekan tombol ctrl + c secara terus-terusan setiap ingin menyalin data. Dengan memanfaatkan fitur Ms. Excel, VBA Macro, anda dapat mempermudah pekerjaan tersebut. Dengan hanya membuat satu macro berisikan perintah-perintah tertentu, anda dapat membuat sebuah program pengcopy otomatis.

Seorang netizen bernama Yohanes, mengeluhkan masalah program excel-nya bahwa dia ingin menyalin data secara otomatis menggunakan macro excel. Kemudian saya berinisiatif untuk membuat postingan ini untuk membantu beliau memecahkan masalahnya. Program berikut adalah tentang bagaimana cara menyalin data secara otomatis menggunakan VBA Macro Excel.

Langkah #1: Aktifkan Tab Developer

Jika anda masih baru dalam menggunakan macro, dan tidak tahu cara mengaktifkan menu developer pada excel, silakan lihat postingan ini:

• Cara Mengaktifkan Menu Developer pada Excel

Langkah #2: Membuat Data

Anda dapat membuat rumpunan data yang dibuat seperti tabel. Untuk lebih jelasnya, anda bisa meniru contoh data milik Mas Yohanes dibawah ini:

Anda dapat meletakannya pada Sheet1:

Sheet 1

Ini adalah hasil salinan yang dapat anda letakkan pada Sheet2:

Sheet 2

Langkah #3: Membuka Code Editor

Untuk membuka code editor pada excel, silakan buka menu developer anda, kemudian pilih view code.Jika kode editor sudah muncul, silakan membuat module baru kemudian tambahkan kode berikut didalamnya:

Sub Copy()
' Copy Macro
    Sheets(1).Select
    Range("A2").Offset(1, 0).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets(2).Select
    If Range("A1").Offset(1, 0).Value = "" Then
        Range("A1").Offset(1, 0).Select
    Else
        Range("A1").End(xlDown).Offset(1, 0).Select
    End If
        ActiveSheet.Paste
    Sheets(1).Select
    Range("A1048576").ClearContents
    MsgBox "Penyalinan berhasil!", vbInformation, "Informasi"
End Sub 

Langkah #4: Membuat tombol

Untuk membuat tombol, anda bisa memanfaatkan shapes(Insert > Shapes) yang kemudian disulap menjadi sebuah tombol, lengkap dengan caption-nya. Setelah itu klik kanan pada tombol tersebut, dan klik Assign Macro. Di dalam daftar macro, pilih macro bernama Copy, kemudian klik OK.

Hasil akhirnya adalah sebagai berikut:

Hasil akhir

Selesai. Silakan anda coba dan lihat hasilnya. Jika terdapat kesalahan atau anda mengharapkan improvisasi terhadap program diatas, silakan sampaikan lewat kolom komentar, dan saya akan berusaha memperbaikinya.

Apabila anda memiliki masalah berkenaan dengan program excel anda, jangan sungkan untuk mengemail saya di dan akan saya buatkan tutorial-nya secara cuma-cuma.

File asli milik: Yohanes Sefrianto Laga Keraf
Dimodifikasi oleh Alvian Casablancas

Download file lengkapnya (16kb)

Terimakasih sudah berkunjung di alvian-cs.blogspot.com, silakan membaca artikel yang lainnya lagi dan jangan lupa berkomentar cerdas dengan tidak membuat SPAM :)

Update terbaru pada 18 Oktober 2019 pukul 10:57 oleh Annelis Putri .

Saat mengolah data di Microsoft Excel, fitur Move dan Copy Sheet adalah salah satu cara mudah untuk memindah atau menyalin seluruh data pada sebuah sheet ke lokasi lain. Sebagai alternatif, Anda dapat menggunakan VBA (Visual Basic for Applications) untuk membantu proses ini secara otomatis.

Artikel ini akan memberi tahu Anda cara menyalin data ke lembar kerja (workbook) lain pada Microsoft Excel.

• Memindah atau Menyalin Data di Workbook yang Sama
• Memindah atau menyalin Data di Workbook yang Berbeda
• Memindah atau Menyalin Data Menggunakan VBA

Memindah atau Menyalin Data di Workbook yang Sama

Langkah pertama adalah memilih lembar yang ingin dipindah atau disalin. Untuk memilih beberapa lembar, cukup klik pada lembar pertama, dan kemudian tahan tombol Control saat mengklik lembar lain yang ingin disalin.

Pada tab toolbar Home atas, cari bagian Cells, dan klik Format. Di bawah Organize Sheets, klik Move or Copy Sheet.

Sebuah kotak dialog akan terbuka. Pada daftar Before, Anda dapat mengklik lembar before yang akan ditempati lembar baru, atau Anda dapat mengklik move to end untuk menambahkan lembar tersebut pada bagian akhir workbook Anda.

Untuk menyalin lembar, pilih Create a copy pada kotak dialog yang muncul setelah mengklik perintah Move or Copy.

Memindah atau menyalin Data di Workbook yang Berbeda

Jika Anda ingin memindah atau menyalin sheet Excel ke workbook lain, Anda harus memastikan workbook tujuan memiliki versi Microsoft Excel yang sama.

Pilih lembar yang ingin Anda pindah atau salin. Berikutnya, pergi ke tab Home pada toolbar dan klik Cells > Format. Di bawah Organize Sheets, klik Move or Copy Sheet.

Sebuah kotak dialog akan terbuka. Pada daftar To book, pilih lembar yang akan disalin ke workbook baru Anda.

Pada bagian opsi Before , Anda dapat mengklik before untuk menempatkan lembar sebelum lembar tertentu, atau klik move to end untuk menempatkan lembar pada akhir workbook Anda.

Memindah atau Menyalin Data Menggunakan VBA

Sub CopyOpenItems() 
   ' 
   ' CopyOpenItems Macro 
   ' Copy open items to sheet. 
   ' 
   ' Keyboard Shortcut: Ctrl+Shift+O 
   ' 
   Dim wbTarget            As Workbook 'workbook di mana data akan ditempatkan 
   Dim wbThis              As Workbook 'workbook asal data yang akan disalin 
   Dim strName             As String   'nama sumber sheet/
'set to the current active workbook (the source book) 
   Set wbThis = ActiveWorkbook 
'get the active sheetname of the book 
   strName = ActiveSheet.Name 
'open a workbook that has same name as the sheet name 
   Set wbTarget = Workbooks.Open("C:\filepath\" & strName & ".xlsx") 
'select cell A1 on the target book 
   wbTarget.Range("A1").Select 
'clear existing values form target book 
   wbTarget.Range("A1:M51").ClearContents 
'activate the source book 
   wbThis.Activate 
'clear any thing on clipboard to maximize available memory 
   Application.CutCopyMode = False 
'copy the range from source book 
   wbThis.Range("A12:M62").Copy 
'paste the data on the target book 
   wbTarget.Range("A1").PasteSpecial 
'clear any thing on clipboard to maximize available memory 
   Application.CutCopyMode = False 
'save the target book 
   wbTarget.Save 
'close the workbook 
   wbTarget.Close 
'activate the source book again 
   wbThis.Activate 
'clear memory 
   Set wbTarget = Nothing 
   Set wbThis = Nothing 
End Sub

Lihat Juga

• Cara mengcopy data otomatis menggunakan vba macro excel
• Cara copy sheet excel ke file lain dengan macro - Jawaban terbaik
• Cara mengambil data excel dari file lain dengan macro - Jawaban terbaik
• Cara mengcopy data excel ke sheet lain - How-To - Software/Perangkat Lunak
• Pencarian data dengan macro di excel - How-To - Software/Perangkat Lunak
• Cara membandingkan data kembar di sheet excel - How-To - Software/Perangkat Lunak
• Transmisi data digital - Artikel
• Cara mengcopy link youtube - How-To - Internet

Dokumen ini berjudul « Menyalin Data ke Workbook Lain di Excel », dipublikasikan oleh pihak CCM di bawah lisensi Creative Commons. Anda dapat menyalin, menggunakan, dan memodifikasi konten halaman ini berdasarkan syarat dan ketentuan yang telah ditetapkan oleh lisensi ini. Mohon tetap mencantumkan nama CCM (id.ccm.net) pada publikasi Anda.