Mba..saya coba jalankan makronya tapi ga bisa ya ? pesanya saya capture ( see attchmnt ),
Mohon bantuannya, On 1/5/12, Asror Cakep <[email protected]> wrote: > 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
<<attachment: tes.JPG>>
