استبدال فصل بفصل اخر

[فوزى فوزى]

اولا اشكر الاستاذ سليم على هذا العمل والجهد المتواصل فى مساعدة الاخرين 

السلام عليكم ورحمة الله وبركاته الى خبراء هذا المنتدى الرائع نرجو عمل كود يقوم باستبدال فصل الى فصل اخر بناء على الجدول نقل الطلاب بمعاير النوع والعدد والفصل توضيح اكثر اريد انقل من الذكور من قصل 6 / 1 اثنين انفلهم الى فصل 6 / 2 وهكذا مع الاناث  وهذا جدول توضيحى مع عمل لون للفصول التى تم تغيرها

تغير الفصول.xlsm

[طارق محمود]

السلام عليكم

أخي الكريم
جرب تستخدم هذا الكود
 

Sub nnn()
cycle = WorksheetFunction.CountA([N8:N30]) - 1
If cycle < 2 Then Exit Sub
lr = Cells(999, 1).End(xlUp).Row
    For c = 1 To cycle
        T = Cells(c + 8, "N")
        n = Cells(c + 8, "O")
        old = Cells(c + 8, "P")
        nw = Cells(c + 8, "Q")
        rep = 0
        For r = 9 To lr
            A = Cells(r, "C")
            B = Cells(r, "D")
            If B = old And A = T And rep < n Then
               With Cells(r, "D")
                .Value = nw
                .Interior.Color = 212
               End With
               rep = rep + 1
            End If

        Next r
        
    Next c
End Sub

أو تفضل الملف به الكود

تغير الفصول.xlsm

[فوزى فوزى]

الله يحفظك يابشمهندس شغل محترفين وشكر على سرعة الرد متمنين لكم دوام الصحة والعافية وبارك الله فيكم الف الف شكر مع تحياتى لشخصكم الكريم

بعد اذنك يابشمهندس طارق ممكن اضافة على الكود ان ينسخ اسماء الطلاب اللى تم نقلهم من فصل الى فصل اخر لتوضيح المطلوب فى العمود S يجلب اسماء الطلاب فى العمود T يحلب من فصل وفى العمود U يجلب الى فصل شاكرين مساعيكم الى فعل الخير 

[طارق محمود]

تفضل المطلوب

تغير الفصول.xlsm

[فوزى فوزى]

الله يحفظك يابشمهندس شغل راقى وفكر عالى والحمد لله أخيراً توصلت للمراد بما قدمته لي من عون ومساعدة فهذا هو ما كنت أحتاج الوصول إليه ويعلم الله كم فرحتي كبيرة وأنا أرى نتائج عملك وجهدك الطيب وبارك الله فيك وفي علمك وعملك 

[طارق محمود]

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

 

[فوزى فوزى]

الحمد لله تم المطلوب على اكمل وجه بفضل الله ثم بفضلكم