Ada pertanyaan? Masuk ke Forum atau klik di sini..!

requestHalo, Pembaca Klinik Excel.. Bantu kami tetap online yuk..

Jika artikel-artikel kami dirasa memberikan manfaat, mohon bantu kami agar website ini tetap online ya.. Caranya gampang, cukup klik iklan yang tampil aja kok.. Terima kasih sebelumnya dan do'a kan agar kami dapat terus menulis artikel yang bermanfaat..

Loading video...

Berikut adalah baris programnya:

Sub UrutkanData()
  Dim WB1 As Workbook
  Dim WS1_1 As Worksheet
  Dim BrsAkhr As Long
  Set WB1 = ActiveWorkbook
  Set WS1_1 = ActiveSheet
  With WS1_1
     BrsAkhr = .Range("A" & .Rows.Count).End(xlUp).Row
     .Sort.SortFields.Clear
     .Sort.SortFields.Add2 Key:=Range("C2:C" & BrsAkhr), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
     .Sort.SortFields.Add2 Key:=Range("B2:B" & BrsAkhr), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
     With .Sort
       .SetRange Range("A1:C" & BrsAkhr)
       .Header = xlYes
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
     End With
  End With
End Sub