Mbak i Haps, untuk namanya sendiri saya kurang tahu, setahu saya namanya sorting gitu :D tapi saya barusan buka attachmennya, keren, luar biasa,.. terimakasih mbak iHaps,
warm regards ASR ________________________________ From: i Haps <[email protected]> Sent: Wednesday, January 4, 2012 10:59 AM Subject: Re: [belajar-excel] Shorting n Delete listbox Terus terang aku ndak tahu babar-blass: arti "S H O R T I N G and delete Listbox" Kalau "Sorting" aku tahu sedikit, katanya: pengUrutan, data yg tidak urut (secara alfabetik, atau numerik atau alpanumerik, atau kronologik, mau diurutkan, dari tidak urut dibuat urut... Kalau SHORTING ?? Misalnya hanya salah tulis, sorting tertulis shorting, tapi "sorting and delete listbox"? apakah setelah itemnya berhasil diurutkan lalau object ListBox-nya yg harus didelete? atau bgmana ??? Bagimana menemukan solusinya, jika deskripsinya saja kita ndak jelas !? ========================== Dim Rng As Range ' Coded By: indri Hapsari / jkt, 04 Jan 2011 ' beExcel Case # 15007 ' http://tech.groups.yahoo.com/group/belajar-excel/message/15007 '------------------------------------------- Private Sub DTPicker1_Change() Select Case DTPicker1.Value Case Is > DTPicker2: DTPicker1 = DTPicker2 Case Is < Rng(1, 1): DTPicker1 = Rng(1, 1) End Select UpdateListBox DTPicker1, DTPicker2 End Sub Private Sub DTPicker2_Change() Select Case DTPicker2.Value Case Is > Rng(Rng.Rows.Count, 1): DTPicker2 = Rng(Rng.Rows.Count, 1) Case Is < DTPicker1: DTPicker2.Value = DTPicker1 End Select UpdateListBox DTPicker1, DTPicker2 End Sub Private Sub UpdateListBox(DateMin As Date, DateMax As Date) Dim i As Integer, iR As Integer, iC Application.EnableEvents = False With ListBox1 .Clear If Not Rng Is Nothing Then iR = -1 For i = 1 To Rng.Rows.Count If Rng(i, 1).Value >= DateMin Then If Rng(i, 1).Value <= DateMax Then iR = iR + 1 .AddItem For iC = 0 To Rng.Columns.Count - 1 If iC = 0 Then .List(iR, iC) = _ Format(Rng(i, iC + 1), "dd-mmm-yyyy") _ Else .List(iR, iC) = Rng(i, iC + 1) Next iC End If End If Next i End If End With Application.EnableEvents = True End Sub Private Sub UserForm_Initialize() ReDefine_Table If Not Rng Is Nothing Then Rng.Sort Key1:=Rng(1, 1) DTPicker1.Value = Rng(1, 1) DTPicker2.Value = Rng(Rng.Rows.Count, 1) With ListBox1 .MultiSelect = fmMultiSelectExtended .ListStyle = fmListStyleOption .BoundColumn = 1 .ColumnCount = Rng.Columns.Count .Width = 320 .ColumnWidths = "90 pt;120 pt;90 pt;1 pt" .ColumnHeads = False .TextColumn = True ' <<---mau dimanfaatkan untuk apa ya? UpdateListBox DTPicker1, DTPicker2 .ListIndex = 0 End With End If End Sub Private Sub CmdDelete_Click() Dim n As Long, r As Long, IsSelect As Boolean With ListBox1 For n = .ListCount - 1 To 0 Step -1 If .Selected(n) = True Then IsSelect = True r = .List(n, Rng.Columns.Count - 1) Rng(r, 1).Resize(1, Rng.Columns.Count).Delete Shift:=xlUp End If Next n End With If Not Rng Is Nothing Then If IsSelect Then ListBox1.Clear ReDefine_Table DTPicker1 = Rng(1, 1) DTPicker2 = Rng(Rng.Rows.Count, 1) UpdateListBox DTPicker1, DTPicker2 IsSelect = False End If End If End Sub Private Sub ReDefine_Table() Dim r As Long Set Rng = Sheet1.Range("a1").CurrentRegion.Offset(1) If Rng.Rows.Count > 1 Then Set Rng = Rng.Resize(Rng.Rows.Count - 1, Rng.Columns.Count) For r = 1 To Rng.Rows.Count Rng(r, Rng.Columns.Count) = r Next r Else Set Rng = Nothing End If End Sub '========================== from: Aliif Akbar [email protected] to: [email protected] date: Wed, Jan 4, 2012 at 5:08 PM subject: [belajar-excel] Shorting n Delete listbox > Selamat sore, > Dear Master Excel BeExcel, > Mau tanya nee, mohon maaf kalau sebelumnya pertanyaan saya pernah dibahas, > misal : tanggal dari di isi 5-Jan-12 dan tanggal sampai di isi 9-Jan-12 > ketika button short > (atau otomatis ketika tanggal dipilih ) di klik maka tampilan yang ada di > listbox hanya > menampilkan data yang dari tanggal 5-jan-12 s.d 9-Jan-12 ketika button delete > di hapus, > maka akan mendelete data yang ada di sheet sesuai yang dipilih > terimakasih. > > ASROR > > Detail ada di attachment, itu lampiran saya edit dari file yang beberapa hari > lalu dibahas di milis, > saya edit kolom tabelnya saja, > Terimakasih,
