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 <abiel_1...@yahoo.com> To: belajar-excel@yahoogroups.com 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