Re: ]] XL-mania [[ Makro untuk Statistics

 

Sub RekaPituLasi(Sumber As Range)
   ' siti Vi / menyusun rekapitulasi khusus
   ' bluewater, 11 May 2010
   '----------------------------------------
  
   ' declaring alotof variables...
   Dim i As Long, Col As Integer
   Dim T1 As Long, T3 As Long, T5 As Long
   Dim Tabel1 As Range, Tabel2 As Range, Tabel3 As Range
   Dim Tabel4 As Range, Tabel5 As Range, Tabel6 As Range
   Dim Palm   As Range, Lauric As Range, Qty    As Double
   Dim Buyers As Range, LPorts As Range, Dports As Range
  
   ' assignments....
   Set Sumber = Sumber.Offset(1, 0)
   With Sheets("Result")
      Set Tabel1 = .Range("C6")
      Set Tabel2 = .Range("C39")
      Set Tabel3 = .Range("C79")
      Set Tabel4 = .Range("C98")
      Set Tabel5 = .Range("C124")
      Set Tabel6 = .Range("C133")
      Set Palm = .Range("C5:J5")
      Set Lauric = .Range("C38:J38")
      Set Buyers = .Range("B124:B126")
      Set LPorts = .Range("B79:B91")
      Set Dports = .Range("B6:B32")
      .Select
   End With
  
   '-- Yuk kita mengisi tabel... (Yuuuukkk..)
   With WorksheetFunction
      For i = 1 To Sumber.Rows.Count
         If Not Len(Sumber(i, 4)) = 0 Then
            Qty = Sumber(i, 4)
            T1 = .Match(Sumber(i, 9), Dports, 0)
            T3 = .Match(Sumber(i, 8), LPorts, 0)
            T5 = .Match(Sumber(i, 7), Buyers, 0)
            If Sumber(i, 11) = "Palm" Then
               Col = .Match(Sumber(i, 5), Palm, 0)
               Tabel1(T1, Col) = Tabel1(T1, Col) + Qty
               Tabel3(T3, Col) = Tabel3(T3, Col) + Qty
               Tabel5(T5, Col) = Tabel5(T5, Col) + Qty
            ElseIf Sumber(i, 11) = "Lauric" Then
               Col = .Match(Sumber(i, 5), Lauric, 0)
               Tabel2(T1, Col) = Tabel2(T1, Col) + Qty
               Tabel4(T3, Col) = Tabel4(T3, Col) + Qty
               Tabel6(T5, Col) = Tabel6(T5, Col) + Qty
            End If
         End If
      Next i
   End With
   '-- yuk kita bubar.... (ogah... mo nunggu pembagian coklat dari bang momod dulu..)
End Sub

---

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

From: siti Vi

To: XL-mania Milis

Sent: Tuesday, May 11, 2010 4:40 AM

Subject: Re: ]] XL-mania [[ Makro untuk Statistics

mohon maaf;

saya termasuk orang yg tidak tahu babar-blass : bahasa londo inggris dsb,

dan juga tidak tahu bahasa khusus untuk komoditas yg ditabelkan itu,

o.k.i. ingin bertanya dulu..

 

dengan keadaan tabel source seperti itu,

(1)

kolom mana yg membedakan PALM PRODUCT -vs- LAURIC PRODUCT

 

(2)

jika seandainya anda berkenan menuliskan

CONTOH HASIL yg diharapkEn di tabel (sheet) Result (walaupun manual) ; maka

para calon "penanggap" akan lebih segera memahami tujuan yg mau di-makro-kan

(melotot-time nya di depan sheets agak diperpendek dengan adanya contoh hasil tsb)

Sumbangan anda kepada calon penanggap yg hanya anda deskripsikan dengan:

" Detail pada kolom Quantity, Product, Lport & Destination pada sheet source masing-

masing akan tergolongkan ke dalam sheet result, sesuai masing-masing kolom

dengan total hasil yang sama di pengolongannya."
saya rasa terlalu pelit eh... terlalu sedikit...

dan...

mengenai "kolong" (=kata dasar dari "pengolongan") itu; belum ketangkap artinya

(terutama oleh saya)..

sekali lagi mohon maap, karena bukannya menjawab malah bertanya...

 

---

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

From: Agung Soenaryadi

To: XL-mania@yahoogroups.com

Sent: Monday, May 10, 2010 5:41 PM

Subject: ]] XL-mania [[ Makro untuk Statistics

Salam kepada para XL-Mania,

Mohon bantuan untuk makro yang bisa meringankan pekerjaan manual, karena

saya belum memahami makro sama sekali, mungkin berkenan membantu saya.

Sheet "source" adalah tabel template yang mesti saya isi per bulannya yang

merupakan data sumber untuk sheet result

Detail pada kolom Quantity, Product, Lport & Destination pada sheet source

masing-masing akan tergolongkan ke dalam sheet result, sesuai masing-masing kolom

dengan total hasil yang sama di pengolongannya.

Kepada para XL-mania sudikiranya membuatkan saya  macro untuk menjadikan

pekerjaan seperti ini menjadi otomatis (bukan copy manual).

 

Terima kasih. 

Best Regards

Agung_S

 

__._,_.___

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

Messages in this topic (4)

Recent Activity:

• New Members 97

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| uaaaaa... mau game maeeemoooooooo....                             |
| 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

.

__,_._,___