تعديل كود الجمع

[khairi ali]

في الملف المرفق أريد التعديل على كود الجمع 

تعديل كود الجمع.xlsm

[سليم حاصبيا]

الأفضل رقع ملفات بدون زركشة الوان (اسهل على المتابعة)

مبدئياً هذا الكود (يتحاهل النصوص والفراغات)

Sub sum()
    Dim mr As Worksheet
    Dim lr%, i%, x%
 
    Set mr = Sheets("mark-s")
 With mr
      lr = .Range("c" & Rows.Count).End(xlUp).Row
    For i = 9 To lr
       For x = 12 To 103 Step 13
            With .Cells(i, x)
             .Value = _
             Val(.Offset(, -3)) + _
             Val(.Offset(, -2)) + _
             Val(.Offset(, -1))
            End With
       Next x
   Next i
 End With

End Sub

 

[khairi ali]

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