فلترة البيانات بناء على كلمة + بحث في ليست بوكس

[أبو قاسم]

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

محتاج بعض الاكواد لهذا الملف وهي كود فلترة نسبة لكلمة وايضاء لست بكس بحث يوجد تفاصيل اكثر في الملف

ولكم مني الف شكر وتقدير ♥️ 

المصنف1.xlsx

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

1-كالعادة تسمية الورقة باللغة الأجنبية
2- اكنب في  Texbox  ما تـريد
3-اضغط  أحد المفاتيح  
   Enter  , Tab  , Any arrows
Code

Option Explicit

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Dim Ws As Worksheet
  Dim Lr%
  Dim My_val
  Dim F_rg As Range

Set Ws = Sheets("Sheet_1")
Lr = Ws.Cells(Rows.Count, 1).End(3).Row
 
 Ws.Range("A3:N" & Lr).Interior.ColorIndex = xlNone
    Select Case KeyCode
      Case 37 To 40, 13
         My_val = TextBox1.Text
      Case Else
        Exit Sub
    End Select
Set F_rg = Ws.Range("A2:A" & Lr).Find(My_val, lookat:=1)

If F_rg Is Nothing Then
  Ws.Range("A3").Select
Else
   With Ws.Range("A" & F_rg.Row)
   .Select
    .Resize(, 14).Interior.ColorIndex = 35
   End With
End If
End Sub

Flle Icluded

 

abou_kasem.xlsm

[أبو قاسم]

شكرا لك الف الف شكر