إمكانية البحث بأي كلمة في الاسم أو برقم

[khalidsalhen]

السلام عليكم
في هذه الصفحة يتم البحت باسم الصنف كاملا
اريد ان اعرف هل يمكن البحث باي كلمة في الاسم قد تكون اول كلمة او تاني كلمة اوحتي رقمه  في الخانة E 4..

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

مخزن قطع الغيار.xls

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

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

جرب هذا لعله ما تريد

 

مخزن قطع الغيار.xls

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

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

Private Sub ComboBox1_Change()
Dim ws As Worksheet, wk As Worksheet
Dim Arr As Variant, Temp As Variant
Dim i As Long, p As Long
Set ws = Sheets("مخزن قطع الغيار")
Set wk = Sheets("البحث باسم الصنف")
Arr = ws.Range("E8:E" & ws.Range("E" & Rows.Count).End(xlUp).Row)
ReDim Temp(1 To UBound(Arr, 1), 1 To 1)
For i = 1 To UBound(Arr, 1)
If Left(Arr(i, 1), Len(ComboBox1.Value)) = ComboBox1.Value Then
p = p + 1
Temp(p, 1) = Arr(i, 1)
End If
Next
ComboBox1.ListRows = p
ComboBox1.List = Temp
wk.Range("E10").Value = ComboBox1.Value
End Sub

 

[Ali Mohamed Ali]

جزاك الله كل خير وبارك الله فيك

دائما تبهرنا أستاذنا الكبير بأكوادك وأعمالك

إلى التقدم والرقى دائما

[محمد ممتاز]

السلام عليكم 

بارك الله فيك وسلمت يداك استاذ  زيزو-العجوز/ عمل ممتاز 

هل ممكن تطوير الكود يبحث عن تفاصيل صنف من خلال 12 شيت ( شهور السنة ) .

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

 

 

كود لزر الانتقال للأعلى أو للأسفل وكود النسخ من الشيت إلى الشيت الذي يليه.rar

تم تعديل فبراير 8, 2018 بواسطه محمد ممتاز

[khalidsalhen]

 

السلام عليكم 

بارك الله فيك استاذ  زيزو-العجوز

الذي احاول الوصول اليه ( مجرد ان اكتب الحرف الاول تظهر النتائج في الجدول في الاسفل )

شكرالك