دة الشيت المطلوب تنفيذ المعادلة علية

[خالد دسوقى]

فى الشيت الذى أرفقته تم تصحيح الخطأ فى الماكرو

lastrow = Range("a" & Rows.cont).End(xlUp).rwo

ب

lastrow = Range("A1").CurrentRegion.Rows.Count

و fals ب false

و ( توسيع ) الخانات فى شيت ناجح


بالتوفيق .

[خالد دسوقى]

فى الشيت الذى أرفقته تم تصحيح الخطأ فى الماكرو

lastrow = Range("a" & Rows.cont).End(xlUp).rwo

ب

lastrow = Range("A1").CurrentRegion.Rows.Count

و fals ب false

و ( توسيع ) الخانات فى شيت ناجح

بالتوفيق .

[المتبولى]

الف شكر استاذى الفاضل على التصحيح

وما رايك فى هذه الطريقة ؟؟؟؟؟؟؟

وهل ينفع اضيف شيت للراسب1 والراسب2 وابطهم بالكود البسيط ده ولا مينفعش

ولو ينفع كيف انفذ ؟؟؟؟

[خالد دسوقى]

أخى الفاضل المتبولى :
فى عام 1985 أخذت دورة فى لغات الكومبيوتر وإخترت البيسك ثم مع مرور الأيام ومع كثرة المشاغل إنقطع إتصالى بالبرمجة .
ومنذ عدة شهور وقع فى يدى عدة شيتات لأخوة أفاضل فوجدت أحدهم يستخدم المعادلات وآخر يستخدم الماكرو وبنظرة سريعة وجدت أنه يمكن إستخدام النظام القديم فى البرمجة .... وبالبحث فى جوجل إستطعت معرفة بعض الأوامر البسيطة التى تساعدنى فى الكتابة .

لست خبيرآ فى الماكرو .....والماكرو الذى أكتبه فى 100 سطر يمكن كتابته فى 5 بإستخدام أوامر لا أعرفها والماكرو فى الشيت الذى أرفقته ( سأهضمه ) وأستخدمه فى المستقبل القريب بإذن الله

[المتبولى]

السلام عليكم استاذ خالد

لو سمحت صحح الكود ده

لانى حاولت كتير

[المتبولى]

السلام عليكم ورحمة الله وبركاته استاذ خالد

اليوم وبفضل الله اشتغلت على 10 شيتات
7 منهم تم الترحيل بنجاح 3 لم تقبل الترحيل وبتظهر الرسالة دى ( subscript out of range ) فما الحل

[خالد دسوقى]

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

[المتبولى]

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

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

ملف السيارات هو ال فيه مشكلة الرسالة

[المتبولى]

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

[خالد دسوقى]

الحمد لله ....... خلصت لك على السيارات

Out of range معناه إنك حددت منطقة معينة وطلبت أشياء خارج المنطقة

راجع Range("A1:EE131").Select

[خالد دسوقى]

أخى المتبولى ......... إنتبه لإسم الشيت ........ شيت 2ث غير شيت 3 ث

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

وإفتح المجال لآخر سطر يعنى لو ee131: خليها ee135:
حتى نجد حل لهذه المشكلة .

[المتبولى]

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

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

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

انا بتغلب عليها يديويا بسمح محتويات الشيت

ارجوا التواصل وتشرفت بك كثير وانتفعت بخبراتك وجزاك الله عنا خير الجزاء

[خالد دسوقى]

تشرفت بمعرفتك وسعدت بالتعاون معك وتعلمت معك الكثير .

بارك الله فيك ولك .

[المتبولى]

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

طلب اخر لو سمحت

بالنسبة للدوائر الحمراء على الراسب كيفة افعل ذلك

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

[خالد دسوقى]

أخى المتبولى ....... أعتذر عن تغيبى اليومين الماضيين لبعض المشاغل

وأما التنسيق الشرطى فله فرعان :

من الشريط أعلى الشاشة :

1- Format ====>Condtional Formating

2 - Data ==== > Validation

راجع الأرقام المكتوبة