Gabung multiple workbook dalam 1 worksheet

[henri.hutagalung]

Hello para suhu sekalian,

Mohon bantuannya untuk solusi untuk menggabungkan data dari beberapa workbook ke dalam 1 worksheet baru.

Saya sering bekerja dengan puluhan workbook dengan format dan jumlah kolom yang sama tetapi jumlah raw ber variasi.

Contoh file MFR-A.xlsx, MFR-B.xlsx, MFR-C.xlsx datanya di gabung jadi satu di HASIL GABUNGAN.xlsx

Terima kasih untuk bantuannya suhu

[hendrik karnadi]

Hai Henri,

Terlampir adalah file yang telah saya isi Macro hasil modifikasi dari Internet.

Sebelum menjalankan, macronya harus diaktifkan dulu dan file2 yang akan digabung dimasukkan ke dalam satu folder, mis. "Gabung"

Jalankan Macronya, kemudian pilih folder "Gabung" tersebut dan klik OK.

Salam,

HK

--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to milis-belajar-e...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/dc1cad61-f026-4205-b511-a213bbcf8f19n%40googlegroups.com.

[hendrik karnadi]

Jika Workbooks yang mau digabung terdiri dari satu atau bbrp Worksheets, maka tambahkan Code berwarna merah pada bagian ini:

       For Each wks In src.Worksheets

        wks.Select

        Set Tble = wks.Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell))

        Tble.Copy

        dst.ActiveSheet.Cells(mynextrow, 1).PasteSpecial Paste:=xlPasteAllUsingSourceTheme

        mynextrow = dst.ActiveSheet.UsedRange.Rows.Count + 1

    Next wks

Semoga bermanfaat.

Salam,

HK

To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/280274976.149169.1616654441678%40mail.yahoo.com.

[Mr. Kid]

Hai Henri,

Kalau pakai Power Query, bisa seperti yang ada disini.

--