أخى الفاضل
تفضل الملف
الخطأ الذى يجعل الكود لا يعمل على الملف الجديد هو فى هذا السطر
ResSh = Cells(i, 28).Value
حيث يتم تغيير الرقم 28 الى رقم 24 وهو رقم العمود الذى يحتوى على خانة النتيجة
وتم عمل الارتباطات بين الصفحات
وأيضا أكواد معاينة الطباعة والطباعة
الصف الثالث.rar