Buscar dato de textbox en tabla y comparar con otro perteneciente a esa misma fila

[Rutlhess]

OK, la duda es la siguiente, tengo libro que contiene 5 columnas de datos, la primera columna "A" es el ID y la ultima "E" es el Estado del documento, que por defecto esta en Disponible, como puedo hacer para que al momento de ingresar el ID en un textbox y hacer la búsqueda me diga si el documento esta o no esta disponible; en caso de estar disponible solicitar con un botón un préstamo y que la disponibilidad cambie a No disponible...

Pd. No subo archivo porque realmente no tengo nada respecto al tema que estoy tratandoles.

[JoaoM]

Siguiendo el tema

Ya vere en que termina este por incompleto

[Rutlhess]

[uSER=53155]@JoaoM[/uSER] aquí esta parte de la información, con esto estoy buscando el ID

filalibre = Range("A1000000").End(xlUp).Offset(1, 0).Row

    Control = 0

    dato = Trim(Val(TextBoxIDENTIFICACION))

    Rango = "A2:A" & filalibre

    Set midato = ActiveSheet.Range(Rango).Find(dato, LookIn:=xlValues, LookAt:=xlWhole)


    Call TextBoxIDENTIFICACION_Change


    If (midato) Is Nothing Then

    Else

        MsgBox ("La Cedula No. " & TextBoxIDENTIFICACION.Value & " ya se encuentra registrada."), vbCritical, "Advertencia"

        TextBoxIDENTIFICACION = ""

        TextBoxIDENTIFICACION.SetFocus

        Control = 1

    End If


    Set midato = Nothing[/CODE]

pero no se como hacer para que cuando encuentre el ID me compruebe si esta o no disponible...