المواد غير المجهزه

[الشيباني1]

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

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

لم يتم التوضيح في المرفق بالمطلوب

[الشيباني1]

اعتذر اخي العزيز عن خطأ غير مقصود بارفاق ملف بعيد عن الموضوع وسأرفق الملف الصحيح غدا بأذن الله تحياتي

[الشيباني1]

استاذنا العزيز الملف الصحيح مع الاعتذار

Book11.zip

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

هل ممكن التوضيح بمثال على المرفق حتى تتبين الصورة

[الشيباني1]

استاذنا العزيز مع تقديري لاهتمامكم ارفق المف بعد توضيح ما مطلوب مع الامتنان

Book12.zip

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

السلام عليكم

تفضل المرفق فباتغيير في الخلية AK سيتم جلب المواد التي لم يختارها الوكيل

Book12 (1).zip

[الشيباني1]

استاذنا العزيز تحية طيبه مع جزيل شكري وتقديري لما تقدمون من اسعاف وانقاذ ارجو النظر في موضوع امتناع بعض الاسماء من الظهور ضمن قائمة الفرز للمواد حيث ان الوكيل (محمد 3 )مثلا لم يسحب من (الماده6 )ولكنها لم تظهر في الجدول المفرز اضافة الى بعض الوكلاء الآخرين الذين تمت تجربتهم.

اتمنى ان يكون السبب بسيطا بأذن الله فالموضوع رائع بكوده ومفيد جدا لي في عملي مع الامتنان

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

السلام عليكم

استبدل الكود بهذا (تم استعمال عمود مساعد (AZ))

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cl As Range, cel As Range

r = 6: T = 2

If Not Intersect(Target, [AK5]) Is Nothing Then

[Ak6:Ak150,AZ2:AZ150].ClearContents

For Each cl In [D5:D60]

If cl = Target Then MyArr = MyArr & cl.Offset(0, 1) & ","

Next

For Each c In Split(MyArr, ",")

Cells(T, "AZ") = c

T = T + 1

Next

For Each cel In Sheets("ورقة2").[B5:B100]

w = Application.CountIf([AZ2:AZ150], cel)

If w = 0 Then MyAr = MyAr & cel & ","

Next

For Each c In Split(MyAr, ",")

Cells(r, "AK") = c

r = r + 1

Next

End If

End Sub

[mhrrd]

هل يمكن ان يكون الموضوع له شرح واضح ماهو المطلوب بالضبط

[الشيباني1]

استاذنا العزيز اشكرك جدا على هذا الكود الرائع ادامك الرحمن لنا منقذا