Sama2 pak, terima kasih juga kepada Pak De Premor yang telah membuat code asinya. Coba juga ramuan Pak De dalam email terakhir yang bisa langsung copy sheet sebagai workbook (sdh saya coba) dan langsung kirim email (yang ini silakan anda coba dan bagi2 hasil tesnya).
Salam, HK ________________________________ From: Ahmad Habibillah <[email protected]> To: "[email protected]" <[email protected]> Sent: Friday, 4 October 2013, 16:44 Subject: Bls: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet Dear Bro hendrik..... Mantaaaaaaaapppppp, Its Work...... tengkyuuuuuu so much... Best Regards, Ahmad H ________________________________ Dari: hendrik karnadi <[email protected]> Kepada: "[email protected]" <[email protected]> Dikirim: Jumat, 4 Oktober 2013 15:53 Judul: Re: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet Jangan putus asa dulu. Coba copas lagi macro ini pada VBE Sheet (Module1). Sub Masukin() Dim SrcData As Range, Rng As Range Dim cKode As New Collection Dim LRow As Long Application.ScreenUpdating = False Sheets("rekap detail").Activate Set SrcData = Sheets("rekap detail").Range("E2", Range("E2").End(xlDown)) On Error Resume Next For Each Rng In SrcData cKode.Add Trim(Rng), CStr(Rng) Next For LRow = 1 To cKode.Count Set Rng = SrcData.CurrentRegion.Offset(1, 0).Resize(SrcData.Rows.Count, 6) SrcData.CurrentRegion.AutoFilter Field:=5, Criteria1:=cKode.Item(LRow) Rng.SpecialCells(xlCellTypeVisible).Copy Sheets(cKode.Item(LRow)).Range("A2") SrcData.CurrentRegion.AutoFilter Next Application.ScreenUpdating = True End Sub Mengapa timbul run time error ? Waktu menjalankan macro, anda tidak berada pada Sheet "rekap detail". Jika anda mau menjalankan macro tsb dari Sheet "rekap" (setelah macronya dicopas di VBE Sheet) maka perlu ditambahkan instruksi warna merah, artinya Sheet "rekap detail" harus diaktifkan dulu. Salam, HK ________________________________ From: Ahmad Habibillah <[email protected]> To: [email protected] Sent: Friday, 4 October 2013, 14:54 Subject: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment] Dear bro Hendrik, sekali lagi mohon bantuannya ya bro, mohon dimaklumi ye bro... namanya newbe and juga pengen tau bisa gimana caranya. kalau itu bisa terealisasi efisiensi waktunya lumayan bro, kan bisa buat ngerjain yang lain.. hehehe terlampir format data yang biasa digunakan. many thanks Ahmad H ________________________________ Dari: hendrik karnadi <[email protected]> Kepada: "[email protected]" <[email protected]> Dikirim: Jumat, 4 Oktober 2013 14:33 Judul: Re: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet Saya sdh tes dan filenya masih disimpan. Coba kirim file yang ada "run time errornya" karena dengan mengetahui/memperbaiki kesalahan tersebut kita dapat semakin memahami dan menikmati macro. JIka anda mau email satu persatu (balasan email anda kepada Miss Jan) kenapa ga langung disave sebagai workbook (pada Dir yang sama) per nama PT ? Salam, HK ________________________________ From: Ahmad Habibillah <[email protected]> To: [email protected] Sent: Friday, 4 October 2013, 14:02 Subject: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet Dear Bro Hendrik, kok nggak bisa ya.. "run time error" maaf newbe nih... hihihihiihi mohon bantuannya lagi ya bro... many thanks, cheers Ahmad H ________________________________ Dari: hendrik karnadi <[email protected]> Kepada: "[email protected]" <[email protected]> Dikirim: Jumat, 4 Oktober 2013 12:36 Judul: Re: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet Pak De, boleh pinjam codenya ya ? Coba copas macro Pak De Premor di bawah ini pada Sheet VBA Module1 (diambil dari kasus filtering sebelumnya), Sub Masukin() Dim SrcData As Range, Rng As Range Dim cKode As New Collection Dim LRow As Long Application.ScreenUpdating = False Set SrcData = Sheets("rekap detail").Range("E2", Range("E2").End(xlDown)) On Error Resume Next For Each Rng In SrcData cKode.Add Trim(Rng), CStr(Rng) Next For LRow = 1 To cKode.Count Set Rng = SrcData.CurrentRegion.Offset(1, 0).Resize(SrcData.Rows.Count, 6) SrcData.CurrentRegion.AutoFilter Field:=5, Criteria1:=cKode.Item(LRow) Rng.SpecialCells(xlCellTypeVisible).Copy Sheets(cKode.Item(LRow)).Range("A2") SrcData.CurrentRegion.AutoFilter Next Application.ScreenUpdating = True End Sub Warna merah adalah bagian yang disesuaikan. Salam, HK ________________________________ From: Ahmad Habibillah <[email protected]> To: [email protected] Sent: Friday, 4 October 2013, 10:57 Subject: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment] Selamat Pagi, mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami, dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro. dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya. berikut saya lampirkan file yang dimaksud. atas perhatian dan bantuannya terima kasih cheers, Ahmad H
