Re: ]] XL-mania [[ merubah format laporan

 

dear pak Setyo Wibowo dan pak Ayunk,

sebetulnya bisa juga dengan formula.. tapi..

 

Sub PuterGiling()
   ' siti Vi / mengubah bentuk tabel
   ' bluewater 27 jan 2010 // milis XL-mania
   '----------------------------------------
   Dim dSource As Range, dHatsil As Range
   Dim CoLbl As Variant
   Dim n As Long, r As Long, c As Integer
  
   ' penugasan kpd para pariabel
   Set dSource = Sheets("Sumber").Cells(1).CurrentRegion.Offset(1, 0)
   Set dHatsil = Sheets("Hasil").Cells(2, 1)
   CoLbl = Split("Tahun No_Akun Bulan DK Saldo")
  
   ' 'mbikin judul kolom
   For n = 0 To 4: dHatsil(0, n + 1) = CoLbl(n): Next
  
   ' loop pemindahan data
   For n = 1 To dSource.Rows.Count - 1
       For c = 0 To 12
          r = r + 1
          dHatsil(r, 1) = dSource(n, 1)
          dHatsil(r, 2) = dSource(n, 2)
          dHatsil(r, 3) = c
          dHatsil(r, 4) = dSource(n, 3 + c)
          dHatsil(r, 5) = dSource(n, 16 + c)
      Next c
   Next n

 

End Sub

 

---

----- Original Message -----
From: setya wibowo
To: XL-mania@yahoogroups.com
Sent: Wednesday, January 27, 2010 9:13 AM
Subject: ]] XL-mania [[ merubah format laporan

kirim ulang....

---------- Pesan terusan ----------
Dari: <ayunkgo@gmail.com>
Tanggal: 26 Januari 2010 14:39
Subjek: merubah format laporan
Ke: XL-mania@yahoogroups.com

Dear Pakar Excel
Mau minta tolong sedikit nih, saya mau merubah bentuk laporan seperti terlampir  dari melebar menjadi kebawah
Ada yang tau cara cepatnya gag??
Help…. Soalnya data nya ada ribuan

Thanks
Ayunk

__._,_.___

Reply to sender | Reply to group

Messages in this topic (2)

Recent Activity:

• New Members 115

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Member ke 13,013 siapa ya? Sini mau dikirimin coklat :D           |
| Member ke 31,031 dapet iPod dehh.... :D :D :D                     |  
| 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

Going Green: Your Yahoo! Groups resource for green living

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

.

__,_._,___