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

[jihad1972]

السلام عليكم

أحتاج مساعدتكم في كود يحسب رصيد الحساب في كل عملية في الخلية من العمود F

علما انه يوجد اكثر من حساب

مرفق ملف

Book1.xlsx

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

اقترح هذا الماكرو

Option Explicit

Sub CALCUL()
Dim MY_DIC As Object
Dim K, m#, x%: x = 3
Set MY_DIC = CreateObject("Scripting.Dictionary")
With MY_DIC
    Do Until Range("B" & x) = vbNullString
        K = Range("B" & x): m = Range("D" & x)
            If Not .exists(K) Then
               .Add K, m
            Else
               MY_DIC(K) = MY_DIC(K) + m
            End If
             x = x + 1
     Loop
        Range("F3").Resize(.Count) = _
        Application.Transpose(.Keys)
        Range("G3").Resize(.Count) = _
        Application.Transpose(.Items)
    .RemoveAll: Set MY_DIC = Nothing
End With
End Sub

الملف مرفق

 

Working_with_dictionary.xlsm