Busqueda con formulario en VBA para excel

[ledaza]

Buen día para todos.

Me pueden ayudar con este código por favor?


Lo que necesito es que encuentre la coincidencia exacta. Es decir: Si busco el DNI 10 que no me traiga la información del DIN 1011 y que me saque el mensaje “ DNI no hallado”, puesto que el DNI 10 no esta.

Gracias por su colaboración.



Private Sub CommandButton1_Click()

Dim RangeDNI As Object
Dim DNI As String, AyN As String
Dim Respuesta As Single
' En A1: DNI. En B1: AyN
[A1:B1].ClearContents
TextBox2.Value = ""

DNI = TextBox1.Text
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Escritorio\FORMULARIO.xls"
Set RangeDNI = Cells.Find(What:=DNI, LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)
If RangeDNI Is Nothing Then
Respuesta = MsgBox("DNI no hallado")
GoTo Fin
End If
' Tomo el valor de AyN (DNI no hace falta pues ya lo tengo)
AyN = RangeDNI.Offset(0, 1).Value
' Asigno AyN al TextBox2
TextBox2.Value = AyN
'Asigno DNI y AyN a las celda A1 y B1 respectivamente
[FORMULARIO.xls!A1].Value = DNI
[FORMULARIO.xls!B1].Value = AyN
Fin:

End Sub