ترحيل

[waledms]

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

الشيت المرفقة توجد مشكلة تظهر عند الضعط على زر فصل الناجح عن الراسب فى شيت الإدارة ... أرجو تصحيح الخطأ... جزاكم الله خيراً

‏‏2018شيت مدرستى الصف السادس.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

في كود الترحيل يوجد خطأ في الأمر التالي:

ResSh = Trim(Cells(I, 21).Value)

الذي يحدد قيمة المتغير ResSh الممثل لاسم الشيت الذي يتم الترحيل إليه (ناجح - دور ثان) حسب خلايا العمود رقم 21 (وهو الخطأ)، غير أن كلمتي (ناجح - دور ثان) موجودتان في العمود V الذي رقمه 22 وليس 21، لذا يجب تصحيح الأمر السابق بتغيير العدد 21 بالعدد 22 فيكون كما يلي:

ResSh = Trim(Cells(I, 22).Value)

والله أعلم

تم تعديل ديسمبر 23, 2017 بواسطه بن علية حاجي

[waledms]

الله ينور عليك .... وجزاك الله خيرا

[ناصر سعيد]

هل يمكن يا اخ وليد ان تضع الملف الاخير

وهو يعمل جيدا حتى يكون مساهمه

لاخوانك الذين يبتغون مثل هذا العمل