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
