كود جلب إسم العميل مع المتبقى له او عليه سواء مدين او دائن

[محمد المفترس]

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

تم تعديل العنوان

 

‫حسابات - نسخة.xlsm

[حسين مامون]

ضع هذا الماكرو في مديول

غير اسم الشيت الديون الى data1

واسم الشيت العملاء data2

او غير رهما في الماكرو الى العربي في الصف الثالث والرابع

Sub test()
Dim ws As Worksheet
Dim ws2 As Worksheet
Set ws = Sheets("data1")
Set ws2 = Sheets("data2")
Dim lr, lr2, x, xx, x1, x2, y
Application.ScreenUpdating = False
lr = ws.Cells(Rows.Count, "c").End(3).Row
lr2 = ws2.Cells(Rows.Count, "b").End(3).Row
For xx = 2 To lr2

For x = 6 To lr
If ws2.Cells(xx, "b").Text = ws.Cells(x, "c") Then
x1 = x1 + Val(ws.Cells(x, "e"))
x2 = x2 + Val(ws.Cells(x, "g"))
End If
ws2.Cells(xx, "c") = x1 - x2

Next
x1 = 0
x2 = 0
Next
Application.ScreenUpdating = True

End Sub

 

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

لا لزوم للكود 

في هذه الحالة  تكفي هذه المعادلة ( في الخلية C2 و تسحب نزولاً)

=SUMPRODUCT((الديون!$C$6:$C$100=$B2)*(الديون!$E$6:$E$100-الديون!$G$6:$G$100))