ارجوا المساعد في فورم بحث و تصفية بامكانية التعديل مرن لكل المستخدمين

[nicola]

السلام عليكم ورحمة الله تعالي وبركاتة

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

على هذه الهدية الرائعة وعلى هذا الابداع في تصميم الملف

لذلك اتمنى ان تساعديني في عمل بعض الاضافات لملف البحث لكي يلائم المتطلبات التي اريدها

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

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

لذلك ارجوا منك مساعدتي في تعديل الملف

واكون لك من الشاكرين

الملف في المرفقات يوضح ما اريد

فورم بحث بامكانية التصفية.rar

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

السلام عليكم ورحمة الله تعالي وبركاتة

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

على هذه الهدية الرائعة وعلى هذا الابداع في تصميم الملف

لذلك اتمنى ان تساعديني في عمل بعض الاضافات لملف البحث لكي يلائم المتطلبات التي اريدها

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

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

لذلك ارجوا منك مساعدتي في تعديل الملف

واكون لك من الشاكرين

الملف في المرفقات يوضح ما اريد

فورم بحث بامكانية التصفية.rar

بدلا من اضافة قائمة داخل الفورم

اعمل زر لكل صفحة

واربط الزر بالكود الخاص بالصفحة ادناه

Option Explicit

'======================================================

'======================================================


Sub kh_Find1()

kh_Find Sheets("البيانات").Range("B3:L3")

End Sub


Sub kh_Find2()

kh_Find Sheets("البيانات 2").Range("B3:I3")


End Sub


Sub kh_Find3()

kh_Find Sheets("البيانات3").Range("B3:E3")


End Sub


Sub kh_Find(vRng As Range)

Dim ContRow As Long

'==========================

On Error GoTo 1

'==========================

With vRng

ContRow = .Worksheet.Cells(Rows.Count, .Column).End(xlUp).Row - .Row

End With

'==========================

If ContRow = 0 Then

MsgBox "لا توجد بيانات اعتمادا على آخر صف في العمود الاول"

Else

With UserFormSearch

.kh_RngSet vRng, vRng.Offset(1, 0).Resize(ContRow)

.Show

End With

End If

1:

Set vRng = Nothing

End Sub

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

فورم بحث بامكانية التصفية.rar

[nicola]

شكرا لك استاذ عبد الله باقشير

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

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

لذلك لدي افتراح اخر وهو بدل استخدام ComboBox في تحديد الصفحات

نستخدم CheckBox او OptionButton في تحدد الصفحات حيث ان الملف لدي يتالف من 3 صفحات فقط

وارجوا ان مساعدتك في ذلك

وبارك الله فيك

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

شكرا لك استاذ عبد الله باقشير

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

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

لذلك لدي افتراح اخر وهو بدل استخدام ComboBox في تحديد الصفحات

نستخدم CheckBox او OptionButton في تحدد الصفحات حيث ان الملف لدي يتالف من 3 صفحات فقط

وارجوا ان مساعدتك في ذلك

وبارك الله فيك

حفطك الله ورعاك

لا يوجد داعي للدخول الى صفحات البيانات

حط ازرار البحث في اي ورقة اخرى

ولنقل الرئيسية

جرب واشعرنا بالنتيجة

[الـعيدروس]

السلام عليكم

بعد اذن الاستاذ العلامه عبدالله باقشير حفظه الله

الاخ الفاضل nicola

تفضل استخدم الكمبوكس لإختيار الورقة المراد البحث فيها

فورم بحث بامكانية التصفية_1.rar

[nicola]

شكرا لك اخي

( أبو نصار )

في مساعدتي

ولكن بقية مشكلة صغيرة وارجوا ان تكمل معروفك معي بحلها

وهي عند اختيار الصفحة للبحث لا تتغير القيم في

ComboBox

لكي تتلائم مع صفحة البحث الجديدة

وشكرا جزيلا لك

[الـعيدروس]

جرب المرفق

ربما يفي بالغرض

تم تعديل أغسطس 29, 2012 بواسطه عباد

[nicola]

شكرا اخي ابو نصار

لسرعة تجاوب معي

ولكن اين المرفق الجديد

اذا كان قصدك المرفق الاول فهو مارايد ولكن لا يتم التحديث في الكمبوبكس(الخاص بتحديد العمود للبحث) لكي يتلائم مع اعمدة الصفحة الجديدة

تم تعديل أغسطس 29, 2012 بواسطه nicola

[nicola]

السلام عليكم اخي ابو نصار

الملف في المرفق يوضح المشكلة

التي ارجوا منك حلها

ولك جزيل الشكر

فورم بحث بامكانية التصفية_1.rar

[nicola]

للرفع

[nicola]

للرفع

[الـعيدروس]

السلام عليكم

الاخ الفاضل nicola

السموحه على التأخير في الرد

تفضل جرب المرفق

فورم بحث بامكانية التصفية_3.rar

تم تعديل سبتمبر 3, 2012 بواسطه عباد

[محمد مصطفى ابو حمزة]

بارك الله لنا فيك يا استاذ ALIDROOS ( أبو نصار ) وحش فى الاكسيل والله والشكر ممتد لعالى المقام استاذنا عبدالله بقشير

[nicola]

مشكور اخي ابو نصار على مجهودك

وبارك الله فيك

وزادك الله من علمة

والشكر موصول ايضا للاخ عبدالله باقشير

[nicola]

اخي ابو نصار الغالي

لقد اتعبتك معي في طلاباتي الكثير

وكلي امل في كرمك

اخي العزير

تواجعني مشكلة عنما اقوم باستدعاء فورم البحث من فورم اخر

يظهر لي هذا الخطاء

ContColmn = sRng.Columns.Count

وارجوا منك ان تساعدني في حلها

وتحياتي لك

[الـعيدروس]

زر الاستدعاء من الفورم الاخر بيكون هكذا

Private Sub CommandButton1_Click()

kh_Find1

End Sub

[nicola]

مشكور اخي ابو نصار

وبارك الله فيك

وزادك الله من علمة