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

[prince hamid]

السلام عليكم

اخواني ،،، تحية طيبة لكم ،،،

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

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

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

يتم استدعاء كامل البيانات الذي وجدت به المعلومة

اتمنى ان اجد منكم المساعدة وجزاكم الله خيرا

list.xlsx

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

حجم الملف كبير جداً حوالي(7000 صف) لذلك من المفترض ان يأخد وقتاً للتنفيذ الكود

الملف المرفق نموذج عما تريد (فقط حوالي 50 صف) لمتابعة عمل الكود

الكود

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 If Not Intersect(Target, Range("A4:g4")) Is Nothing And _
Target.Count = 1 Then
 Range("A4:g4").Interior.ColorIndex = 40
 
 Target.Interior.ColorIndex = 6
 Call find_please(Target.Row, Target.Column)
 End If
Application.EnableEvents = True
End Sub
'++++++++++++++++++++++++++
Sub find_please(IRow, ICol)
Dim R As Worksheet, L As Worksheet
Dim S_rg As Range 'Source range
Dim m%, Ro%, i%

Set R = Sheets("recherche")
Set L = Sheets("liste")
Set S_rg = L.Range("a2", L.Range("G1").End(4))
Ro = S_rg.Rows.Count
 For i = 1 To 7
  If i <> ICol Then
   R.Cells(IRow, i) = vbNullString
   End If
  Next
  
R.Range("A9").CurrentRegion.Offset(1).ClearContents
m = 10
 For i = 1 To Ro
 If UCase(Mid(S_rg.Columns(ICol).Cells(i), 1, Len(R.Cells(IRow, ICol)))) = _
 UCase(R.Cells(IRow, ICol)) Then
  R.Cells(m, 1).Resize(, 7).Value = _
  S_rg.Rows(i).Value
  m = m + 1
 End If
 Next

End Sub

الملف مرفق

list_saerch.xlsm

[prince hamid]

شكرا لك اخي الحبيب

[prince hamid]

عندا تحميل تعديل الاخ سليم خرج لي علامة تعجب في واجهة الملف ما معنى دالك مع العلم انا استعمل اكسل 2007 والماكرو مفعل عندي

 

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

هذه العلامة تشير ان الملف يحتوي على ماكرو

[prince hamid]

شكرا لك اخي

[أحمد يوسف]

أستاذ prince hamid

مع كل هذه الإجابات فين الضغط على الإعجاب ؟!!💙