Re: ]] XL-mania [[ Bikin List

 

Sub BikinList()
   '--------------------------------------------
   ' siti Vi / 16 dec 2009 / for XL-mania milis
   '--------------------------------------------
   Dim dSumber As Range, dHasil As Range, dTally As Range
   Dim n As Long, r As Long, u As Long
   Dim ulang As Integer, c As Integer
  
   Set dSumber = Sheet1.Range("A4").CurrentRegion.Offset(3, 0)
   Set dSumber = dSumber.Resize(dSumber.Rows.Count - 3, dSumber.Columns.Count)
   Set dHasil = dSumber.Offset(dSumber.Rows.Count + 2, 0)
   Set dTally = dSumber.Offset(0, 5).Resize(dSumber.Rows.Count, dSumber.Columns.Count - 5)
  
   For r = 1 To dSumber.Rows.Count
      For c = 1 To dTally.Columns.Count
         If dTally(r, c) > 0 Then
            n = n + 1
            ulang = dTally(r, c).Value
            For u = 1 To ulang
               dSumber(r, 1).Resize(1, 4).Copy
               dHasil(n + u, 1).PasteSpecial xlPasteValuesAndNumberFormats
               dHasil(n + u, 5) = FormatDateTime(dTally(-1, c))
               n = n + u - 1
            Next u
         End If
      Next c
   Next r
   Application.CutCopyMode = False
End Sub

 

----- Original Message -----

From: rahmat takdir

To: XL-mania@yahoogroups.com

Cc: mohon tidak kirim berkali2 karena dianggap spam oleh yahoogroups

Sent: Tuesday, December 15, 2009 8:46 AM

Subject: ]] XL-mania [[ Bikin List

Salam buat pakar

 

Mohon bantuannya dengan sangat bagaimana caranya dengan menggunakan formula membuat list tabel sperti yg terlampir disheet summary

 

Thanks

 

__._,_.___

Reply to sender | Reply to group

Messages in this topic (3)

Recent Activity:

• New Members 89

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Ini work-load atau work-flood ya? huhuhu...          |
| 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

---

Parenting Zone: Your community resource for family and home

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

.

__,_._,___