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 :.
