Supaya ndak perlu mengaktifkan sheet rekap detail, coba baris kode :
Sheets("rekap detail").Activate
Set SrcData = Sheets("rekap detail").Range("E2",
Range("E2").End(xlDown))
diubah menjadi :
Set SrcData = Sheets("rekap detail").Range("E2", Sheets("rekap detail").
Range("E2").End(xlDown))
Wassalam,
Kid.
2013/10/4 hendrik karnadi <[email protected]>
> **
>
>
> 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
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
