(تمت الإجابة) سجل موحد من مجموعة سجلات اخري مختلفة

[أيهاب ممدوح]

لدينا سته اعمده كل واحد يعبر عن فرع له الاصناف الخاصه به وقد تكون في الفروع الاخري وقد لا تكون موجوده فالمطلوب عمل قائمه موحد مستخرجه من القوائم الاخري وشكرا

مرفق ملف

قائمه الاصناف.rar

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

اخي ايهاب

السلام عليكم

اعتقد بان طلبك مشابه للطلب بهذا الرابط

ارجو ان تقوم بمراجعته ففيه تمت مناقشة اسباب عدم امكانية تحقق ذلك

http://www.officena.net/ib/index.php?showtopic=38347

ابواحمد

[أيهاب ممدوح]

اخي ابو احمد لا يفي هذا الموضوع لي باي صله للمطلوب

انا اريد بدل سته قوائم لكل فرع هو ان اعمل قائمه واحد لجميع الفروع نحذف المكرر وتكون شامله لجميع الاصناف

[احمدزمان]

السلام عليكم

اخي ايهاب

المزيد و المزيد من الشرح

اذا تكرمت

[أيهاب ممدوح]

اخوتي الاعزاء

لدينا فروع عددها سته فروع كل فرع به اصناف عديده ممكن ان تكون موجود في الفروع الاخري او لا توجد اريد ان اقوم بعمل قائمه موحده لجميع الفروع لجميع الاصناف سواء كانت موجوده في الفرع او لا

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

لذلك اريد قائمه موحده تكون موجوده في جميع الفروع

والشرح بالتفصيل( مثال )

يوجد صنف رقمه 702 في الفروع وصنف اخر لا يوجد في جميع الفروع مثل 1049 لتصبح القائمه الموحده رقم واحد 702 رقم اثنين 1049

بدل من كتابه ست قوائم تشمل 702 نختصر ذلك في قائمه واحد

اتمني ان اكون وفقت في الشرح

ايهاب

[احمدزمان]

السلام عليكم

هذا كود كنت قد تعلمته من الأستاذ ابو اسامة

عدلت عليه حسب طلبك وكانت النتائج رائعة

ER = ActiveSheet.UsedRange.Rows.Count

A = Array("0", "A3:A" & ER, "B3:B" & ER, "C3:C" & ER, "D3:D" & ER, "E3:E" & ER, "F3:F" & ER)

TR = Range("H55555").End(xlUp).Row + 1

For T = 1 To 6

B = "H" & TR

Range(B).Clear

Range(A(T)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range(B), Unique:=True

Next T

آمل ان يفي بالغرض المنشود

قائمه الاصناف.rar

[احمدزمان]

HGسلام عليكم

يوجد خطأ في الملف السابق

ارجو المعذرة

تم تدارك الخطأ هنا مع اضافة امكانية الفرز للنتائج

قائمه الاصناف.rar

[أيهاب ممدوح]

اخي احمد زمان

تسلم ايدك وشكرا لقد اصبت الهدف الحقيقي

شكرااااااااااااااااااااااااااا جزيلا وفقك الله ورعاك

[ياسر الحافظ]

تسلم استاذنا " احمــــــــــــــــد زمان "

جزاك الله كل الخير ...كلنا نستفيد

وفقك الله

ابو الحارث