Diskusi tentang Excel

Cara Cepat Menggabungkan Data dari 2 Sheet atau Lebih dengan Macro hanya 1 Kali Klik



Excel-id.com | Masih tetap semangat belajar Excel? jika 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 seperti yang telah biasa dilakukan oleh para pengguna Excel biasanya dengan menggunakan copy kemudian paste. Kali ini akan saya buat berbeda ini akan mempercepat pengolahan data pada Ms. Excel Anda.

Ini dia script VBA yang dapat 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 kemudian pastekan pada Module1. Untuk menyisipkan module sudah pernah saya bahas sebelumnya dan lebih jelasnya hasil paste script diatas tampak seperti gambar berikut



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



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



Jika sudah selesai maka akan tampil Assingn Macro silakan pilih atau klik Macro name GabungkanData kemudian klik OK




Untuk menguji coba hasil script VBA macro excel ini silakan klik tombol yang telah dibuat 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 dibuat pada sheet baru. Semoga cara cepat menggabungkan data dari 2 sheet atau lebih ini bermanfaat.

Related

Trik Excel 1950576379740149411

Post a Comment

  1. kok terjadi error di lbound ya ...bingung,maklum masih baru belajar...saya sangat butuh ini,trmksh

    ReplyDelete
  2. Replies
    1. Error sebelah mana? silakan barangkali ada yang tidak tertulis coding nya

      Delete
  3. Hasil yang ditampilkan di New Sheet berbentuk Gambar. bukan berbentuk hasil excel seperti di sheet 1 dan Sheet 2. Tolong dibantu.

    ReplyDelete
  4. excelku tdk ada 'developer'nya???
    excel 2007

    ReplyDelete
    Replies
    1. Dari icon Office Button pilih Excel Option lalu ceklist Developer dan klok OK. Untuk Office button ada di ujung kiri paling atas Ms. Excel

      Delete
  5. kok hasil bentuk gambar y Pak

    ReplyDelete
  6. hasilnya gambar ya sesuai apa yg copy di module, tidak seperti contoh yang diberikan

    ReplyDelete

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item