waahh........ siip, matur nuwun.... om hendrik tidak serumit yang dibayangkan.
Pada Kamis, 30 Januari 2014 22:42, hendrik karnadi <[email protected]> menulis: Hai Akbar, Coba bandingkan macro yang anda buat (macro1) dengan macro yang saya dapat melalui rekaman (macro2) berikut ini: Sub Macro1() ActiveWorkbook.Worksheets("DATABASE").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("DATABASE").AutoFilter.Sort.SortFields.Add Key:= _ Range("A4:A58"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("DATABASE").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub Sub Macro2() ActiveWorkbook.Worksheets("DATABASE").Sort.SortFields.Clear ActiveWorkbook.Worksheets("DATABASE").Sort.SortFields.Add Key:=Range("A4:A15" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal'Macro1() A4:A58 With ActiveWorkbook.Worksheets("DATABASE").Sort .SetRange Range("A3:D15")'Macro1() tidak ada .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub File tidak dilampirkan agar anda bisa mencobanya sendiri. Salam, HK On Thursday, 30 January 2014, 21:39, "[email protected]" <[email protected]> wrote: Kepada para master saya mohon pencerahannya untuk kode macro dlm sorting data saya sudah coba buat code macro untuk menjalankan SORT data, tapi blm bisa untuk mejalankan fitur Sort Expand the Selection (seperti sorting manual) saya lampirkan file contoh mohon bantuannya untuk Kode macro terima kasih atas bantuannya Akbar
