عندي خطاء في الكود

[احمد 505]

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

اساتذتي الكرام

ارجوا النظر في المرفق

حيث اني اذا ضغطت على ايقونة اختبار

تظهر لي رسالة (Run-time'13' Type mismach)

وحينما اضغط على Debug يظهر لون اصفر على الكود

والا ادري ماذا افعل

اشكركم جميعا.

فحص.rar

[ياسر خليل أبو البراء]

وعليكم السلام

جرب السطر التالي بدلاً من السطر الذي فيه المشكلة

Range("AH" & x).Value = Application.WorksheetFunction.Sum(Range("AG" & x).Value, 366)

 

[احمد 505]

المعذرة استاذي ابو البراء

لا تزال الرسالة تظهر

[احمد 505]

up

[ياسر خليل أبو البراء]

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

عموماً حاول تشرح للأخوة الكرام المطلوب من الكود لكي تجد استجابة أفضل

[احمد 505]

اشكرك اخي الكريم