انشاء بحث متقدم

[اسامة ابو عمر]

السلام عليكم

احتاج لانشاء بحث متقدم

مثال : لدي ملف فيه اسماء شركات وارقام فواتير .... الخ بالاضافة الى تواريخ

هنالك الكثير من التواريخ المكرره

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

في الملف المرفق التاريخ موجود بالعامود g 

فمثلا عند ادخال 25 Agu  يظهر لي النتائج المتعلقة بهذا البحث وهكذا

search.rar

[ابراهيم الحداد]

Sub Choosen()
For i = 2 To 52
If Cells(i, 7).Value = Range("J1").Value Then
Cells(i, "A").EntireRow.Hidden = False
Else
Cells(i, "A").EntireRow.Hidden = True
End If
Next
End Sub

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

ضع هذا الكود فى مديول واختر الخلية ( J1 ) لكتابة التاريخ المراد البحث عنه

 

[اسامة ابو عمر]

2 ساعات مضت, زيزو العجوز said:

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

ضع هذا الكود فى مديول واختر الخلية ( J1 ) لكتابة التاريخ المراد البحث عنه

 

شكرا لك اخي على المساعدة

حاولت ولم افلح

[سليم حاصبيا]

جرب هذا الملف

search salim.rar

[اسامة ابو عمر]

13 ساعات مضت, سليم حاصبيا said:

جرب هذا الملف

search salim.rar

شكرا اخوي سليم

ساجرب الكود على جميع الملف كامل وسأظهر النتائج بورقة عمل اخري لكي اتاكد ان كل شيء على ما يرام

شكرا ليك

[علي خاجا]

اعزائي .... 
ان كنت ارغب في انشاء فاتورة عن طريق البحث المتقدم مثال : لدي اكثر من 20 عميل وكل عميل اشترى اكثر من 10 سيارات

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