شرح معادلة نقل الراسبو الناحج لشيت مستقل
 

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


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


ارجو الاهتمام للضرورة

فين الشرح يا سادة انا محتاج لها جدا جدا جدا

1- عمل ماكرو - يسمى باي اسم
2- اعمل فلترة اثناء تسجيل الماكرو لكلمة ناج - أو راسب
3- ثم اغلق الماكرو
4- اضغط على زري alt+f11 وذلك لتجرب الماكرو فتفتح لك نافذة الفيجوال بيسك
هناك تعدل في الكود الخاص بالماكرو كا لاتي :


Dim lastrow As Long
Application.ScreenUpdating = False
With Sheets(9)
.AutoFilterMode = False
lastrow = Range("a" & Rows.Count).End(xlUp).Row
.Range("a4:ao436").Select
.Selection.AutoFilter
ActiveSheet.Rang("a1:ao436").Select.AutoFilter Field:=1, Criteria1:="????"
Selection.AutoFilter Field:=1, Criteria1:="????"
.Range("a1:ao436" & lastrow).copysheet("????").Range ("a1")
.AutoFilterMode = False
End With
Application.ScreenUpdating

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

ياليت الشرح يكون مبسطا
مع خالص شكرى وتقديرى

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

السلام عليكم ورحمة الله وبركاته
إليكم مساهمة بسيطة لعلها تفي بالغرض فصل الناجحين عن الراسبين بالمعادلة
وهي منقولة من منتديات الاكسيل لعلها تفي بالغرض

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

الرجاء من السادة خبراءالاكسل الاهتمام

بالله عليكم انا فى الانتظار لا تبخل

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

أخى المتبولى .... كتابة الماكرو ليس بالأمر الصعب ولكن لابد من أن يكون لديك خلفية عن القيجوال بيسيك

غدآ يإذن الله تعالى سأطرح " الشيت الجامع " وهو غير محمى

فى صفحة الطباعة وعلى طباعة نتيجة الدور الثانى ( إضعط بيمين الماوس ) ثم إختر AssignMaro ثم إضغط Edit

ممكن للتبسيط على سبيل المثال
=a1
=a2
=a3


If Range("CP" & b3) = a1 Then

If Range("CP" & b3) = a2 Then

If Range("CP" & b3) = a3 Then

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

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

لان الشيت لم يبق به الا هذا الامر فقط وانا محتاجة فبل امتحانات الدور الثانى

فلو تكرمت توصل معى

والمطلوب انا وضحته فى المشاركة ال فى اول الصفحة وجزاك الله خير

sifa20008***********