لم استطع تطبيق الشرح على الشيت الخاص بى و اريد ان اعرف ما اغيره فى كود الاخ رجب جاويش ليتناسب مع شيتى علما بان الشيت الخاص بى يبدأ المسلسل من a10 و الدرجات من i10 و كلنة راسب او ناجح تظهر فى الخلية bh10 و اخر الصفوف 300 و آخر خليه فى الشيت هى bh10
و هذا هو كود الاخ رجب جاويش ارجو توضيح ما يجب تغييره ليتناسب مع الشيت الخاص بى و شكرا
sub ragab()
Dim lr As Integer, y As Integer
lr = [b10000].End(xlUp).Row
Sheets("ناجحون").Range("a9:ho1000").ClearContents
Sheets("راسبون").Range("a9:ho1000").ClearContents
Application.ScreenUpdating = False
x = 9: y = 9
For i = 9 To lr
If Cells(i, 3).Value = "ناجح" And Cells(i, 4) <> " " Then
Range("a" & i).Resize(1, 223).Copy
Sheets("ناجحون").Range("a" & x).PasteSpecial xlPasteValues
Application.CutCopyMode = False
x = x + 1
ElseIf Cells(i, 3).Value = "له دور ثان" And Cells(i, 4) <> " " Then
Range("a" & i).Resize(1, 223).Copy
Sheets("راسبون").Range("a" & y).PasteSpecial xlPasteValues
Application.CutCopyMode = False
y = y + 1
End If
Next i
MsgBox "تم بحمد الله فصل الناجحين والراسبين فى كشوف منفصلة", vbOKOnly, "ترحيل الناجحون والراسبون"
Application.ScreenUpdating = True
End Sub