لدي هذا الكود ولكن عندما ابحث يبحث عن بداية الكلمة فقط هل ممكن ان يظهر النتائج باي حرف تسجلة ... وشكرا
Private Sub ButtonFind5_Click()
Dim Ary()
Dim r As Long, rr As Long, Lr As Long
Dim c As Integer
Dim txt As String
txt = Me.TextFind1
Me.ListBox1.Clear
With Sheets("ÍÇÆá5")
Lr = .Cells(.Rows.Count, "E").End(xlUp).Row
For r = 19 To Lr
If InStr(CStr(.Cells(r, "E")), txt) Then
rr = rr + 1
ReDim Preserve Ary(1 To Cont, 1 To rr)
For c = 1 To Cont
Ary(c, rr) = .Cells(r, c).Value
Next
End If
Next
End With
If rr Then Me.ListBox1.Column = Ary
Erase Ary
End Sub