ماهو خطأ هذا الكود

[الشاب يوسف]

ناجح وراسب.rarهذا الكود من تصميم أخد الأخوه الأفاضل فى هذا المنتدى ولكنى حاولت التعديل فية ولكن ظهر خطا ما فى الترحيل لا أعرفه فارجو من الأخوه مساعدتى فى تصحيحه الملف (ناجح وراسب)هو المقصود تصحيحة والملف( ناجح وراسي 2) هو الأصلى الغير معدلناجح وراسب2.rar

[رجب جاويش]

تفضل أخى

ناجح وراسب.rar

[الشاب يوسف]

لك الشكر اخى الغالى بارك الله فيك

[رجب جاويش]

أخى الفاضل

هذا اختصار للكود السابق

Sub SEPARATION()

Application.ScreenUpdating = False

Sheets("äÇÌÍ").Range("B4:Y1000").ClearContents

Sheets("ÑÇÓÈ").Range("B4:Y1000").ClearContents

Dim ResSh As String

For y = 4 To Cells(1000, 23).End(xlUp).Row

ResSh = Cells(y, 23).Value

AA = Sheets(ResSh).Cells(1000, 23).End(xlUp).Row + 1

On Error Resume Next

Range(Cells(y, "B"), Cells(y, "y")).Copy

Sheets(ResSh).Range("b" & AA).PasteSpecial xlPasteValues

Application.CutCopyMode = False

Next y

Application.ScreenUpdating = True

MsgBox "Êã ÝÕá ÇáäÇÌÍíä æÇáÑÇÓÈíä ÈßÔÝíä ãäÝÕáíä ÈäÌÇÍ"

End Sub

ناجح وراسب تعديل 1.rar