فورم بحث بكتابة اول حرف فيديو 12

Private Sub TextBox1_Change()

    Dim a      As Variant
    Dim b()    As Variant
    Dim i      As Long
    Dim j      As Long

    ListBox1.Clear
    a = Sheet1.Range("a2:a" & Sheet1.Range("a" & Rows.Count).End(xlUp).Row).Value
   
    For i = LBound(a, 1) To UBound(a, 1)
        If TextBox1.Value = Left(a(i, 1), Len(TextBox1.Value)) Then
            j = j + 1
            ReDim Preserve b(1 To j)
            b(j) = a(i, 1)
        End If
    Next i
   
    On Error Resume Next
        ListBox1.List = b
    On Error GoTo 0

End Sub

Private Sub UserForm_Activate()
    TextBox1.SetFocus
End Sub

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub ListBox1_Click()
    Dim ws      As Worksheet
    Dim r      As Variant

    TextBox1.Value = ListBox1.Value
    Set ws = Sheets("Sheet1")
   
    'هنا يتم البحث عن قيمة التكست بوكس في العمود الاول
    r = Application.Match(TextBox1.Value, ws.Columns(1), 0)
   
  'في حالة كانت النتيجة رقمية يعني أنه تم العثور على اسم الشخص المطلوب
    If IsNumeric(r) Then
   
  'في هذه الحالة يتم تحديد الخلية في العمود الاول في الصف الذي تم العثور عليه
        ws.Cells(r, 1).Select
    End If
End Sub