Re: ]] XL-mania [[ copy data

 

mungkin kalau pakai makro (prosedur sub) lebih gampang
kan tinggal 
   * ceklik tombolnya,
   * tunjuk Range Data nya dgn mouse ( =dlm contoh C2:E13 )
   * dan .. wusssh!

Sub NormalizeYourTable()
    ' coded by: siti Vi / 8 nov 2010
    Dim dTbl As Range, dHasil As Range
    Dim r As Long, n As Long
    Dim kdBr As String, nmBr As String
   
    Set dTbl = Application.InputBox( _
        Prompt:="tentukan range yg akan diproses", _
        Title:="Normalize Your Table", Default:=Selection.Address, Type:=8)
    Set dHasil = dTbl.Offset(0, dTbl.Columns.Count + 2)
   
    For n = 1 To dTbl.Rows.Count
        If dTbl(n, 1) = "kode" Then
           kdBr = dTbl(n, 2)
           nmBr = dTbl(n, 3)
        Else
           r = r + 1
           dHasil(r, 1) = dTbl(n, 1)
           dHasil(r, 2) = dTbl(n, 2)
           dHasil(r, 3) = kdBr
           dHasil(r, 4) = nmBr
        End If
    Next n
End Sub


2010/12/6 jakarta pusat <niaga_jakarta@yahoo.co.id>
>
> dear rekan" xl-mania, 
> saya mempunyai permasalahan dalam copy data, berikut contohnya :
> kode : AB0001-BUKU
> J001 JOKO
> J002 AYU
> kode : AB0002 - MAJALAH
> J001 JOKO
> kode : AB0003 - BUNDEL
> J002 AYU
> kode : AB0004 - KALENDER
> J001 JOKO
> J002 AYU
> J003 ADHI
> J004 DHARMA
> sedangkan data yang saya inginkan adalah di setiap baris setelah nama customer, terdapat kode barang, karena jika manual mungkin membutuhkan waktu yg lama sekali, apakah ada solusi untuk kasus tsb. atas perhatiannya saya ucapkan terima kasih. 
>
> toro

__._,_.___

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

Messages in this topic (4)

Recent Activity:

• New Members 77

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| momods mencari penerbit buku yang oke dan muantab.... adakah?     |
| ayo silahkan coba lowongan yang momod kirim...                    |
| 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

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.

---

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

.

__,_._,___