DarkgateZO

الأخوة الكرام السلام عليكم ورحمة الله وبركاته مرفق ملف ( تحصيل + مبيعات + مر.مبيعات ) العملاء والمطلوب تقرير , استدعاء تجميعي أي رصيد كل عميل التحصيل.rar

السلام عليكم ورحمة الله وبركاته ,,, الأخوة الكرام هل ممكن موافاتي بشرح كود الماكرو , للملف المذكور بالموضوع حتى أتمكن من استخدامه . مرفق الملف . ولكم مني كل الشكر . وهذا الكود ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, : Sub fusion() Set d1 = CreateObject("Scripting.Dictionary") Set f1 = Worksheet____4 a = f1.Range("C3:E" & f1.[c65000].End(xlUp).Row) Set f2 = Worksheet____7 b = f2.Range("C3:E" & f2.[c65000].End(xlUp).Row) n = UBound(a) + UBound(b) Dim c: ReDim c(1 To n, 1 To 5) m = 0 For i = LBound(a) To UBound(a) If Not d1.exists(a(i, 1)) Then m = m + 1: d1(a(i, 1)) = m: p = m Else p = d1(a(i, 1)) c(p, 1) = a(i, 1): c(p, 2) = a(i, 2): c(p, 3) = a(i, 3) Next i For i = LBound(b) To UBound(b) If Not d1.exists(b(i, 1)) Then m = m + 1: d1(b(i, 1)) = m: p = m Else p = d1(b(i, 1)) c(p, 1) = b(i, 1): c(p, 4) = b(i, 2): c(p, 5) = b(i, 3) Next i Worksheet____8.[C4].Resize(d1.Count, UBound(c, 2)) = c End Sub دمج جدولين.rar