Re: ]] XL-mania [[ mengurutkan Data dgn kriteria tertentu

 

bolehkan dengan sekali ceklik ??

( + klik kali memilih range dan klik pilih Porstfix text)

Sub TukangUrutYangAneh()

   ' Bluewater, 16 jun2011 / siti Vi

   '-------------------------------------

   Dim Rng As Range, i As Long, CoreDat As String, Postfix As String

   If Not Cells(1) = vbNullString Then

      Cells(1).CurrentRegion.Select: Selection(1, 2).EntireColumn.Insert

   End If

   On Error Resume Next

   Set Rng = Application.InputBox("Pilih/Blok-lah Range yg akan di-Sort", "Input #1", Selection.Address, , , , , 8)

   Rng.Name = "RNG":  Postfix = InputBox("Ketikkan PostFix", "Input #2", "MW")

   For i = 1 To Rng.Rows.Count

      CoreDat = Left(Rng(i, 1), InStr(1, Rng(i, 1), Postfix, 1) - 1)

      Rng(i, 2) = WorksheetFunction.CountIf(Rng, CoreDat & "*")

   Next i

   Rng.CurrentRegion.Sort _

      Key1:=Rng(1, 2), Order1:=xlDescending, Key2:=Rng(1, 1), Order2:=xlAscending, _

      Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _

      DataOption1:=xlSortNormal, DataOption2:=xlSortNormal

   Rng(1, 2).EntireColumn.Delete

End Sub

2011/6/15 Fajar Fatahillah <fajar.fatahillah@yahoo.com>

Dear Master,
butuh bantuan ni untuk mengurutkan data sesuai kriteria tertentu.
file contoh terlampir
terima kasih

__._,_.___

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

Messages in this topic (9)

Recent Activity:

• New Members 90

Visit Your Group

+-:: 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              |
+-------------------------------------------------------------------+

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

.

__,_._,___