Modul Urut Dafdir

Option Explicit


Sub ranking_berdasarkan()

    Worksheets("cetakdkn").Unprotect "1"


'    Worksheets("cetakdkn").Range("D11:AH60").Copy
'    Worksheets("cetakdkn").Range("D11").Select
    

    Worksheets("cetakdkn").Range("D11:AH60").Select
    ActiveWorkbook.Worksheets("cetakdkn").sort.SortFields.Clear
    ActiveWorkbook.Worksheets("cetakdkn").sort.SortFields.Add Key:=Range( _
        "D11:D60"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("cetakdkn").sort
        .SetRange Range("D11:AH60")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    
     Worksheets("cetakdkn").Range("D10").Select
    Worksheets("cetakdkn").Protect "1", userinterfaceonly:=True
    
End Sub
Sub absen_berdsarkan()

Worksheets("cetakdkn").Unprotect "1"
  
'    Worksheets("cetakdkn").Range("D11:AH60").Copy
'    Worksheets("cetakdkn").Range("D11").Select
  
    Worksheets("cetakdkn").Range("D11:AH60").Select
    ActiveWorkbook.Worksheets("cetakdkn").sort.SortFields.Clear
    ActiveWorkbook.Worksheets("cetakdkn").sort.SortFields.Add Key:=Range( _
        "E11:E60"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("cetakdkn").sort
        .SetRange Range("D11:AH60")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   Worksheets("cetakdkn").Range("D10").Select
    
        
    Worksheets("cetakdkn").Protect "1", userinterfaceonly:=True
End Sub