شرح كود الناجح والراسب والمكمل

[عامر ياسر]

ارجوا من الاساتذة الكرام شرح هذا الكود لطفا ً ... 

Dim LR As Integer
LR = [b10000].End(xlUp).Row
Sheets("17").Range("B6:DA61, B212:DA264").ClearContents
Sheets("18").Range("B6:DA61, B212:DA264").ClearContents
Sheets("19").Range("B6:DA61, B212:DA264").ClearContents

Application.ScreenUpdating = False
X = 6: Y = 6: Z = 6
 For I = 6 To 61
    If Cells(I, 102).Value = "ناجح" And Cells(I, 3) <> "" Then
        Range("b" & I).Resize(1, 103).Copy
        Sheets("17").Range("b" & X).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        X = X + 1
    ElseIf Cells(I, 102).Value = "راسب" And Cells(I, 3) <> "" Then
        Range("b" & I).Resize(1, 104).Copy
        Sheets("18").Range("b" & Y).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Y = Y + 1
    ElseIf Cells(I, 102).Value = "مكمل" And Cells(I, 3) <> "" Then
        Range("b" & I).Resize(1, 104).Copy
        Sheets("19").Range("b" & Z).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Z = Z + 1
    
    End If
 Next I
X = 212: Y = 212: Z = 212
 For I = 212 To 264
    If Cells(I, 102).Value = "ناجح" And Cells(I, 3) <> "" Then
        Range("b" & I).Resize(1, 103).Copy
        Sheets("17").Range("b" & X).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        X = X + 1
    ElseIf Cells(I, 102).Value = "راسب" And Cells(I, 3) <> "" Then
        Range("b" & I).Resize(1, 104).Copy
        Sheets("18").Range("b" & Y).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Y = Y + 1
    ElseIf Cells(I, 102).Value = "مكمل" And Cells(I, 3) <> "" Then
        Range("b" & I).Resize(1, 104).Copy
        Sheets("19").Range("b" & Z).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Z = Z + 1
     End If
 
 Next I
 

Application.ScreenUpdating = True
End Sub