ااعجبنى كود جميل لفصل الناجحين والراسبين كل على حدة
فارجو اضافة اسم صفحة كشف الرصد مثال : رصد اول / رصد ثان ى / رصد ثالث / رصد رابع / رصد خامس
واليكم الكود فالرجا التعديل عليه
Sub SEPARATION()
Application.ScreenUpdating = False
Dim ResSh As String
Sheets("ناجح").Range("A6:DN1000").ClearContents
Sheets("راسب").Range("A6:DN1000").ClearContents
ee = [DN1007].End(xlUp).Row
For i = 10 To Cells(1007, 118).End(xlUp).Row
ResSh = Trim(Cells(i, 118).Value)
AA = Sheets(ResSh).Cells(1000, 118).End(xlUp).Row + 1
On Error Resume Next
For ii = 1 To 118
Sheets(ResSh).Cells(AA, ii).Value = Cells(i, ii).Value
Next
Next
Application.ScreenUpdating = True
MsgBox "تم فصل الناجحين والراسبين بكشفين منفصلين بنجاح"
End Sub