الجمع الافقي في الشيت بشروط

[Tarekfathallah]

ارجو المساعدة عندي صفحة بها كذا سطر اريد جمع الاسطر افقياً بشرط عدم جمع الحقل الملون اي الخانة الملونة لا اريد معها 

موجود في المرفق مثال 

جمع افقي بشروط.rar

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

جرب هذا الماكرو

Option Explicit

Sub speciale_sum()
Dim x%: x = 53
Dim k%, col%: col = 23
Dim i%, s#
With Sheets("Sheet1")
  For i = 5 To x
      For k = 3 To col
         If .Cells(i, k).Interior.ColorIndex = 2 _
         Then s = s + Cells(i, k)
       Next
     .Cells(i, col + 3) = s
     s = 0
  Next
End With
End Sub

الملف مرفق

Cond_sum.xls

[Tarekfathallah]

مشكور اخي سليم حاصبيا ادامك الله