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

عندى شيت اكسل 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***********

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

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

اتمنى ان تتواصل معى على الياهو sifa20008

الاستاذ الفاضل خالد دسوقى
 

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

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

عفوآ أخى المنبولى ........ كنت قد بدأت فى شيت تجارة الأثاث والحمد لله قد إنتهيت منه وسأرفقه لك هنا

وكذلك هناك لتجدة هنا أو هناك

أتمنى من الله أن يكون ما أردته

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

لكن انا عيز اعرف انفذ العمل ده على باقى الشيتات الزى ؟
انا بتعامل مع 15 شيت كل واحد بختلف فى عدد المواد

وانا ليس لدى اى خبرة فى الميكرو

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

ولك كل الشكر والتقدير على هذا المجهود