Hot Fox: Re: ]] XL-mania [[ Sortir data dalam baris menjadi label dalam kolom

segunda-feira, 28 de novembro de 2011

Re: ]] XL-mania [[ Sortir data dalam baris menjadi label dalam kolom

Mungkin begini

Sub PartialTranspose()

' Hapsari / Nov 28, 1011

' XL-mania, Case# 19615

'-----------------------

Dim Tabel As Range, Hasil As Range

Dim i As Long, r As Long, c As Integer

Set Tabel = Sheets("Data Mentah").Cells(2, 1).CurrentRegion

Set Hasil = Sheets("Data Hasil").Cells(4, 1)

For i = 2 To Tabel.Rows.Count

If Tabel(i, 4) = "Actvitycode01" Then

r = r + 1

Hasil(r, 1).Value = Tabel(i, 1).Value

Hasil(r, 2).Value = Tabel(i, 2).Value

Hasil(r, 3).Value = Tabel(i, 3).Value

Hasil(r, 4).Value = Tabel(i, 5).Value

c = 0

Else

c = c + 1

Hasil(r, 4 + c).Value = Tabel(i, 5).Value

End If

Next i

End Sub

Susunan hasil masih bisa salah karena mencontoh Header yg dibuat oleh pak Ardi Pras.

yg hanya menganggap TitleNote = 6 item saja, padahal di "data mentah"nya bisa ber-Ubah-Ubah;

Yang ada: Minimal 6 Title, Max 8 Title (lihat baris 86 sheet "data Mentah" )

Tentu saja, kalau mau dan ndak segan, makro tsb masih bisa diperbaiki,

misal

** penulisan header Title Note di tabel hasil, dibuat berdarkan List of Unique Values yg

dicari dari kolom D tabel / sheet "data mentah" (bisa manual / bisa by makro )

** pada saat menggenerate report (tabel hasil) posisi Title setiap kali harus dicari lagi

(bisa minta bantuan fungsi MATCH milik woksit)

c.m.i.i.w.

dari tepi kali gendhol, haps melaporkan

2011/11/28 Ardi Prasetya <stevengerrardi@yahoo.com>
>
> Saya punya data yang saya ambil dari aplikasi, saya mempunyai kesulitan karena pada data hasil record berupa baris sedangkan ada beberapa item yang ingin saya ubah menjadi label seperti pada lampiran data hasil. Minta Tolong ya, saya sudah coba beberapa cara, dikarenakan banyaknya data yang harus dimbil saya keteteran. Contoh Terlampir.
>
> Dengan Hormat
> Ardi Prasetya

__._,_.___

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

Messages in this topic (2)

Recent Activity:

New Members 75

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com                       |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :(   |
+-------------------------------------------------------------------+
| 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.