TUTORIAL VBA MACRO EXCEL Part 15: Cara copy banyak file excel ke dalam 1 file excel dalam 1x klik

TERBARU! Tutorial Belajar VBA Makro Excel dengan Mudah dan Cepat!
Di video ini kita akan belajar mengcopy banyak file atau dokumen excel di dalam sevuah folder ke sebuah file excel hanya dalam 1 kali klik. Kita akan menggabungkan fugsi looping do while, dir, dan workbook.open
Caranya sangat mudah dan sederhana.
Ini akan sangat membantu pekerjaan administrasi, apalagi kalau punya dokumen baru setiap hari atau minggunya untuk dipindahkan ke dalam sebuah master file. Kalau file yang mau dicopy hanya 2-3 tidak akan menjadi masalah besar. Tapi bayangkan kalau jumlah file yang mau digabungkan ada 500-1000 file, ini akan jadi masalah besar.
Tidak ada ruginya menginvestasikan waktu beberapa jam untuk membuat pekerjaan yang bisa memakan waktu berhari2 ataupun berminggu2 selesai dalam sekejap.

[@idabagusmadesanjaya7333]

Mantapss juragann … dapet ilmu banyak ini. Terima kasih bnyakk

[@tiolinanainggolan_aja]

sangat jelas sekali penjelasannya, saya masih newbie lgii belajar untuk mendalami ilmu visual basic/pemograman,, terimakasih videonya, ditunggu ilmu" selanjutnya mas

[@fifitfitriyani71]

Teruskan mas buat konten2 bermanfaat seperti ini. Panjang umur sehat sll mas 😇

[@ridhopebrimarta9060]

terimakasih mas

[@mohammadfauzi6550]

Terimakasih untuk ilmu kak :)

[@dekasatria7792]

Bang terima kasih sangat membantu

[@herpiansyah5561]

Ka bisa tutor ditambahkan bottom insertnya?

[@revitaseptianifajrin696]

kak, kenapa ya yang ke copas sama akunya engga semua file dalam folder itu, tapi cuma file paling atasnya aja :(

[@ahmadridwan6437]

Bg,saya punya 1 file excel dengan rename data1 yang sheet nya lebih dari 1,dan mau saya pindahkan ke file excel dengan renam data 2, skrip VBA ny gmn ya?

[@amardaengpagesa]

Kalau sumber file yang mau kita copy rangenya itu tidak tentu bagaimana? Cara buat dynamic seperti apa?

[@wawankusumayadi475]

Manteb bang...., bang saya mau nanya sy bekerja di perusahaan kayu, sy mau mengambil data dari sheet1 ke sheet2 dengan kriteria tertentu sehingga data yg saya ambil pada sheet1 pindah otomatis ke sheet2 dan di sheet1 berkurang karna telah terambil atau dipindahkan ke sheet2 bagai mana caranya bang menggunakan rumus macro

[@talenteddiy]

Saya akan buatkan tutorialnya ya

[@wawankusumayadi475]

@@talenteddiy
Terimakasih bang......👍👍👍👍👍👍👍

[@budipurwoko4556]

kalau mencari row terakhir yang berisi data gimana ya Bang?,
ceritanya saya mau copas data di 3 sheet berbeda menjadi 1 sheet dengan kepala tabel yang sama, nah saya belum nemu caranya gimana sintaks vba nya jadi kalau saya pencet button di sheet 1 data akan ke copy ke sheet "Gabungan", nah di sheet 2 saya pencet button lagi, nah data itu melanjutkan data dari sheet 1, begitu seterusnya. dan kalau di sheet 1 tidak berisi data dan sheet "Gabungan" kosong maka data yang di copaskan dari sheet 2 akan mengisi data teratas dibawah kepala tabel.
mohon pencerahannya Bang, terima kasih.

[@talenteddiy]

Sudah ada videonya di playlist, silakan di cek saja

[@teguhsusanto2098]

Kalau nama sheetnya acak..
Bukan default sheet1
Penulisannya giMN mas

[@triyonotriyono4844]

Bang kalau copy banyak file Dan di masing masing file banyak sheet gimana ya tolong buat kan Vidio nya,terima kasih

[@gusion5079]

Bang, saya ada gabungin byk sheet, tapi sheet2 yang lain ada spasi row.
Nah spasi yang ada dirow sheet yang lain, bawahnya tidak terocopas printahnya gmn? Bisa dibahas ga bang ?

[@talenteddiy]

Silakan hubungi WA atau email aja gan supaya masalahnya lebih jelas.

[@soniwidarto3476]

Kalo copy file dimintai password, gimana caranya

[@abdullatip6545]

Mas, saya sudah cob a ikuti langkah-langkah di atas, tapi kenapa hasilnya tidak muncul disheet tujuannya alias kosong, berikut kode yang saya buat :
Sub Impor()
Dim sumber As Workbook
Dim tujuan As Workbook
Dim alamat As String
Dim namafile As String
On Error Resume Next
With Application
.DisplayAlerts = False
.EnableEvents = False
.ScreenUpdating = False

End With
Set tujuan = ThisWorkbook
alamat = "D:\Nilai\"
namafile = Dir(alamat & "*.xlsx")
Do While namafile ""
Set sumber = Workbooks.Open(alamat & namafile)
sumber.Sheets("Sheet1").Range("C4:K23").Copy
tujuan.Sheets("Sheet1").Cells(1, Column.Count).End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteValues

Application.CutCopyMode = False
Application.ScreenUpdating = False

sumber.Close False
namafile = Dir

Loop

End Sub
apa yang salah ya?

[@talenteddiy]

Kalau lihat kodenya sih sepertinya ngk ada yg salah. Coba kirim file saja biar saya cek.

[@abdullatip6545]

@@talenteddiy baik mas

[@abdullatip6545]

ini file nya mas

[@abdullatip6545]

Maaf mas, sudah dicek datanya?salahnya dimana ya?

[@abdullatip6545]

@@talenteddiy gimana mas, ada solusi?