VBA Macro Copy Data ke Workbooks Lain Berdasarkan Kriteria

[@gemugemunoooo]

Bang dah saya subscribe... Saya jarang2 nih subscribe kl ga bner2 bermanfaat.. Bikin konten macro yg banyak bang, berasa gampang bgt pas dijelasin disini.. Terimakasih banyak ilmunya bang, salam kenal

[@srmchannel2466]

Kualitas... sukses terus boskuh

[@mangaliem6585]

mantap bang.. 👍

[@QdotEXcel]

makasih bang...🙏

[@kejatikaltim-b9f]

mas, klo mau copy paste nilai/value aja, gimana susunan perintahnya?
tolong ya mas. saya ada project. Saya baru belajar macro soalnya

[@muharomhabib7380]

Mas, help untuk bagaimana macro VBA untuk copy data dari application lain yang tampil di screen monitor misal dari aplikasi notepad tapi spesifik dia ada di baris kedua dan di charakter ke 123 di baris keduanya. terima kasih

[@sufianggoro4161]

joss.. kang.
kalau dicopy paste ke sheet lainya, dalam workbook yg sama, seperti apa codingnya.?

[@syakiracirebon]

kalo copynya pakai paste value bagaimana suhu terimakasih

[@setyawibowo1328]

bang, bleh ga ditambahkan dengan filter tau search beberapa data yang dibutuhkan Dari beberapa workbook dan di import ke excel yang dimaksud, Contoh berdasarkan tahun, berdasarkan paket, berdasarkan pekerjaan dan dari workbook1,workbook2 dan dan workbook3

[@MadrasahKu-vz5cn]

bang cara buat modul kelulusan gmna bang.........contoh kasus DATABASE (Sheet1) siswa yang Lulus akan di Pindahkan ke Sheet 2 denga 1 Klik.....tolong buatkan Bang Please

[@DaniSetiawan-ju5pn]

Selamat malam bang , mau tanya cara import file excel di macro tapi nanti datanya buat stock barang yang dimana nanti ketika ada data yang sama stocknya akan bertambah

[@syakiracirebon]

kalo copy nya pilih ke range tertentu gmn

[@molanikasuhartono3713]

Misal step pertama ditambahin import data.. terus dr data yg diimport di copy sesuai kriteria/ format yg sudah ditentukan gimana yaa?

[@rakaderizal6136]

bang itu kan pastenya di cell A1, kalau pastenya pengen ngelanjut cell nya gimana bang ?

[@winnetco_id3402]

setelah saya coba berhasil tapi rumusnya ikut,,kira kira apa yang perlu di tambah jika hasil yang di paste berupa value dari data yang di copy??

[@koetasukaru]

kalo mau copy data dari banyak workbooks dengan format yang sama ke satu workbook, biar datanya tersusun rapih satu baris gimana tuh biar gak perlu buka satu-satu dan susun ulang?

[@gustiadi8644]

Bang misalnya kita cuma mau copykan data tertentu misalnya di kolom C hanya mau ambil jenis kelamin L itu gimana ya

[@nactgaming]

bang mau tanya,semoga fast respon.
saya mau belajar private makro bisa gak? karna saya mau buat makro VBA untuk membuat data base di excel dengan cara menarik data dari setiap workbooksnya.
apakah bisa??

[@SITIzubaidahMDtahir]

Kenapa dah tekan copy tapi x run ya?

[@hefnyddarken8574]

bang mau nanya..
kalau mau ambil/copy data range tertentu , tapi ke new workbook.. bagaimana bang contoh script ny? terimakasih

[@nanajaem-z1f]

Mas saya mau nanya, untuk yg pertanyaan mas d atas apakah sudah ada jawabnnya?
Soalny saya mau bertanya ttg itu juga.
Klo misal ada, boleh d share lah mas?

[@hefnyddarken8574]

@@nanajaem-z1f sudah nemu, kemarin nanya di forum excel.. ada di kasih sampel

[@hefnyddarken8574]

@@nanajaem-z1f ditambah modifikasi sedikit, jadi sesuai kebutuhan.. dan lebih cepat

[@nanajaem-z1f]

@@hefnyddarken8574 boleh liat source nya mas?

[@nanajaem-z1f]

@@hefnyddarken8574 saya nyoba, tpi saat d workbook baru filenya kosong mas

[@sicudut3854]

Udah coba berkali2 tapi gagal

[@MsFayyadh]

Siang bang....
Bang... Mohon pencerahannya... Sy coba utk copas dlm satu workbook tp Ndak bs...
Mohon koreksi bang.. 😁🙏.
Sub Button6_Click()
Dim wsCopyData As Worksheet
Dim wsPasteData As Worksheet
Dim CpyIrow As Long
Dim RANGE1, RANGE2, RANGE3, RANGE4, RANGE5 As Range
Set wsCopyData = Workbooks("buku1.xlsm")("SHEET11")
Set wsPasteData = Workbooks("buku1.xlsm").Worksheets("SHEET1")
CpyIrow = wsCopyData.Cells(wsCopyData.Rows.Count, 1).End(xlUp).Row
Set RANGE1 = wsCopyData.Cells.Range("C5:C" & CpyIrow)
Set RANGE2 = wsCopyData.Cells.Range("y5:y" & CpyIrow)
Set RANGE3 = wsCopyData.Cells.Range("AC5:AC" & CpyIrow)
Set RANGE4 = wsCopyData.Cells.Range("b5:b" & CpyIrow)
Set RANGE5 = wsCopyData.Cells.Range("AD5:AD" & CpyIrow)
Set Multirange = Union(RANGE1, RANGE2, RANGE3, RANGE4, RANGE5)
Multirange.Copy wsPasteData.Range("b13")
End Sub