Problema con codigo Buscar

[Dani2020]

al colocar el codigo para buscar datos, me aparecen datos de otro codigo

ejemplo ingreso codigo 346 y me aparencen datos del codigo 2346

Tabla 2020.xlsm

[Antoni]

Sub Buscar_dato()
Dim encontrado As Range
'--
If [C4] = "" Then
    MsgBox "Introduzca un Número a buscar", vbInformation, "Número vacío"
    Exit Sub
End If
'--
[C6:C12] = ""
With Sheets("BD")
    Set encontrado = .Columns("B").Find(What:=[C4], LookAt:=xlWhole) 'xlWhole Busca exacto
        If Not encontrado Is Nothing Then
            [C6] = .Cells(encontrado.Row, "C") 'Nombre
            [C8] = .Cells(encontrado.Row, "D") 'CEDULA
            [C10] = .Cells(encontrado.Row, "E") 'ESTACIÓN
            [C12] = .Cells(encontrado.Row, "F") 'BOMBERO
            Range("A1") = True 'Desactiva el CheckBox1 que es de habitaciones
            'CheckBox1
        Else
            MsgBox "No se encuentra el Número introducido" & vbNewLine & vbNewLine & _
             "Compruebe el Número introducido e inténtelo de nuevo", vbInformation, "Error de Número"
            Exit Sub
        End If
End With
'--

 

[Dani2020]

Hace 18 horas, Antoni dijo:

Muchas Gracias, me sirvió la corrección