Macro Menggabungkan Banyak File Excel menjadi Satu Sheet Excel

excelkitakita.blogspot.com - Seringkali Dalam Bekerja dengan Microsoft excel mengharuskan kita untuk menggabungkan data dari beberapa File excel ke dalam satu file excel saja. Di bawah ini adalah salah satu cara untuk menggabungkan nya dengan menggunakan macro, akan sangat menghemat waktu, sehingga pekerjaan jadi effesien dan effektif.

langkah-langkah Menggabungkan banyak file excel menjadi Satu sheet Excel.

1. Misal kan kita memiliki 3 file excel yang akan di gabung.

Book1.xlsx

Book2.xlsx

Book3.xlsx

2. Buka File excel Baru tempat kita akan meletakan hasil penggabungan, siapkan 2 sheet , sheet yg pertama beri nama data_file_yg_akan_dicopy dan sheet kedua beri nama hasil di sheet data_file_yg_akan_dicopy tuliskan semua file yang akan di copy dan di mulai dari cell berapa, seperti gambar berikut. 

3. buka jendela VBE editor dengan cara tekan ALT + F11, Copy paste code berikut di module 1

Public namaFile As String
Public rangeygakandicopy As String
Public wb As Workbook
Public data As Workbook
Sub gabung()
Dim Hasil As String
Dim kolomasal As String
Dim daftarsheet As String
daftarsheet = "data_file_yg_akan_dicopy"
Sheets(daftarsheet).Select
Range("B2").Select
Set wb = ActiveWorkbook
Do While ActiveCell.Value <> ""
namaFile = ActiveCell.Offset(0, 1) & ActiveCell.Value
rangeygakandicopy = ActiveCell.Offset(0, 2) & ":" & ActiveCell.Offset(0, 3)
Hasil = ActiveCell.Offset(0, 4).Value
kolomasal = Mid(ActiveCell.Offset(0, 5), 2, 1)
Application.Workbooks.Open namaFile, UpdateLinks:=False, ReadOnly:=True
Set data = ActiveWorkbook
Range(rangeygakandicopy).Copy
wb.Activate
Sheets(Hasil).Select
row_paling_akhir = data_terakhir(kolomasal)
Cells(row_paling_akhir + 1, 1).Select
Selection.PasteSpecial xlPasteValues, xlPasteSpecialOperationNone
Application.CutCopyMode = False
data.Close False
Sheets(daftarsheet).Select
ActiveCell.Offset(1, 0).Select
Loop
Exit Sub
End Sub

Public Function data_terakhir(col)
Dim row_paling_akhir As Long
With ActiveSheet
row_paling_akhir = .Cells(.Rows.Count, col).End(xlUp).Row
End With
data_terakhir = row_paling_akhir
End Function

hasil nya sperti gambar berikut:

4. Tekan tombol run makro, data telah tergabung Jadi satu di sheet Hasil

Dari materi diatas saya terinspirasi untuk membuat program absensi karyawan sebuah perusahaan yang mempunyai gerai sekitar 50. jika dilakukan secara manual pastilah sangat menguras tenaga dan waktu. dan akan ada di dipostingan selanjutnya.

Absensi Karyawan Gerai

Tweet