جمع المبالغ وجمع الديون عن مدة فى تاريخ من الى تاريخ

[omhamzh]

السلام عليكم اهل المنتدى

احتاج مساعدة منكم ال الخبرة

لدى جدول به 5 اعمدة المسلسل والتاريخ والاسم والمبلغ واجمالى الديون

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

خالص الدعاء لحضرتكم عن ظهر الغيب

المبلغ عن مدة.xlsm

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

المعادلة في الصورة

تكتب و تسحب يساراً

[حسين مامون]

ربما يكون المطلوب

Option Explicit

Sub tot()
Dim lr, x, to1, to2
Dim Dt1, Dt2
to1 = 0
to2 = 0
 Dt1 = [a2]
 Dt2 = [b2]
lr = Cells(Rows.Count, 2).End(3).Row
For x = 5 To lr
 If Cells(x, 3).Text = Range("c2") Then
 Select Case Cells(x, 2).Value2: Case Dt1 To Dt2
 to1 = to1 + Cells(x, 4).Value
 to2 = to2 + Cells(x, 5).Value
End Select
End If
Next x
Range("d2").Value = to1
Range("e2").Value = to2

End Sub

 

[omhamzh]

بارك الله فى حضرتك استاذ سليم خالص الدعاء لحضرتك والله

هل بالامكان تجنب المعادلات بكود من روائع حضرتك اكون ممنونة وشاكرة لحضرتك اسعدك الله بين العباد

استاذ ابو القاسم المعادلة لا تعطى نتائج صحيحة بالتاريخ مشكور

استاذ سليم حاصبيا المعادلة تعمل ممتازة زادك الله من فضله

استاذ حسين مامون بارك الله فيك هذا الكود ممتاز يعمل تمام التمام زادك الله من فضله

اشكركم اخوانى الافاضل اسعد الله اوقاتكم بكل خير ان شاء الله

اختكم فى الله

 

[omhamzh]

معلش استاذ حسين مامون 

هل بالامكان اختيار ايضا الكل فى قائمة الاسم اذا اختارت الكل يحضر جميع المبالغ وجميع الديون لكل الاسماء

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

[ابو القاسم]

المبلغ
=SUMIFS(D5:D18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2;$C$5:$C$18;$C$2)
  الدين
   =SUMIFS(E5:E18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2;$C$5:$C$18;$C$2) 

اعذرني اختي لم انتبه لموضع التاريخ طريقة اخري 

[omhamzh]

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

[ابو القاسم]

المبلغ
=IF(C2="الكل";SUMPRODUCT(D5:D18);SUMIFS(D5:D18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2;$C$5:$C$18;$C$2))
  الديون
    =IF(C2="الكل";SUMPRODUCT(E5:E18);SUMIFS(E5:E18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2;$C$5:$C$18;$C$2))

دي للكل

[omhamzh]

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

معادلة الكل بها مشكلة مع التاريخ استاذ ابو القاسم جرب تمسح التاريخ بردو هتجيب اجمالى مع الشكر

اتمنى تعديل من حضرتك استاذ حسين للكود ليصبح الموضوع متكامل مع خالص الشكر

تم تعديل ديسمبر 24, 2020 بواسطه omhamzh

[ابو القاسم]

المبلغ
=IF(C2="الكل";SUMIFS(D5:D18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2);SUMIFS(D5:D18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2;$C$5:$C$18;$C$2))
  الدين
   =IF(c2="الكل";SUMIFS(E5:E18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2);SUMIFS(E5:E18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2;$C$5:$C$18;$C$2)) 

تم التعديل 

 

تم تعديل ديسمبر 24, 2020 بواسطه ابو القاسم

[omhamzh]

استاذ ابو القاسم بارك الله فيك اخى المعادلة تعمل تمام مع الكل اما اذا اخترات اى اسم اخر لا تعمل 

انا اسفة اخى

 

[ابو القاسم]

المعدلة تعمل 

المبلغ
=IF($C$2="الكل";SUMIFS(D5:D18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2);SUMIFS(D5:D18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2;$C$5:$C$18;$C$2))
  
الدين
  =IF(C2="الكل";SUMIFS(E5:E18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2);SUMIFS(E5:E18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2;$C$5:$C$18;$C$2))
  

ودي تعديل للكود لاخي حسين مامون للكل 

Sub tot()
Dim lr, x, to1, to2
Dim Dt1, Dt2
to1 = 0
to2 = 0
 Dt1 = [a2]
 Dt2 = [b2]
lr = Cells(Rows.Count, 2).End(3).Row
If Cells(2, 3) <> "الكل" Then
For x = 5 To lr
 If Cells(x, 3).Text = Range("c2") Then
 Select Case Cells(x, 2).Value2: Case Dt1 To Dt2
 to1 = to1 + Cells(x, 4).Value
 to2 = to2 + Cells(x, 5).Value
End Select
End If
Next x
ElseIf Cells(2, 3) = "الكل" Then
For x = 5 To lr
 Select Case Cells(x, 2).Value2: Case Dt1 To Dt2
 to1 = to1 + Cells(x, 4).Value
 to2 = to2 + Cells(x, 5).Value
End Select
Next
End If
Range("d2").Value = to1
Range("e2").Value = to2
End Sub

 

[omhamzh]

حفظك الله ورعاك تمام تسلم ايدك انا متأكدة انك بوقت قصير ستصبح برتبة خبير

وانت تستاهل والله تسلم ايدك بارك الله فيك اخى اشكرك وادعوا لك بكل خير

اختك

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

اذا كان لا بد من الكود

Option Explicit

Sub My_code()
With Range("D2").Resize(, 2)
    Select Case True
    Case Range("C2") = vbNullString
     .Formula = "=SUMPRODUCT(($B$5:$B$50<=MAX($A$2:$B$2))*($B$5:$B$50>=MIN($A$2:$B$2))*D$5:D$50)"
     
      Case Else
     .Formula = "=SUMPRODUCT(($B$5:$B$50<=MAX($A$2:$B$2))*($B$5:$B$50>=MIN($A$2:$B$2))*($C$5:$C$50=$C$2)*D$5:D$50)"
    End Select
    
    .Value = .Value
End With
End Sub

 

[omhamzh]

بارك الله فيك استاذ سليم مشكور تعبك

حفظك الله

[خيماوي كووول]

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

اضافة .. بالمعادلات ..

sumifs ..

اجمالي المبلغ

=SUMIFS(D5:D10,C5:C10,"="&C2,B5:B10,"<="&B2,B5:B10,">="&A2)

اجمالي الديون

=SUMIFS(E5:E10,C5:C10,"="&C2,B5:B10,"<="&B2,B5:B10,">="&A2)

SUMPRODUCT

اجمالي المبلغ

=SUMPRODUCT(--(B5:B10<=B2),--(B5:B10>=A2),--(C5:C10=C2),D5:D10)

اجمالي الديون

=SUMPRODUCT(--(B5:B10<=B2),--(B5:B10>=A2),--(C5:C10=C2),E5:E10)

المبلغ عن مدة.xlsm

[omhamzh]

اتقدم لسياتك استاذ خيماوى بخالص الشكر والدعاء