Sheet "Isi Nilai"

Private Sub Worksheet_Activate()



    Worksheets("isinilai").Unprotect "1"
  Application.EnableEvents = True
    Range("L8").Select

'======memastikan semuanya kosong=======
Worksheets("isinilai").Range("mapelnilai").ClearContents



'=====copy dari mapelnama ke mapel nilai======
    Worksheets("data").Range("L13:L37").Copy
    Worksheets("isinilai").Range("mapelnilai").PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
   
   
   
'=====copy dari namasantri dari sheet "isinama" ke sheet"isinilai"  ======
    Worksheets("isinama").Range("H4:K53").Copy
    Worksheets("isinilai").Range("AY8").PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

   
    Columns("J:AJ").Hidden = True
'    Columns("L").Hidden = False
    ActiveWindow.Zoom = 85
    ActiveWindow.ScrollColumn = 1




'===menentukan cell yang bisa diedit=========
   
    
      
   

   
   Worksheets("isinilai").Protect "1", userinterfaceonly:=True
   
 

End Sub


Private Sub Worksheet_Change(ByVal Target As Range)

Worksheets("isinilai").Unprotect "1"

On Error Resume Next
If Intersect(Target, Range("I4")) Is Nothing Then

Exit Sub

'===memilih mapel dan menyembunyikan kolom yang tidak terpakai ========
'===============================================

ElseIf Range("J4").Value = 1 Then
Columns("J:AJ").Hidden = True

Columns("L").Hidden = False
'========mengatur lebar kolom ==============
Columns("L").EntireColumn.AutoFit

'----------------------------------------------------
ElseIf Range("J4").Value = 2 Then
Columns("J:AJ").Hidden = True

Columns("M").Hidden = False
'========mengatur lebar kolom ==============
Columns("M").EntireColumn.AutoFit


'----------------------------------------------------
ElseIf Range("J4").Value = 3 Then
Columns("J:AJ").Hidden = True

Columns("N").Hidden = False
'========mengatur lebar kolom ==============
Columns("N").EntireColumn.AutoFit

'----------------------------------------------------
ElseIf Range("J4").Value = 4 Then
Columns("J:AJ").Hidden = True

Columns("O").Hidden = False
'========mengatur lebar kolom ==============
Columns("O").EntireColumn.AutoFit

'----------------------------------------------------
ElseIf Range("J4").Value = 5 Then
Columns("J:AJ").Hidden = True

Columns("P").Hidden = False
'========mengatur lebar kolom ==============
Columns("P").EntireColumn.AutoFit

'----------------------------------------------------
ElseIf Range("J4").Value = 6 Then
Columns("J:AJ").Hidden = True

Columns("Q").Hidden = False
'========mengatur lebar kolom ==============
Columns("Q").EntireColumn.AutoFit

'----------------------------------------------------
ElseIf Range("J4").Value = 7 Then
Columns("J:AJ").Hidden = True

Columns("R").Hidden = False
'========mengatur lebar kolom ==============
Columns("R").EntireColumn.AutoFit

ElseIf Range("J4").Value = 8 Then
Columns("J:AJ").Hidden = True

Columns("S").Hidden = False
'========mengatur lebar kolom ==============
Columns("S").EntireColumn.AutoFit

ElseIf Range("J4").Value = 9 Then
Columns("J:AJ").Hidden = True

Columns("T").Hidden = False
'========mengatur lebar kolom ==============
Columns("T").EntireColumn.AutoFit

ElseIf Range("J4").Value = 10 Then
Columns("J:AJ").Hidden = True

Columns("U").Hidden = False
'========mengatur lebar kolom ==============
Columns("U").EntireColumn.AutoFit

ElseIf Range("J4").Value = 11 Then
Columns("J:AJ").Hidden = True

Columns("V").Hidden = False
'========mengatur lebar kolom ==============
Columns("V").EntireColumn.AutoFit

ElseIf Range("J4").Value = 12 Then
Columns("J:AJ").Hidden = True

Columns("W").Hidden = False
'========mengatur lebar kolom ==============
Columns("W").EntireColumn.AutoFit

ElseIf Range("J4").Value = 13 Then
Columns("J:AJ").Hidden = True

Columns("X").Hidden = False
'========mengatur lebar kolom ==============
Columns("X").EntireColumn.AutoFit

ElseIf Range("J4").Value = 14 Then
Columns("J:AJ").Hidden = True

Columns("Y").Hidden = False
'========mengatur lebar kolom ==============
Columns("Y").EntireColumn.AutoFit

ElseIf Range("J4").Value = 15 Then
Columns("J:AJ").Hidden = True

Columns("Z").Hidden = False
'========mengatur lebar kolom ==============
Columns("Z").EntireColumn.AutoFit

ElseIf Range("J4").Value = 16 Then
Columns("J:AJ").Hidden = True

Columns("AA").Hidden = False
'========mengatur lebar kolom ==============
Columns("AA").EntireColumn.AutoFit

ElseIf Range("J4").Value = 17 Then
Columns("J:AJ").Hidden = True

Columns("AB").Hidden = False
'========mengatur lebar kolom ==============
Columns("AB").EntireColumn.AutoFit

ElseIf Range("J4").Value = 18 Then
Columns("J:AJ").Hidden = True

Columns("AC").Hidden = False
'========mengatur lebar kolom ==============
Columns("AC").EntireColumn.AutoFit

ElseIf Range("J4").Value = 19 Then
Columns("J:AJ").Hidden = True

Columns("AD").Hidden = False
'========mengatur lebar kolom ==============
Columns("AD").EntireColumn.AutoFit


ElseIf Range("J4").Value = 20 Then
Columns("J:AJ").Hidden = True

Columns("AE").Hidden = False
'========mengatur lebar kolom ==============
Columns("AE").EntireColumn.AutoFit

ElseIf Range("J4").Value = 21 Then
Columns("J:AJ").Hidden = True

Columns("AF").Hidden = False
'========mengatur lebar kolom ==============
Columns("AF").EntireColumn.AutoFit

ElseIf Range("J4").Value = 22 Then
Columns("J:AJ").Hidden = True

Columns("AG").Hidden = False
'========mengatur lebar kolom ==============
Columns("AG").EntireColumn.AutoFit

ElseIf Range("J4").Value = 23 Then
Columns("J:AJ").Hidden = True

Columns("AH").Hidden = False
'========mengatur lebar kolom ==============
Columns("AH").EntireColumn.AutoFit

ElseIf Range("J4").Value = 24 Then
Columns("J:AJ").Hidden = True

Columns("AI").Hidden = False
'========mengatur lebar kolom ==============
Columns("AI").EntireColumn.AutoFit

ElseIf Range("J4").Value = 25 Then
Columns("J:AJ").Hidden = True

Columns("AJ").Hidden = False
'========mengatur lebar kolom ==============
Columns("AJ").EntireColumn.AutoFit

End If


Worksheets("isinilai").Protect "1", userinterfaceonly:=True
End Sub