Modul Urutkan_Hasil

Option Explicit

Sub urut3()
'===========mengurutkan berdasarkan tanggal==============
ActiveWorkbook.Sheets("CARIGABUNG1").Range("carigabung1range").Select
ActiveWorkbook.Sheets("CARIGABUNG1").Sort.SortFields.Clear
ActiveWorkbook.Sheets("CARIGABUNG1").Sort.SortFields.Add Key:=Range("tanggalcarigabung1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Sheets("CARIGABUNG1").Sort
    .SetRange Range("carigabung1range")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
Sheet9.Select
Sheet1.Protect "1", userinterfaceonly:=True
End Sub


Sub urut1()
'===========mengurutkan berdasarkan tanggal==============
ActiveWorkbook.Sheets("CARIGABUNG2").Range("carigabung2range").Select
ActiveWorkbook.Sheets("CARIGABUNG2").Sort.SortFields.Clear
ActiveWorkbook.Sheets("CARIGABUNG2").Sort.SortFields.Add Key:=Range("tanggalcarigabung2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Sheets("CARIGABUNG2").Sort
    .SetRange Range("carigabung2range")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
Sheet10.Select
Sheet1.Protect "1", userinterfaceonly:=True
End Sub