√ Cara Cepat Menggabungkan Data Dari 2 Sheet Atau Lebih Dengan Macro Hanya 1 Kali Klik

Excel-id.com | Masih tetap semangat berguru Excel? kalau Ya mari kita lanjutkan dengan tutorial bagaimana cara cepat menggabungkan data dari dua sheet yang berbeda atau bahkan lebih dari dua sheet. Untuk menggabungkan data menyerupai yang telah biasa dilakukan oleh para pengguna Excel biasanya dengan memakai copy lalu paste. Kali ini akan saya buat berbeda ini akan mempercepat pengolahan data pada Ms. Excel Anda.

Ini ia script VBA yang sanggup saya berikan untuk Anda

Option Explicit
Sub GabungkanData()

Dim myWksNames As Variant
Dim iCtr As Long
Dim newWks As Worksheet
Dim NextRow As Long

myWksNames = Array("sheet1", "sheet2")

Set newWks = Worksheets.Add

NextRow = 1

With ActiveWorkbook
For iCtr = LBound(myWksNames) To UBound(myWksNames)
.Worksheets(myWksNames(iCtr)).UsedRange.Copy
With newWks
 Application.Goto .Cells(NextRow, "A")
.Pictures.Paste Link:=True
NextRow = .Pictures(.Pictures.Count).BottomRightCell.Row + 1
End With
Next iCtr
End With
End Sub

Silakan copykan script VBA diatas lalu pastekan pada Module1. Untuk menyisipkan module sudah pernah saya bahas sebelumnya dan lebih jelasnya hasil paste script diatas tampak menyerupai gambar berikut



Setelah sript VBA Anda paste kan silakan buat dua buah data pada sheet 1 dan data pada sheet 2



Setelah dibentuk data pada masing-masing sheet langkah berikutnya silakan buat sebuah CommandButton pada Sheet1



Jika sudah akibat maka akan tampil Assingn Macro silakan pilih atau klik Macro name GabungkanData lalu klik OK




Untuk menguji coba hasil script VBA macro excel ini silakan klik tombol yang telah dibentuk dan perhatikan apa yang terjadi

Selesai, Data yang ada di sheet1 dan data yang ada di sheet2 telah berhasil digabungkan hanya dengan satu kali klik dan data ini akan dibentuk pada sheet baru. Semoga cara cepat menggabungkan data dari 2 sheet atau lebih ini bermanfaat.

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