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
membka module: Alt + F11 cari module untuk sheet1
setelah diedit, menutup module dengan Alt + Q
2012/4/30 Rara Wilis <[email protected]>
> apakah TABEL (Range) yg disort sudah di SELECT / DIBLOK ??
> di komputer saya; saya coba dari 10 kolom sampai 100 kolom >> berjalan
> dengan baik
> Mohon diberikan deskripsi keluhan yg lebih detail.
>
> contoh dari pak ogut itu "kurang seru" banyak data sekolom yg kembar
> jadi ketika disort gak ada efeknya
>
> sebenarnya makro itu hanya berisi :
> - mensort satu kolom
> - mengulang sorting, tetapi setiap pengulangan;
> kolom yg akan disort di-OFFSET ke kanan 1 kolom
>
>
> 2012/4/30 Ogut Munandar <[email protected]>
>
>> 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...*
>>
>
