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
