مساعدة فى البحث فى اكثر من ورقة بمتغيرات

[saad abed]

اعضاء المنتدى الكرام

هل استطيع البحث بثلاث متغيرات فى خمس ورقات

فمثلا نبحث عن عميل مورد فى فترة بين تاريخين فى المبيعات ومردوداتها والمشتريات ومردوداتها وعن ما تم سداده فى ورقة الخزينة

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

بانتظار الرد اشكرك

برنامج مبيعات.rar

[saad abed]

اخوانى حاولوا وانا احاول ايضا جزاكم الله خيرا

[saad abed]

اخوانى مع كثرة التفكير وجدت حل استخدام فلترة الاوراق بالمتغيرات ثم نسخها لكن التاريخ مش ضابط مع مش عارف ليه

برنامج مبيعات.rar

[عبدالله باقشير]

السلام عليكم

شاهد المرفق

بيانات الفورم للاسماء والتواريخ

توخذ من ورقة المشتريات

يمكنك تغييرها الى الورقة التي تشمل اغلب البيانات

المرفق 2003 -2007

تقرير من عدة اوراق.rar

[saad abed]

اخى الفاضل / عبدالله باقشير

منذ ان رايتك مره داخل الصفحة واعلم والله انك ستساعدنى كما ساعدتنى انا وغيرى كثيرا

قبل ان اطلع على الحل فانا اعلم ان اعمالك واكوادك كلها متقنة

جزاكم الله خيرا

اعزكم الله

ستركم الله فى الدنيا والاخرة

شكرا لكم

سعد عابد

[عبدالله باقشير]

السلام عليكم

استبدل الدالة الموجوده بالفورم 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

هذا بعجل

[saad abed]

اخى عبدالله باقشير

كلمة شكر يا اخى اراه قليله على مجهودك

جزاك الله عنا خيرا

بارك الله فيك وتعديل الداله الاخير فى مكانه الصحيح

ربما يكون هناك حدث فى صفحة وغير موجود فى صفحة اخرى

سعد عابد

[الـعيدروس]

السلام عليكم

استاذ الحبيب عبدالله باقشسر "خبور خير"

جزيت خيرا وزوجت بكرً

عمل في قمة الروعه والجمال

أعمال متقنه تفوق الوصف

تقبل مروري

[عبدالله باقشير]

السلام عليكم

استاذ الحبيب عبدالله باقشسر "خبور خير"

جزيت خيرا وزوجت بكرً

عمل في قمة الروعه والجمال

أعمال متقنه تفوق الوصف

تقبل مروري

اكرمك الله اخي ابو انصار

وجزاك خيرا

تقبل تحياتي وشكري

[عبدالله باقشير]

اخى عبدالله باقشير

كلمة شكر يا اخى اراه قليله على مجهودك

جزاك الله عنا خيرا

بارك الله فيك وتعديل الداله الاخير فى مكانه الصحيح

ربما يكون هناك حدث فى صفحة وغير موجود فى صفحة اخرى

سعد عابد

جزاك الله خيرا

تفضل التعديل التالي

هدية مني:

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