horeeee udah bisaaa, makasi banget ya om..... Pada 30 April 2012 14:15, Rara Wilis <[email protected]> menulis:
> ** > > > Mohon maaf pak Ogut... > salah kirim workbook, ternyata workbook yg saya kirim adalah versi sebelum > diperbaiki > > Makro seharusnya sbb: > > 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 Per Individual Kolom - DESCENDING", _ > Selection.Address, , , , , 8) > nKol = dTabel.Columns.Count > Set CurCol = dTabel.Resize(dTabel.Rows.Count, 1) > > *For c = 1 To nKol* > CurCol.Sort Key1:=CurCol(1, 1), Order1:=xlDescending, _ > Header:=xlNo, OrderCustom:=1, MatchCase:=False, _ > Orientation:=xlTopToBottom, DataOption1:=xlSortNormal > *Set CurCol = CurCol.Offset(0, 1)* > Next c > End Sub > > mohon dicoba-coba dan mohon kabar hasilnya > > ~Rara >
