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
