Hai Alu,
Sepertinya kolom kunci sort ada diluar area data yang akan di-sort.
>> Ini bagian pendefinisian kunci sort (sort by kolom ini)
ActiveWorkbook.Worksheets("Rank Error").Sort.SortFields.Add _
Key:=Range("*T6:T233*") _
, SortOn:=xlSortOnValues _
, Order:=xlAscending _
, DataOption:=xlSortNormal
>> Ini bagian area data yang akan di-sort :
.SetRange Range("*A6:S233*")
Mungkin area data diubah untuk sampai kolom T saja ya, supaya kolom kunci
sort menjadi di dalam area data.
.SetRange Range("*A6:T233*")
Jadi proses sort akan dilakukan terhadap area range A6:T233 yang ada dalam
worksheet bernama Rank Error berdasar kolom T si data secara Ascending.
Bunyi script hasil record macro tersebut bisa disederhanakan menjadi :
Sheets("Rank Error").Range("A6:T233").Sort Sheets("Rank
Error").Range("T6"),header:=xlyes,orientation:=xlsortcolumns
Wassalam,
Kid.
On Mon, Jul 29, 2013 at 9:55 AM, Alu Syafrudin <[email protected]>wrote:
> **
>
>
> Dear BeExceller,
>
> ane mau tanya nich...kenapa macro ane tidak jalan dan keluar error ini
>
>
> dan ini vba nya :
>
> Sub Macro2()
> '
> ' Macro2 Macro
> '
> Range("A6").Select
> Range(Selection, Selection.End(xlToRight)).Select
> Range(Selection, Selection.End(xlDown)).Select
> ActiveWorkbook.Worksheets("Rank Error").Sort.SortFields.Clear
> ActiveWorkbook.Worksheets("Rank Error").Sort.SortFields.Add
> Key:=Range( _
> "T6:T233"), SortOn:=xlSortOnValues, Order:=xlAscending,
> DataOption:=xlSortNormal
> With ActiveWorkbook.Worksheets("Rank Error").Sort
> .SetRange Range("A6:S233")
> .Header = xlGuess
> .MatchCase = False
> .Orientation = xlTopToBottom
> .SortMethod = xlPinYin
> .Apply --------------->>>> Error
> End With
> Range("T6").Select
> End Sub
>
> ane udah browsing google sana sini namun tetap gak ketemu jawabannya [image:
> *:(( menangis]
> mohon bantuannya BeExceller...
>
> terima kasih atas bantuannya.... [image: *:) senang]
>
>
> regards,
> .: Alu :.
>
>
>
