Re: ]] XL-mania [[ Data Rekap terisi otomatis dari beberapa sheet

 

Sub GiniAjaDeh()

    ' ~ RaraWilis / 11 Apr 2012
    ' menjawab XL-mania Case # 20208
    '-------------------------------

   Dim RekapTbl As Range, CurrTbl As Range
   Dim n As Long, R As Long, C As Integer
   Dim CurrSht As Worksheet, ArUrut As Variant
   
   ArUrut = Array(, 3, 2, 1, 4, 5)
   Set RekapTbl = Sheets("Rekap").Range("B2"). _

       CurrentRegion.Offset(1, 0)
   RekapTbl.ClearContents
   
   Application.ScreenUpdating = False
   Application.Calculation = xlCalculationManual
   
   For Each CurrSht In ThisWorkbook.Sheets
      If Not CurrSht.Name = "Rekap" Then
         Set CurrTbl = CurrSht.Cells(1).CurrentRegion
         For n = 2 To CurrTbl.Rows.Count
            R = R + 1
            For C = 1 To UBound(ArUrut)
               RekapTbl(R, C).Value = CurrTbl(n, ArUrut(C)).Value
            Next C
            RekapTbl(R, 6).Value = CurrSht.Name
         Next n
      End If
   Next CurrSht
   Set RekapTbl = RekapTbl.CurrentRegion
   Call SortingKhusus(RekapTbl)
   
   Application.ScreenUpdating = False
   Application.Calculation = xlCalculationManual
End Sub

Sheet "ANAK" boleh ditambah berapa saja (berisi tabel dgn struktur & 

dan letak ToLeftCorner-nya sama(A1) )

Insyaallah Makro akan me-Rekap semua tabel sheets lain (CurrTbl), 

selain sheet "Rekap"

~Rara Wi




'---------------------
On Mon, Apr 9, 2012 at 2:11 PM, Agus Helarus <agus_helarus-luvin@hotmail.com> wrote:
> Para Pakar Excel yg Terhormat,
> Saya memiliki data rekap yg merupakan gabungan dari beberapa sheet. Selama ini saya rekap manual dgn mencopy dari masing2 sheet tersebut. Namun dengn bertambahnya jumlah sheet dan kriteria data yg harus di rekap sangat sangat menyulitkan dan sering terjadi salah copy.
> Mohon bantuannya agar Data Rekap bisa terisi secara otomatis dari beberapa data di sheet yg berbeda. Contoh data nya terlampir.
>
> Terima kasih
> Salam
> Helarus

__._,_.___

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

Messages in this topic (4)

Recent Activity:

• New Members 50

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya        |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| 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.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

.

__,_._,___