أيهاب ممدوح قام بنشر سبتمبر 15, 2011 مشاركة قام بنشر سبتمبر 15, 2011 لدينا سته اعمده كل واحد يعبر عن فرع له الاصناف الخاصه به وقد تكون في الفروع الاخري وقد لا تكون موجوده فالمطلوب عمل قائمه موحد مستخرجه من القوائم الاخري وشكرا مرفق ملف قائمه الاصناف.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر سبتمبر 15, 2011 مشاركة قام بنشر سبتمبر 15, 2011 اخي ايهاب السلام عليكم اعتقد بان طلبك مشابه للطلب بهذا الرابط ارجو ان تقوم بمراجعته ففيه تمت مناقشة اسباب عدم امكانية تحقق ذلك http://www.officena.net/ib/index.php?showtopic=38347 ابواحمد رابط هذا التعليق شارك More sharing options...
أيهاب ممدوح قام بنشر سبتمبر 15, 2011 الكاتب مشاركة قام بنشر سبتمبر 15, 2011 اخي ابو احمد لا يفي هذا الموضوع لي باي صله للمطلوب انا اريد بدل سته قوائم لكل فرع هو ان اعمل قائمه واحد لجميع الفروع نحذف المكرر وتكون شامله لجميع الاصناف رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر سبتمبر 15, 2011 مشاركة قام بنشر سبتمبر 15, 2011 السلام عليكم اخي ايهاب المزيد و المزيد من الشرح اذا تكرمت رابط هذا التعليق شارك More sharing options...
أيهاب ممدوح قام بنشر سبتمبر 15, 2011 الكاتب مشاركة قام بنشر سبتمبر 15, 2011 اخوتي الاعزاء لدينا فروع عددها سته فروع كل فرع به اصناف عديده ممكن ان تكون موجود في الفروع الاخري او لا توجد اريد ان اقوم بعمل قائمه موحده لجميع الفروع لجميع الاصناف سواء كانت موجوده في الفرع او لا الملخص حتي يتسني عمل التحويل الذي تكرم اخي الفاضل احمد زمان وهو يعلم ان الطريقه تشترط وجود اسم المنتج في الفرع حتي تتم التحويل لذلك اريد قائمه موحده تكون موجوده في جميع الفروع والشرح بالتفصيل( مثال ) يوجد صنف رقمه 702 في الفروع وصنف اخر لا يوجد في جميع الفروع مثل 1049 لتصبح القائمه الموحده رقم واحد 702 رقم اثنين 1049 بدل من كتابه ست قوائم تشمل 702 نختصر ذلك في قائمه واحد اتمني ان اكون وفقت في الشرح ايهاب رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر سبتمبر 16, 2011 مشاركة قام بنشر سبتمبر 16, 2011 السلام عليكم هذا كود كنت قد تعلمته من الأستاذ ابو اسامة عدلت عليه حسب طلبك وكانت النتائج رائعة 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 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر سبتمبر 16, 2011 مشاركة قام بنشر سبتمبر 16, 2011 HGسلام عليكم يوجد خطأ في الملف السابق ارجو المعذرة تم تدارك الخطأ هنا مع اضافة امكانية الفرز للنتائج قائمه الاصناف.rar رابط هذا التعليق شارك More sharing options...
أيهاب ممدوح قام بنشر سبتمبر 17, 2011 الكاتب مشاركة قام بنشر سبتمبر 17, 2011 اخي احمد زمان تسلم ايدك وشكرا لقد اصبت الهدف الحقيقي شكرااااااااااااااااااااااااااا جزيلا وفقك الله ورعاك رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر سبتمبر 17, 2011 مشاركة قام بنشر سبتمبر 17, 2011 تسلم استاذنا " احمــــــــــــــــد زمان " جزاك الله كل الخير ...كلنا نستفيد وفقك الله ابو الحارث رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.