]] XL-mania [[ Re: data unik

 

Dengan Formula:

Seperti biasa, kita dapat menggunakan formula sorting;  dan karena sudah sering, 

tidak lagi dibahas di sini

Dengan Makro

Makro 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  di  http://www.box.com/s/b1orbia47q8rtcqsrdib

- i -

--- In XL-mania@yahoogroups.com, 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

__._,_.___

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

Messages in this topic (2)

Recent Activity:

• New Members 58

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com                       |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :(   |
+-------------------------------------------------------------------+
| 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

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___