مشكلة في كود الترحيل

[العنكوش]

اعزائي اساتذتي اعضاء ومشرفين وخبراء المنتدى

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

وفرحتي كانت كبيرة اذ ان الكود عمل بعد التعديل من قبلي عليه وبعد جهد جهيد

الا ان فرحتي لم تكتمل اذ ان الناجحين تم ترحيلهم بدون اي مشكلة وتمام الا ان الراسبين كانت نقلهم بين صف واخر اعني يترك صفا فارغا بين طالب واخر فما المشكلة التي في الكود بحيث يعمل هذا .... كما عندي طلب اخر هل ممكن اضافة سطر للكود بحيث يمسح كل البيانات المرحلة (اي في شيتي الناجحين والراسبين)للاستفادة من اي تغيرات في شيت النتائج وبالتالي نرحل حسب التغييرات الجديدة.

انتظر ردودكم التي تغني الموضوع دائما وابدا

وشكرا لكم

 

Sub ragab()

Dim LR  As Integer

LR = [c10000].End(xlUp).Row

Sheets("success").Range("c5:r1000").ClearContents

Sheets("fail").Range("c5:r1000").ClearContents

Application.ScreenUpdating = False

x = 5: y = 5

For I = 5 To LR

    If Cells(I, 16).Value = "0" And Cells(I, 2) <> " " Then

        Range("a" & I).Resize(1, 17).Copy

        Sheets("success").Range("a" & x).PasteSpecial xlPasteValues

        Application.CutCopyMode = False

        x = x + 1

    ElseIf Cells(I, 16).Value > "0" And Cells(I, 2) <> " " Then

        Range("a" & I).Resize(1, 17).Copy

        Sheets("fail").Range("a" & y).PasteSpecial xlPasteValues

        Application.CutCopyMode = False

        y = y + 2

    End If

Next I

تم تعديل أغسطس 30, 2014 بواسطه العنكوش

[أبوســـارة1973]

أرفق الملف لنتابع عمل الكود

[العنكوش]

اليكم مثال في الملف المرفق والف تحية لك اخي

الطلب كما ذكرت مشكلة  في شيت الراسبين 

وطلب اخر وضع امرا اختياريا لمسح محتويات الشيتين ( الراسبين والناجحين) عند الحاجة

copy.rar

تم تعديل أغسطس 30, 2014 بواسطه العنكوش

[أبوســـارة1973]

أخي العنكوش

 

تم حل المشكلة

fail_success.rar

[العنكوش]

شكرا اخي     أبوســـارة  وانا ممتن منك فعلا 

ولدي طلب اخر يا اعزائي ان كانت الاسماء تبدا من العمود t والدروس تتبعها e ثم f  وهكذا وليس من العمود c فكيف يتم الترحيل؟ باستخدام ذات الكود؟ تحياتي لمروركم 

تم تعديل أغسطس 31, 2014 بواسطه العنكوش