saad abed قام بنشر نوفمبر 3, 2012 مشاركة قام بنشر نوفمبر 3, 2012 اعضاء المنتدى الكرام هل استطيع البحث بثلاث متغيرات فى خمس ورقات فمثلا نبحث عن عميل مورد فى فترة بين تاريخين فى المبيعات ومردوداتها والمشتريات ومردوداتها وعن ما تم سداده فى ورقة الخزينة اعلم اننى من الممكن تجميعهم فى ورقة واحدة ولكن نظرا لكثرة البيانات الفصل افضل بانتظار الرد اشكرك برنامج مبيعات.rar رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر نوفمبر 4, 2012 الكاتب مشاركة قام بنشر نوفمبر 4, 2012 اخوانى حاولوا وانا احاول ايضا جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر نوفمبر 4, 2012 الكاتب مشاركة قام بنشر نوفمبر 4, 2012 اخوانى مع كثرة التفكير وجدت حل استخدام فلترة الاوراق بالمتغيرات ثم نسخها لكن التاريخ مش ضابط مع مش عارف ليه برنامج مبيعات.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 5, 2012 مشاركة قام بنشر نوفمبر 5, 2012 السلام عليكم شاهد المرفق بيانات الفورم للاسماء والتواريخ توخذ من ورقة المشتريات يمكنك تغييرها الى الورقة التي تشمل اغلب البيانات المرفق 2003 -2007 تقرير من عدة اوراق.rar رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر نوفمبر 5, 2012 الكاتب مشاركة قام بنشر نوفمبر 5, 2012 اخى الفاضل / عبدالله باقشير منذ ان رايتك مره داخل الصفحة واعلم والله انك ستساعدنى كما ساعدتنى انا وغيرى كثيرا قبل ان اطلع على الحل فانا اعلم ان اعمالك واكوادك كلها متقنة جزاكم الله خيرا اعزكم الله ستركم الله فى الدنيا والاخرة شكرا لكم سعد عابد رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 6, 2012 مشاركة قام بنشر نوفمبر 6, 2012 السلام عليكم استبدل الدالة الموجوده بالفورم ListData بالدالة ادناه علشان بيانات الفورم للاسماء والتواريخ توخذ من جميع الاوراق Function ListData(col As String) Dim d, N Set d = CreateObject("Scripting.Dictionary") Dim Rng As Range, cel As Range ''''''''''''''''''''''''''''' For Each N In Array("مشتريات", "مبيعات", "م.مشتريات", "م.مبيعات", "خزينة") With Sheets(CStr(N)) Set Rng = Range(.Cells(5, col), .Cells(Rows.Count, col).End(xlUp)) '''''''''''''''''''''''' On Error Resume Next For Each cel In Rng d.Add cel.Value, CStr(cel) Next On Error GoTo 0 ''''''''''''''''''''''' End With Next ''''''''''''''''''''''' ListData = d.items Set d = Nothing Set Rng = Nothing End Function هذا بعجل رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر نوفمبر 6, 2012 الكاتب مشاركة قام بنشر نوفمبر 6, 2012 اخى عبدالله باقشير كلمة شكر يا اخى اراه قليله على مجهودك جزاك الله عنا خيرا بارك الله فيك وتعديل الداله الاخير فى مكانه الصحيح ربما يكون هناك حدث فى صفحة وغير موجود فى صفحة اخرى سعد عابد رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 6, 2012 مشاركة قام بنشر نوفمبر 6, 2012 السلام عليكم استاذ الحبيب عبدالله باقشسر "خبور خير" جزيت خيرا وزوجت بكرً عمل في قمة الروعه والجمال أعمال متقنه تفوق الوصف تقبل مروري رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 6, 2012 مشاركة قام بنشر نوفمبر 6, 2012 السلام عليكم استاذ الحبيب عبدالله باقشسر "خبور خير" جزيت خيرا وزوجت بكرً عمل في قمة الروعه والجمال أعمال متقنه تفوق الوصف تقبل مروري اكرمك الله اخي ابو انصار وجزاك خيرا تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 6, 2012 مشاركة قام بنشر نوفمبر 6, 2012 اخى عبدالله باقشير كلمة شكر يا اخى اراه قليله على مجهودك جزاك الله عنا خيرا بارك الله فيك وتعديل الداله الاخير فى مكانه الصحيح ربما يكون هناك حدث فى صفحة وغير موجود فى صفحة اخرى سعد عابد جزاك الله خيرا تفضل التعديل التالي هدية مني: http://www.officena.net/ib/index.php?showtopic=43916 رابط هذا التعليق شارك 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.