جمع عمود والمعيار بعمود آخر

[عاطف عبد العليم محمد]

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

الموضوع بسيط حاولت البحث عن الحل ولم أفلح 

عندي عمود فيه ارقام  حساب وعمود آخر فيه المبالغ 

اريد جمع المبالغ لعدة ارقام حساب متوالية مثلا من 1 الى 3

المرفق فيه توضيح و لكن البيانات الفعلية كثيرة 

ف ارجو ان يكون الرد صالح لذلك

و ان امكن بكود يكون افضل

شاكرا لكم

جمع مشروط.xlsx

[ابراهيم الحداد]

السلام عليكم و رحمة الله

استخدم هذا الكود

Sub Summing()
Dim C As Range, i As Long
Dim a As Integer, b As Integer
i = 3
Do While i <= 4
a = Range("E" & i): b = Range("F" & i)
For Each C In Range("A3:A9")
If C.Value >= a And C.Value <= b Then
k = k + C.Offset(0, 1)
Range("G" & i) = k
End If
Next
k = 0
i = i + 1
Loop

End Sub

 

[عاطف عبد العليم محمد]

تمام بارك الله فيكم وجزاكم الله خيرا