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

[المتبولى]

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


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


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

[المتبولى]

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

[learnme1000]

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

[المتبولى]

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

[نعيم أحمد زمزم]

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

[shokeir]

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

[shokeir]

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

[المتبولى]

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

[المتبولى]

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

[المتبولى]

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

[medoomer]

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

[المتبولى]

محتاج الشرح ده ضرورى وجزاكم الله خير

[خالد دسوقى]

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

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

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

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


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

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

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

[dosoky2002]

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

[المتبولى]

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

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

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

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

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