Re: ]] XL-mania [[ Mengeluarkan isi dalam suatu cell ke beberapa row

 

Bisa juga dengan formula,
berikut ini dengan VBA:

Sub pisahTeksKeBaris()
'memisahkan teks ke baris, delimiter: Chr(10) hasil Alt + Enter
'posisi teks yang mau dipisahkan: Range("A1")
'hasil mulai dari row 3
'anton suryadi 25/Feb/2010
Dim r As Integer, y
y = Split(Range("A1"), Chr(10))
For r = 0 To UBound(y)
   Cells(r + 3, 1) = y(r)
Next r
End Sub

File terlampir


>semoga bermanfaat

---

From: Lucky <ucok_ah_2003@yahoo.com>
To: XL-mania@yahoogroups.com
Cc: Mohon@yahoo.com
Sent: Mon, February 22, 2010 9:52:19 PM
Subject: ]] XL-mania [[ Mengeluarkan isi dalam suatu cell ke beberapa row

 

Para Sensei..

Kalo misalnya kita mo ngeluarin isi teks dlam suatu cell (dimana di dalam cell tersebut teks dipisahkan menjadi beberapa baris(pake Alt+Enter)) menjadi beberapa row,,bagaimana ya??
Gw nyoba pake makro ga bisa (hehe,,,ilmu' nya masi cetek)..
Trus kalo misalnya mo pake formula jg bgmn??

Kurang lebih hasilnya seperti gambar di bawah ini...



Terima Kasih..
Mohon maap kalo pertanyaan serupa pnah ditanyakan.

Luki..

__._,_.___

Reply to sender | Reply to group

Messages in this topic (2)

Recent Activity:

• New Members 97

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| huaaaa... momods sakit... *sob*                                   | 
| 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              |
+-------------------------------------------------------------------+

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

.

__,_._,___