Hot Fox

terça-feira, 29 de novembro de 2011

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

Dear Bp Ardi Prasetyo

Jika memang hasil yang diinginkan seperti ini:

mungkin saya dapat membantu.
pada sheet data tambahkan tujuh kolom, yaitu actvitycode sampai PengetahuanProdukNote, pindahkan data pada baris menjadi data pada kolom yang baru saja dibuat menggunakan rumus VLOOKUP copy rumus ke seluruh kolom.
Tambahkan satu kolom lagi untuk kode yang akan dibaca pada sheet hasil.
Terakhir buat rumus di sheet hasil menggunakan Index dan Match

Mungkin ada cara yang lebih simpel, dengan satu rumus.
On 28/11/2011 08:27, Ardi Prasetya wrote:

Pada para master excel minta tolong ya,

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

Re: ]] XL-mania [[ memisahkan data satu kolom ke dalam tiga kolom yang dipisahkan oleh koma

Dengan Text to Columns.

Langkah - langkahnya adalah sbb:

Sorot Range("A6:A21)

Pilih "Data" dalam Menu Bar

Pilih "Text to Columns"

Centang "delimeted", Klik Next

Ganti Delimeter dengan "," Klik Next

Ganti Destination dengan menyorot kotak disebelah Destination (A16 menjadi B16)

Klik Finish, klik OK

Buat kolom bantu pada Range("F16") dgn Formula "="+"&C16", kemudian copy ke bawah

Copy Paste Value Range("F16:F121") ke Range("C16:C21")

Hasil terlampir.

Salam,

Hendrik Karnadi

From: Maramis Setiawan <maramis_setiawan@yahoo.co.id>
To: XL Mania <XL-mania@yahoogroups.com>
Sent: Monday, 28 November 2011, 7:07
Subject: ]] XL-mania [[ memisahkan data satu kolom ke dalam tiga kolom yang dipisahkan oleh koma

yth. master xlmania

mohon bantuannya formula untuk kasus dibawah.....file attached

satu data dalam satu kolom ingin kita pisahkan ke dalam tiga kolom yang dipisahkan oleh koma (bisa lebih dari 3, jika yang dipisah oleh koma lebih dari 3).

terima kasih sebelumnya

	RESULT MANUAL
RAW DATA	Nama	No Telp	Alamat	ket tambahan
Abd Suroso,+6281366668409,Kediri	Abd Suroso	+628136666668409	Kediri
Abdani,+6285263799992,Pakayumbuh	Abdani	+6285263799992	Pakayumbuh
Bambang,+628119703393,bekasi, tambun	Bambang	+628119703393	bekasi	tambun
Bambang Purnomo,+62813307918373,Wisma Tropodo Block I- 20 RT/RW 24/03,	Bambang Purnomo	+62813307918373	Wisma Tropodo Block I- 20 RT/RW 24/03
Chusna,+62878398517562,Magelang, Jateng	Chusna	+62878398517562	Magelang	Jateng
Cut Indri Ruyana,+6280159278517,Depok	Cut Indri Ruyana	+6280159278517	Depok

__._,_.___

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

Messages in this topic (3)

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.

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

__,_._,___

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: