mungkin kira-kira seperti ini
Dim NewDat As Range
Dim dTabel As Range
Dim DatRow As Long
Dim DatCol As Integer
Dim n As Long
Set NewDat = Range("A1").CurrentRegion.Offset(1, 0)
DatRow = NewDat.Rows.Count - 1
DatCol = NewDat.Columns.Count
Set NewDat = NewDat.Resize(DatRow, NewDat.Columns.Count)
Set dTabel = Range("A14").CurrentRegion.Offset(1, 0)
Set dTabel = dTabel.Resize(dTabel.Rows.Count - 1, dTabel.Columns.Count)
Call NormalkanTabel(dTabel, 1)
Call NormalkanTabel(NewDat, 1)
For n = dTabel.Rows.Count + 1 To 2 Step -1
' bandingkan tanggal nya
If Int(dTabel(n - 1, 1)) <= Int(NewDat(1, 1)) Then
' bandingkan nomor rekeningnya
If dTabel(n - 1, 2) < NewDat(1, 2) Then
' insert row sebanyak row yg ada di NewDat
dTabel(n, 2).Resize(DatRow, 1).EntireRow.Insert
' Newdat dicopykan ke rows baru hasil penyisipan
NewDat.Copy
dTabel(n, 1).PasteSpecial xlPasteValuesAndNumberFormats
' kalau perlu diberi warna
dTabel(n, 1).Resize(DatRow, DatCol).Interior.ColorIndex = 36
Application.CutCopyMode = False
Exit For
End If
End If
Next
'------- end of makroh------
ada satu prosedur bantu, bernama "NormalkanTabel"
karena tabel yg diajukan sbg contoh (baik set data yg akan disisipkan, maupun tabel induknya) =
tidak normal, tidak kokoh, ada data yg jika ingin diketahui TANGGAL nya dia bengong, tidak tahu.
Jika data tsb disort dengan berbagai kolom kunci, maka akan ada banyak field yang kehilangan kesatuannya.
Ini disebabkan cara penulisan di kolom TANGGAL = menganut pencatatan pakai kertas seperti
bang madi. (jika di atas-nya sudah ada tanggal; lalu cell dibawahnya = KOSONG, sebenarnya cell
kosong itu diam-diam DISURUH MENGAKU berisi tanggal seperti di atasnya) ha !
cara seperti ini tidak cucok untuk berdatabaseria...
-siti-
2011/3/8 andri apriyadi <andreemobile@yahoo.co.id>
Salam XL-Mania,
Mumpung milis lagi sepi,
Saya tertarik pada bahasan mengenai "Menyisipkan satu data pada sorted list" yang sudah dipecahkan oleh macronya Mba Siti dengan sempurna. Kasus ini membangkitkan kreatifitas saya untuk menerapkannya juga pada kasus lain.
Hanya saja kasusnya sedikit beda, kali ini yang disisipkan adalah PAKET DATA (bukan lagi satu data). Untuk lebih jelasnya dapat dilihat pada lampiran. Mohon bantuan untuk rumus makronya. (Maaf karena saya awam sekali mengenai macro)
Terima Kasih atas perhatian dan solusinya,
Regards
Andree
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| sorry... moderasi super lemot... momods lagi sakit parah... |
| buku terbaru XL mania: insipartif dan unik, gabungan antara buku |
| aplikasi bisnis dan buku komputer. isinya tidak biasa! |
| http://www.xl-mania.com/2011/02/mengapa-boss-benci-chart-anda.html|
| 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 |
+-------------------------------------------------------------------+
| sorry... moderasi super lemot... momods lagi sakit parah... |
| buku terbaru XL mania: insipartif dan unik, gabungan antara buku |
| aplikasi bisnis dan buku komputer. isinya tidak biasa! |
| http://www.xl-mania.com/2011/02/mengapa-boss-benci-chart-anda.html|
| 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 |
+-------------------------------------------------------------------+
.
__,_._,___
Nenhum comentário:
Postar um comentário