توزيع المواد على الوكلاء

[الشيباني1]

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

توزيع المواد تحت اسماء اعمدتها رجب3.zip

[عبدالله المجرب]

السلام عليكم

جرب هذا الكود

Sub ragab()

[c2:p21].ClearContents

For i = 2 To 21

    For Each cl In [c1:p1]

	    For Each cel In Sheet3.[D5:D17]

	    If Cells(i, 1) = cel And cl = cel.Offset(0, 1) Then

  Cells(i, cl.Column) = Cells(i, cl.Column) + cel.Offset(0, 2)

  End If

	   Next

    Next

Next

End Sub

[الشيباني1]

استاذنا العزيز مع جزيل شكري وتقديري لسرعة الرد وروعته اتساءل عن امكانية تعديل الكود ليتناسب مع التعديل الذي اجريته على المثال مع الامتنان

توزيع المواد تحت اسماء اعمدتها رجب4.zip

[الزير]

بعد إذن الاستاذ عبدالله المجرب (غير اسمه مقابيل رمضان )

جرب هذا التعديل من قبل العبد الفقير الى الله

Sub ragab_3()

[c2:p21].ClearContents

For i = 2 To 21

    For Each cl In [c1:p1]

	    For Each cel In Sheet3.[E5:E17]

	    If Cells(i, 1) = cel And cl = cel.Offset(0, -1) Then

  Cells(i, cl.Column) = Cells(i, cl.Column) + cel.Offset(0, 1)

  End If

	   Next

    Next

Next

End Sub

[الشيباني1]

اشكرك اخي العزيز وجزاك الرحمن خير الجزاء