dear Mr. Kid, terima kasih atas bantuannya...
regards, .: Alu :. ________________________________ Dari: Mr. Kid <[email protected]> Kepada: BeExcel <[email protected]> Dikirim: Senin, 29 Juli 2013 10:16 Judul: Re: [belajar-excel] Macro Tidak Jalan 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 >mohon bantuannya BeExceller... > > >terima kasih atas bantuannya.... > > > > >regards, >.: Alu :. >
