مشكلة في ترحيل الناجحين و الراسبين

[حمدي]

السلام عليكم و رحمة الله

اخواني الاعزاء

توجد مشكلة في كود ترحيل الناجحين و الراسبين كما هو موضح بالملف حيث يظهر اخر طالب ناجح في صفحة الراسبين

و جزاكم الله خيرا

ناجح_راسب.rar

[ياسر خليل أبو البراء]

جرب الكود

Sub ragab()
    Application.ScreenUpdating = False
        Dim R As Integer, M As Integer
        Sheets("ناجح").Range("B5:K4000").ClearContents
        Sheets("راسب").Range("B5:K4000").ClearContents
        M = 6: N = 6
        For R = 6 To 400
            If Cells(R - 3, 4).Value = "ناجح" Then
                Cells(R - 3, "C").Resize(, 2).Copy
                Sheets("ناجح").Range("B" & M).PasteSpecial xlPasteValues
                Application.CutCopyMode = False
                M = M + 1
    
                ElseIf Cells(R - 3, 4).Value = "راسب" Then
                Cells(R - 3, "C").Resize(, 2).Copy
                Sheets("راسب").Range("B" & M).PasteSpecial xlPasteValues
                Application.CutCopyMode = False
                N = N + 1
            End If
           Next
    Application.ScreenUpdating = True
End Sub

[حمدي]

جزاك الله خيرا استاذ ياسر سلمت يداك على الكود الجميل جعله الله في ميزان حسناتك

[أ محمد عبد الصمد]

كيف يمكننى التغير فى الكود لنقل اسم الناجح والراسب فى اعمدة اخرى غير c  ,b  وايضا كيفية يمكن التتغير فى الاعمدة المصدر والتى يتم الترحيل منها

[ياسر خليل أبو البراء]

أخي الفاضل ارفق ملف لمساعدتك ، حيث أن كل شخص يقوم بعمل الشيت بما يلائمه ويختلف أحيانا بشكل كبير

ارفق ملفك ..وبلاش الناس تضايقك من إرفاق الملفات (ساعدني عشان أساعدك)

[أ محمد عبد الصمد]

الاخ الفاضل 

YasserKhalil

وجدت معادلة ترحيل فى المنتدى أدت الوظيفة الم

لوبة شكرا الف شكر لك