Re: ]] XL-mania [[ Macro untuk ubah bentuk Report ke beberapa sheet

 

berikut ini makro yg diperingkas, dengan membuang hal-hal yg tidak terlalu perlu.
loop sebanyak Kolom Bulan Unique tidak harus dua kali seperti makro sebelumnya

Sub Gleggs(Sumber As Range)
   '--- siti Vi / 9 May 2010 ---
   Dim n As Integer, c As Integer
   Dim NewSht As Worksheet, FirstMonth As String
   Dim Xel As Range, Kolom As Range, Prodak() As Range
   Dim HeadProRng As Range, HeadBlnRng As Range
   Set Kolom = Sumber.Offset(1, 0)
   Set Kolom = Kolom.Resize(Kolom.Rows.Count - 1, 1)
   Set HeadProRng = Sumber(1, 2).Resize(1, Sumber.Columns.Count - 1)
   Set HeadBlnRng = HeadProRng.Offset(1, 0)
   FirstMonth = HeadBlnRng(1, 1).Value
   For Each Xel In HeadProRng
      If Not Len(Xel) = 0 Then
         c = c + 1: ReDim Preserve Prodak(1 To c): Set Prodak(c) = Xel
      End If
   Next Xel
   For c = 1 To HeadBlnRng.Columns.Count
      If c > 1 And HeadBlnRng(1, c) = FirstMonth Then Exit For
      Set NewSht = Worksheets.Add
      NewSht.Move After:=Sheets(Sheets.Count): NewSht.Name = HeadBlnRng(1, c).Text
      With NewSht.Range("B5")
         .Cells(-2, 1) = "Nilai Penjualan " + HeadBlnRng(1, c).Text
         Kolom.Copy: .PasteSpecial xlPasteValuesAndNumberFormats
         For n = 1 To UBound(Prodak)
            Prodak(n).Copy .Cells(1, 1 + n)
            Kolom.Offset(1, n * 3 + c - 3).Copy :.Cells(2, 1 + n).PasteSpecial xlPasteValues
         Next n
         Application.CutCopyMode = False
      End With
   Next c
End Sub

---

----- Original Message -----
From: Nawa Purnama
To: XL-mania@yahoogroups.com
Sent: Thursday, May 06, 2010 9:03 PM
Subject: ]] XL-mania [[ Macro untuk ubah bentuk Report ke beberapa sheet

Salam Salut kepada para XL-Mania,
Langsung saja saya minta bantu untuk makro yang bisa meringankan pekerjaan manual.
File ilustrasi saya lampirkan karena file aslinya sangat merepotkan jika di-attach.

Sheet "Rupiah" adalah Repot yang merupakan output dari sebuah program selanjutnya menjadi Source dalam pekerjaan saya.

Detail Kolom Bulan akan bertambah sesuai periode laporan yang di proses.
Detail Kolom Product juga sewaktu-waktu bisa berubah.
Detail Baris (area maupun kemasan) juga bisa berubah untuk setiap perode
karena menyesuaiakan dengan
ketersediaan data pada bulan masing2.
Nama product sesungguhnya cukup banyak, begitu juga untuk detail barisnya.

Target;
Setiap awal bulan menghasilkan laporan di sejumlah sheet sesuai banyaknya
bulan yang ada di sheet Rupiah.
Memanfaatkan data/tabel di sheet Rupiah, sheet laporan diisi tabel dan nilai
sesuai nama sheetnya,
detail barisnya harus sama dengan detail baris tabel di sheet Rupiah.

Selama ini saya gunakan formula kombinasi INDEX,INDIRECT,MATCH, dll ditiap
sheet Laporan.
Hasilnya lumayan efektif, namun performance sangat lambat karena calculating
terus, dan sering dibuat ruwet jika ada tambahan Detail baris ataupun tambahan nama product.

Harapan;
Kepada para XL-mania sudikiranya buatkan macro untuk menjadikan pekerjaan
seperti ini menjadi otomatis (bukan copy manual).
best regards
Nawa

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (11)

Recent Activity:

• New Members 116

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| uaaaaa... mau game maeeemoooooooo....                             |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___