Sheet DKN/Daftar Nilai

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Worksheets("dkn").Unprotect "1"

'=====copy dari isinilai ke dkn======
    Worksheets("dkn").Range("G16:AJ65").ClearContents
    Worksheets("dkn").Range("sikapdkn").ClearContents
    Worksheets("isinilai").Range("G8:AJ57").Copy
    Sheets("dkn").Range("G16").Select
    Selection.PasteSpecial paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Range("G16").Select

'=====copy dari isi SIKAP ke dkn======
    Worksheets("sikap").Range("sikapsikap").Copy
    Sheets("dkn").Range("AP16").Select
    Selection.PasteSpecial paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Range("G16").Select



'======menyembunyikan baris yang sisa======
'
'Dim barisakhir2 As Integer
'
'
'barisakhir2 = Range("G13").Value
'Rows(barisakhir2 & ":65").Select
'Selection.EntireRow.Hidden = True

''======menyembunyikan kolom yang sisa======
'
'Columns(Range("I13").Value & ":AJ").Select
'Selection.EntireColumn.Hidden = True


''========mengatur lebar kolom otomatis==============


ActiveWindow.Zoom = 90
ActiveWindow.ScrollColumn = 1
'ActiveWindow.ScrollRow = -1
Columns("I:AJ").EntireColumn.AutoFit
Columns("AO").EntireColumn.AutoFit
Columns("J:K").Hidden = True

'===menyembunyikan kolom GANJIL TAHUN LALU saat diklik Genap==
If Worksheets("data").Range("P7").Value = "Ganjil" Then
Columns("AL").Hidden = True
Else
Columns("AL").Hidden = False
End If


Application.ScreenUpdating = True
Worksheets("dkn").Protect "1", userinterfaceonly:=True

End Sub