Re: ]] XL-mania [[ Bikin List

[siti Vi]

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