السلام عليكم
يمكن ذلك عن طريق استبدال جملة البحث : 'If InStr(CStr(.Cells(r, "A")), txt) Then
بالجمله التالية If .Cells(r, "A") = txt Then
ثم اضافة شرط فى نهاية البحث ليظهر الرسالة المطلوبة
Private Sub ButtonFind_Click()
Dim Ary()
Dim r As Long, rr As Long, Lr As Long
Dim C As Integer
Dim txt As String
Dim i As Integer
txt = Me.TextFind
Me.ListBox1.Clear
With Sheets("البيانات")
Lr = .Cells(.Rows.Count, "A").End(xlUp).Row
For r = 4 To Lr
If .Cells(r, "A") = 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
Else
MsgBox "لم يتم العثور على الكود"
End If
Erase Ary
End Sub