برجاء تعديل ماكرو ترحيل الناجح والراسب لنتيجة الصف الثانى

[قنديل الصياد]

برجاء اصلاح كود الماكرو ترحيل الناجح والراسب فى الورقة المسماة 0 نتيجة الصف الثانى ) للاهمية وشكرا

 

اسم المستخدم :     قنديل الصياد

 

 

كلمة السر :   1964

 

 

 

فك الحماية :     1992

 

 

 

 

[ضاحي الغريب]

أخي الكريم // قنديل 

غير قيمة 

 

عندك خطأ في

 y = y +2

غيرها الي

 y = y + 1

Sub ragab_Gr2()

Dim LR As Integer
LR = [b10000].End(xlUp).Row
sheet31.Range("B14:P1000").ClearContents
sheet32.Range("B14:P1000").ClearContents
Application.ScreenUpdating = False
X = 14: y = 14
For i = 13 To LR
    If Cells(i, 16).Value = "äÇÌÍ" And Cells(i, 2) <> "" Then
        Range("B" & i).Resize(1, 16).Copy
        sheet31.Range("B" & X).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        X = X + 1
    ElseIf Cells(i, 16).Value = "쾄 肊" And Cells(i, 2) <> "" Then
        Range("B" & i).Resize(1, 16).Copy
        sheet32.Range("B" & y).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        y = y + 1
    End If
Next i
Application.ScreenUpdating = True
End Sub

كنترول المرحلة الابتدائية2.rar