شرح كود

[رندة ابراهيم]

ارجو توضيح الكود بالتفاصيل

 Private Sub Worksheet_Activate()
ActiveSheet.Unprotect Password:=1234
Sheets("sts").Range("c9:c58").Value = ""
For l = 9 To 58
t = 8
    If Sheets("anyls").Range("b" & l).Value <> "" Then
        For i = 67 To 90
            If Sheets("anyls").Range(Chr(i) & l).Value <> "" Then
              If Sheets("anyls").Range(Chr(i) & l).Value = 0 Then
                Sheets("sts").Range("c" & l).Value = Sheets("sts").Range("c" & l).Value & " - " & Sheets("pts").Range("b" & t).Value
              End If
            End If
t = t + 1
        Next
        For k = 65 To 89
            If Sheets("anyls").Range("a" & Chr(k) & l).Value <> "" Then
              If Sheets("anyls").Range("a" & Chr(k) & l).Value = 0 Then
                Sheets("sts").Range("c" & l).Value = Sheets("sts").Range("c" & l).Value & " - " & Sheets("pts").Range("b" & t).Value
              End If
            End If
t = t + 1
        Next
    End If
Next
ActiveSheet.Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[ياسر خليل أبو البراء]

الأخت الفاضلة يرجى إرفاق الملف الذي يحتوي على الكود ..