مساعدة في برمجة دالة sumif

[عبدالفتاح في بي اكسيل]

السلام عليكم 

لدي  مشكلة  في اظهار اجمالي  القيم  في التيكست بوكس  سواء   المدين  او الدائن  حيث تعطيني القيمة 0   عند لا الاختيار  العميل  من قائمة الكومبوبوكس   علما  انه  ما يوجد في  الكومبوبوكس  يكون مرتبط   بالعملاء  الموجودة  في  الورقة  في  العمود  g    واجمالي  المدين  المرتبط  بالتيكست بوكس 2  يتعلق  بالعمود d   والدائن  مرتبط  بالتيكست بوكس 3 يتعلق  بالعمود e   ارفق لكم الملف  والكود 

Private Sub ComboBox1_Change()
Dim ws As Worksheet
Dim Rng As Range
Dim Sel
Set ws = Sheets("sheet2")
Sel = Me.ComboBox1.Value
If Sel <> "" Then
 Set Rng = ws.Columns(2).Find(Sel, lookat:=xlWhole)
 If Not Rng Is Nothing Then
 Me.TextBox1.Value = ws.Cells(Rng.Row, "c")
Me.TextBox2.Value = Application.WorksheetFunction.SumIf(Range("d:d"), Me.ComboBox1.Value, Range("g:g"))
Me.TextBox3.Value = Application.WorksheetFunction.SumIf(Range("e:e"), Me.ComboBox1.Value, Range("g:g"))
Me.TextBox4 = Val(Me.TextBox2.Value) - Val(Me.TextBox3.Value)
 
 End If
End If
End Sub

 

عملاء1.rar

[omar elhosseini]

شاهد المرفق

 

راجع قيم التكست بوكس الأربع

للتأكد من صحة المعالجة

 

Test_1.rar

[عبدالفتاح في بي اكسيل]

شكر اخي عمر  على  هذا  المجهود  الرائع    ولكن  لي طلب  اخير    في  اليوزرفورم  اريد  جمع رصيد  اول  المدة مع  المدين  ثم يطرح  من الدائن  ليظهر  الناتج في الرصيد 

 

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

تم حل  المشكلة  ولقد قمت  بتعديل  هذا  السطر  في عدد2 ماكرو 

Rassid = Val(First_Duration + Madin) - Val(Dahn)

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

 

[omar elhosseini]

مرحبا اخي

لقد كنت متذكر اضافة رصيد اول المده ولكن في غمرة المراجعه ظهرت بعض العقبات والي ان تغلبت عليها نسيت الاضافة

ولكن جيد جدا  انك استطعت التعديل

هل هناك اي تعديلات او طلبات اخري

تحياتي لك

[عبدالفتاح في بي اكسيل]

بارك  الله فيك      الامور تمام