Dengan Formula:Seperti biasa, kita dapat menggunakan formula sorting;
dan karena sudah sering, tidak lagi dibahas di sini
Dengan MakroMakro sorting kali ini mengaplikasikan dua Kolom
Kunci(NomorSambungan) dan (TextNama Bulan)Berhubung text nama bulan
tidak punya nilai yg dapat menganggap:Januari = 1 ; Desember = 12, maka
harus dibuatkan KAMUS=nya lebih dulu
Array Data Unik NomorSambungan (ArSamb), didapat dari fungsi LOUV.
' susun hasil Normal + kolom sementara = nilai Bulan
Hasil.CurrentRegion.ClearContents For i = 1 To UBound(ArSamb) For
n = 1 To Tabel.Rows.Count If Tabel(n, 1) = ArSamb(i) Then
r = r + 1 For c = 1 To iCol Hasil(r, c) =
Tabel(n, c) Next c Hasil(r, iCol + 1) =
WorksheetFunction. _ Match(Trim(Hasil(r, 3)), arBulan, 0)
End If Next n Next i ' tabel hasil disort by Samb. & by
NilaiBulan Set Hasil = Hasil.CurrentRegion.Resize(Hasil.Rows.Count,
iCol + 1) Hasil.Sort _ Key1:=Range("J6"), Order1:=xlAscending, _
Key2:=Range("N6"), Order2:=xlAscending, _ Header:=xlGuess,
OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers, _ DataOption2:=xlSortNormal
' tabel hasil dihilangkan beberapa data-nya (di Abnormalkan) For r =
Hasil.Rows.Count To 1 Step -1 If Hasil(r, 2) = Hasil(r + 1, 2) Then
_ Hasil(r + 1, 1).Resize(1, 2).ClearContents Hasil(r, iCol
+ 1) = vbNullString Next r
Berhubung meReplynya dari Milis Web, attachmentnya tidak dapat
dilampirkan di sini, tetapi jika berkenan, dapat anda unduh sendiri
filenya <http://www.box.com/s/b1orbia47q8rtcqsrdib> di
http://www.box.com/s/b1orbia47q8rtcqsrdib
- i -
--- In [email protected], Iksan Bondang <xanbondang@...> wrote:
> Kepada Master Excel yang budiman, mohon kiranya dapat membantu
permasalahan yang sedang saya hadapi ini,
> dengan rumus atau macro, pada daftar terlampir.
> Sekali lagi saya mohon maaf, karena permasalahan ini belum saya
temukan solusinya
