PROSES INI TERBOLAK jika dibanding dengan kelaziman berdatabase-ria;
yaitu Tabel Report seharusnya dibuat berdasarkan tabel database
Tetapi ini = Menyusun Tabel Database berdasarkan beberapa Reports
Untuk "struktur tabel report" yg masih 'lumayan' masih bisa berhasil, tetapi
ada berapa orang yg membuat repot dengan MAU memikirkan bahwa suatu saat
akan report tsb akan dijadikan sumber dari sumber ??
Hal kecil ini mudah mudahan menjadi bahan renungan untuk pengembangannya ke depan.
Tabel yg diajukan sbg contoh (Sheets 'Bisnis Unit ..") pun agar mudah dirujuk
harus disehatkan dulu yaitu bagian heading baris tanggal yg sudah tidak sehat
(gara-gara diMerged per-dua-cell-sebaris dijadikan satu cell /ini ciri khas Report
yaitu dibuat hanya demi keindahan pemandangan, dan memang seharusnya tidak disiapkan
sebagai data sumber yg harus bersifat structrured dan jelas Fields & Recordsnya)
Setiap cell dibawahnya akan merujuk ke BARIS tanggal, dan jika baris tanggal
didiamkan tetap sbg merged cell (satu cell berisi data tgl, satu cell berikutnya kosong),
berarti kita biarkan makro bisa KECELE : jika merujuk tanggal pas ketemu cell kosong,
hasilnya ya data kosong (padahal oleh pembuat-reportnya : KOSONG itu dimaksudkan
'= berisi tanggal seperti CELL di sebelah kirinya !!)
Itu tadi sedikit gambaran alasan mengapa mergedcell sangat dibenci oleh data.
(lha wong array formula saja jika dipaksa dituliskan di mergedcell, dia bilang
"mendingan bunuh diri !")
Sub DoSomething_Jilid_20110620()
'------------------------
' siti Vi / 20 jun 2011
' XL-mania case # 18667
'------------------------
Dim Sht As Worksheet
Dim TbRef As Range, Tabel As Range
Dim n As Long, r As Long, c As Integer
Set Tabel = Sheets("Summaries").Range("B4")
For Each Sht In Worksheets
If Sht.Name Like "Bisnis unit*" Then
Set TbRef = Sht.Cells(3, 1).CurrentRegion
For c = 4 To TbRef.Columns.Count
For r = 3 To TbRef.Rows.Count
If Not TbRef(r, c) = vbNullString Then
n = n + 1
Tabel(n, 1) = TbRef(r, 1)
Tabel(n, 2) = TbRef(r, 2)
Tabel(n, 3) = TbRef(1, c)
Tabel(n, 4) = TbRef(r, c)
Tabel(n, 5) = Sht.Name
End If
Next r
Next c
End If
Next Sht
End Sub
'-------
CMIIW
~siti~
2011/6/20 Effendi Wijaya <effendiwijaya@gmail.com>
compile data
hi para pakar excel mania,
salam malu bertanya kerja manual.
saya butuh bantuan temen excel mania sekalian,gimana buat macro nya.
saya ingin menggabung kan beberapa data dari beberapa sheet menjadi
format data base, sehingga memudahkan
untuk menganalisa penerimaan barang.
Data yg tersedia ada dalam sheet Bisnis unit A,B,C dan beberapa bisnis
unit lain nya.
data yg tersedia acak tidak mengikuti kaedah data base.
hasil yg di inginkan ada pada workbook yang lain yg isi nya seperti
di bawah
Part No description Date Qty Sheet Name
K864599756 Ring A 1-Jun 200 Bisnis unit A
K864599756 Ring A 2-Jun 1000 Bisnis unit A
K864599796 Ring L 3-Jun 500 Bisnis unit B
data yg diambil adalah hanya jika terjadi penerimaan barang pada
tanggal tersebut.
filw contoh terlampir
trimakasih atas bantuan nya.
Rgds,
E.Wijaya
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| maaf baru moderate sekarang... momods kurang tidur berhari-hari |
| jadi budak kantoooOOooorrr... |
| 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 |
+-------------------------------------------------------------------+
| maaf baru moderate sekarang... momods kurang tidur berhari-hari |
| jadi budak kantoooOOooorrr... |
| 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
.
__,_._,___
Nenhum comentário:
Postar um comentário