Modul Cek Nilai Rt2 Ganjil

Option Explicit

Sub cek_nilai_rata2ganjil()


Worksheets("rtganjil").Unprotect "1"

    
        
    
'#########################################################


Dim barisakhir As Byte
Dim barisakhir5 As Byte
Dim baris As Byte
Dim kolomakhir As Byte

'===menghapus nilai ke bawah yang tidak ada nama siswanya======

barisakhir = Worksheets("rtganjil").Range("D9").Value + 11
Cells(barisakhir, 7).Select
Range(Selection, "G60").Select
Selection.ClearContents
Range("G11").Select

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