makasi mba/mas rara, cuma saya coba ko ga semua kolom ke sort ya, cuma beberapa aja.
2012/4/30 Rara Wilis <[email protected]> > Pakai Tombol buatan sendiri .. boleh ndak ya... > > Private Sub CommandButton1_Click() > ' IndividualColumnSort - Descending > ' by Rara > Dim dTabel As Range, CurCol As Range > Dim nKol As Integer, c As Integer > > On Error Resume Next > Set dTabel = Application.InputBox( _ > "Select Range yg akan disort", _ > "Sorting Desending Per Individual Kolom", _ > Selection.Address, , , , , 8) > nKol = dTabel.Columns.Count > Set CurCol = dTabel.Resize(dTabel.Rows.Count, 1) > For c = 0 To nKol - 1 > Set CurCol = CurCol.Offset(0, c) > CurCol.Sort Key1:=CurCol(1, 1), Order1:=xlDescending, _ > Header:*=xlNo*, OrderCustom:=1, MatchCase:=False, _ > Orientation:=xlTopToBottom, DataOption1:=xlSortNormal > Next c > End Sub > > pilihan: xlNo / xlYes / xlGuess > > ~Rara > > > *2012/4/30 Ogut Munandar <[email protected]> >> *slamat pagi semua, saya ada kasus dimana harus mengurutkan data lebih dari >> 1000 kolom secara descending.* >> *yang saya mau tanyakan adalah gimana caranya cepat untuk mengurutkan secara >> otomatis?* >> **contoh kasus ada di lampiran* >> *terimakasih* ------------------------------------ --------------------------------------------------------------------- bergabung ke milis (subscribe), kirim mail kosong ke: [email protected] posting ke milis, kirimkan ke: [email protected] berkunjung ke web milis http://tech.groups.yahoo.com/group/belajar-excel/messages melihat file archive / mendownload lampiran http://www.mail-archive.com/[email protected]/ atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/ menghubungi moderators & owners: [email protected] keluar dari membership milis (UnSubscribe): kirim mail kosong ke [email protected] ---------------------------------------------------------------------Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/belajar-excel/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/belajar-excel/join (Yahoo! ID required) <*> To change settings via email: [email protected] [email protected] <*> To unsubscribe from this group, send an email to: [email protected] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
