Rekap Multy file

                Rekap Multy file

Kadang Kita membutuhkan data yang disimpan pada sebuah file d idokumen atau di sebuah folder yang berbeda namun kita ingin data yang dimaksud dapat terkumpul menjadi satu dalam bnentuk rekap halaman  di sheet active

Caranya cukup kita membuat sebuah modul dan pastekan kode berikut yang selanjutnya akan dipanggil dengan  sebuah tombol
Kode lengkapnya adalah :

Sub kumpulkan()
FileTerpilih = Application.GetOpenFilename _
("XLSX File (*.xlsx),*.xlsx", Title:="Open file", MultiSelect:=True)
If VarType(FileTerpilih) = vbBoolean Then
Exit Sub
End If
NamaFileUtama = ActiveWorkbook.Name
JumlahFile = UBound(FileTerpilih)
Application.DisplayAlerts = False
For i = 1 To JumlahFile
Workbooks.Open FileTerpilih(i)
With ActiveWorkbook.Worksheets("data1")
BarisTerakhirFilePilihan = .Cells(.Rows.Count, 1).End(xlUp).Row
BarisTerakhirFileUtama = Workbooks(NamaFileUtama).Worksheets("Sheet1") _
.Cells(Workbooks(NamaFileUtama).Worksheets("sheet1").Rows.Count, 1).End(xlUp).Row
   .Range("A6:M" & BarisTerakhirFilePilihan).Copy _
Destination:=Workbooks(NamaFileUtama).Worksheets("Sheet1").Range("A" & BarisTerakhirFileUtama + 1)
        End With
         ActiveWorkbook.Close
Next i
Application.DisplayAlerts = True
End Sub

Perlu diketahui :
Mengacu pada kode diatas syarat utama adalah active adalah
Sheet1 sebagai tempat penyimpanan atau dikumpulkan kemudian 
sheet yang akan di impor adalah sheet yang bernama  DATA1
Semua sheets disetiap file dimana saja atau di folder mana pun

Untuk reset atau akan mengulang kembali pastekan kode ini juga pada sebuah modul :

Sub RESET()
Sheets("Sheet1").Range("a3:m1000").Clear
End Sub

Selesai
Semoga bermanfaat
Sampel file dapat di unduh pada link dibawah ini



 Rekap Multy File