Hot Fox: Re: ]] XL-mania [[ Tampilkan Data Global

sábado, 3 de julho de 2010

Re: ]] XL-mania [[ Tampilkan Data Global

tulis rumus spt ini di A12:C12, sheet Hasil

=IF(ISERR($F12);"";INDEX(NewDat;$F12;1))
=IF(ISERR($F12);"";INDEX(NewDat;$F12;2))
=IF(ISERR($F12);"";INDEX(NewDat;$F12;3))

lalu copykan ke cells di bawahnya (tiga kolom, sekian baris)

setelah itu anda tinggal mengubah ubah kriteria di sheet Hasil
cell B2 dan B3, mudah mudahan tabel hasi menampilkan hasil
filtering (yg direkayasa dengan formula tsb)

namun sebelum itu diperlukan persiapan
1. menyatukan 3 tabel ex 3 sheet data ke satu tabel terpusat
2. memberi nama-nama range di "tabel terpusat"
    a. seluruh area data = "NewDat
    b. Kolom Kedua = "Kejadian"
    c. Kolom Ketiga = "Lokasi"
3. Setiap ada perubahan di tabel data (sheet 1,2 3 dan sheet lain jika ada)
    step 1 dan 2 di atas harus di kerjakan lagi

Karena pekerjaan (3 step tsb) mungkin akan sering dilakukan; sebaiknya
kita codekan saja, dan kapan-kapan diperlukan tinggal menjalankan code
dengan men-Ceklik tombol Refresh yg ada di sheet hasil.

Code-VBA nya kira -kira spt ini

Sub blablabla()
   ' siti Vi / 3 juli 2010
   ' menggabung tabel yg terpacah-pecah
   Dim DatSheet As Worksheet
   Dim CurRng As Range
   Dim NewDat As Range
   Dim sht As Worksheet

   Set DatSheet = Sheets("DataTerpusat")
   DatSheet.Cells(1).CurrentRegion.ClearContents
   Set NewDat = DatSheet.Range("A1")
   Application.ScreenUpdating = False
   For Each sht In ThisWorkbook.Worksheets
      If Not LCase(sht.Name) = "hasil" Then
         If Not sht.Name = DatSheet.Name Then
            Set CurRng = sht.Cells(1).CurrentRegion.Offset(1, 0)
            CurRng.Copy
            NewDat.PasteSpecial xlPasteFormulasAndNumberFormats
            Set NewDat = NewDat.Offset(CurRng.Rows.Count - 1, 0)
         End If
      End If
   Next
   Application.CutCopyMode = False
   Set NewDat = DatSheet.Cells(1).CurrentRegion
   NewDat.Name = "NewDat"
   NewDat.Offset(0, 1).Resize(NewDat.Rows.Count, 1).Name = "Kejadian"
   NewDat.Offset(0, 2).Resize(NewDat.Rows.Count, 1).Name = "Lokasi"
   Application.ScreenUpdating = True
End Sub

oiya
sebelum lupa... di kolom F (sheet hasil) ada array formula
SMALL(IF(---,row()),(---,row())
yang sudah terlalu sering dijelaskan di milis.

wassalam,
siti

----------------------------------------------------
2010/7/3 Gilang Jemaras <gilang.jemaras@yahoo.com>
>
> Dear Para Master XL,
> Mohon bantuan atas kasus saya dalam bagaimana formula atau macronya untuk menampilkan seluruh row dari source di sheet-1 sampai sheet-3 sesuai dengan syarat yang ditentukan di cell B2 dan B3 kemudian hasilnya dikumpulkan dalam satu tabel dibawahnya. Kasus ini saya sederhanakan dari semula yang jumlah source-nya banyak sheet dengan tiap sheet mengandung data banyak row dan kolom.Terima kasih sebelumnya untuk bantuan eXLer semua.
>
> Salam,
> Gilang

__._,_.___

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

Messages in this topic (3)

Recent Activity:

New Members 94

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| jangan lupa sebelum bertanya, cek dulu www.XL-mania.com dan       |
| http://tech.groups.yahoo.com/group/XL-mania/messages              |
| 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              |
+-------------------------------------------------------------------+

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Get great advice about dogs and cats. Visit the Dog & Cat Answers Center.

Hobbies & Activities Zone: Find others who share your passions! Explore new interests.