يا خبراء الاكواد ..النجدة

[الشربيني123]

مرفق ملف اكسيل يا جماعة ...عاوز اعمل ترحيل للناجح والدور التاني ..تظهر رسالة تم الترحيل  و لا تترحل او لا تظهر البيانات 

ارجو حل اللغز ده 

تصميم شيت.rar

تم تعديل يوليو 24, 2016 بواسطه الشربيني123

[أبوعيد]

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

تم حل المشكلة 

تفضل

تصميم شيت1.rar

[الشربيني123]

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

[أبوعيد]

أمين أمين , وأنت كذلك

شكرا على كلماتك الرقيقة

 

[الشربيني123]

ما سر الخطأ او عدم الترحيل ؟ انا ستطبت الوندز  3 مرات 

انا مصري ..لكن اصولي من اليمن ........ عائلتي اسمها  الشاوري 

[أبوعيد]

حللت أهلا ونزلت سهلا 

مرحبا بك مرة أخرى

أخي العزيز الخطأ يكمن في كود الترحيل كما يأتي :

أولا :

 If Cells(R, 64) = "ناجحة" Then

هذا السطر يخبر الكود بأنه إذا كان مكتوب في العمود رقم 64 كلمة ناجحة فقم بترحيلها

والخطأ هو أن كلمة ناجحة أو دور ثان موجودة في السطر 62 وليس 64

ثانيا :

ElseIf Cells(R, 64) = "دور ثاني" Then

في هذا السطر اثنين من الأخطأء

1) الرقم 64 يحول إلى 62 كما تم الشرح أعلاه

2) لا يوجد في برنامجك عبارة "دور ثاني" وإنما يوجد عبارة "دور ثان"

لاحظ حرف الياء في آخر العبارة الموجودة في الكود

الأكسل حساس جدا

تقبل تحياتي

 

[الشربيني123]

انت فاااااااااارس ..اقسم بالله فاارس