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
