Re: ]] XL-mania [[ Formula yang rumit untuk Laporan Menyamping ke Kanan menjadi Ke bawah

 

gampang...

Sub Gubrakk()

   Dim Tbl As Range, Hsl As Range

   Dim r As Long, n As Long, c As Integer

   Dim iRow As Long, iCol As Integer

   

   Set Tbl = _

   ActiveSheet.Cells(1).CurrentRegion.Offset(3, 1)

   iRow = Tbl.Rows.Count - 3

   iCol = Tbl.Columns.Count - 1

   Set Tbl = Tbl.Resize(iRow, iCol)

   Set Hsl = Tbl(1, 0).Offset(iRow + 5)

   

   For r = 1 To iRow

      For c = iCol - 1 To 1 Step -1

         If Not Tbl(r, c) = vbNullString Then

            n = n + 1

            Hsl(n, 1) = Tbl(r, 0).Text + "-" + CStr(Tbl(0, c).Value)

            Hsl(n, 2) = Tbl(r, c).Value

         End If

      Next c

   Next r

End Sub

(makro aliran asal2-an / perguruan Ki Gringsing)

On Sat, Mar 17, 2012 at 12:15, Ayiekosing Osing <ayiekosing@gmail.com> wrote:

Salam bahagia para pakar Excel,

Mohon bantuannya, saya masih bingung dan sangat kesulitan (rumit).  Ada kasus, saya harus merubah data laporan.Dari laporan menyamping kekanan di rubah menjadi ke bawah.

Saya gunakan rumus ,countif, index, sumproduct dll..  namun belum bisa dan terpecahkan.
Untuk contoh permasalahannya saya lampirkan filenya.

Mohon bantuan pakar2 Excel.. untuk memberikan pencerahan... ( baik berupa formula exel ataupun rumus macro VB tidak menjadi masalah.. tapi saya berharap formula excel  saja.selama masih bisa excel.)

Sebelum dan sesudahnya saya sampaikan banyak terima kasih.

Terima kasih sebelumnya
Salam
Ayik..

__._,_.___

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

Messages in this topic (3)

Recent Activity:

• New Members 67

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

.

__,_._,___