يرجى المساعده فى صياغة معادله

[الصفتى]

C3:BZ3لو سمحتم ممكن المساعده فى صياغة معادله مضمونها جمع الدفعات الموجوده فى النطاق 

CA3و ذلك فى حالة ان تواريخ هذه الدفعات و الموجوده فى نفس النطاق اصغر من او يساوى التاريخ الموجود فى الخليه 

و لكم جزيل الشكر

مثال.xlsx

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

هذه المعادلة من دون الــ Excel table الصفحة Salim من هذا الملف

=SUMPRODUCT(--($C3:$BZ3<40000)*(($C3:$BZ3)))

الرقم 40000 يقابل تاريخ 6/7/2009 ولا اعتقد ان هناك تاريخ في الجدول اقدم منه

او اذا اردتها من خلال الــ Excel table

=SUMPRODUCT(--(Table1[@[دفعه 1]:[تاريخ 38]]<40000)*(Table1[@[دفعه 1]:[تاريخ 38]]))

الملف مرفق

 

example.xlsx

[الصفتى]

CA1شكرا استاذ سليم لاهتمام حضرتك بس اللى انا عايزه ان الجمع يتحقق بشرط ان تواريخ الدفعات قبل التاريخ الموجود فى الخليه 

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

4 دقائق مضت, الصفتى said:

CA1شكرا استاذ سليم لاهتمام حضرتك بس اللى انا عايزه ان الجمع يتحقق بشرط ان تواريخ الدفعات قبل التاريخ الموجود فى الخليه 

هذه الحكاية يلزمها ماكرو

[الصفتى]

اخ فاضل افادنى بالحل و لكى تعم الفائده الحل هو

=SUMPRODUCT(C3:BY3*(D3:BZ3<=$CA$1)*ISODD(COLUMN(C3:BY3)))

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

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

على كل حال اذا كنت تريدها بواسطة الماكرو

Option Explicit
Sub sum_befor_date()
Dim i%, x%, s#, My_date As Date
Dim k%: k = 3
My_date = [CA1]

Range("CA3", Range("CA2").End(4)).ClearContents
x = Cells(1, Columns.Count).End(1).Column - 1
Do Until Cells(k, 3) = vbNullString
        
        For i = 3 To x Step 2
         If CDate(Cells(3, i + 1)) > My_date Then Exit For
         s = s + Cells(3, i)
        Next
         Cells(k, "CA") = s: s = 0
         k = k + 1
 Loop
End Sub

 

[الصفتى]

شكرا جزيلا