como comprar datos de celdas con uno ingresado en un textbox

[GEMO]

se puede hacer una comparacion de un registro ingresado por el usuario en un textbox con los valores de varias celdas y que si es igual que una lo refleje digamos al introducir una contraseña la compare y si es igual a un registro de alguna celda me muestre un nombre
gracias por su atencion
saludos

[abrahamvj]

Pues usa IF-Then

Abraham

[GEMO]

ESO ES LO QUE ESTOY UTILIZANDO PERO LO QUE NO SE ES COMO HACER LA COMPARACIÓN CO VARIAS CELDAS A LA VEZ, por ejemplo tengo 10 codigos en las celdas aa1 hasta aa10 e introdusco uno en el textbox, la comparación invidual sirve cuando son pocos registros pero como pienso utilizr casi 100 el codigo seria muy largo creo que lo que me falta es un ciclo que compare el codigo ingresado y que al ser igual se detenga y esa es mi pregunta como lo hago con todas esas celdas
gracias

[abrahamvj]

Un ejemplo:

Dim rango As Range
Dim valor As Long
valor = TextBox1
For Each rango In ActiveSheet.Range("a1:a10")
If rango = valor Then
rango.Offset(0, 1) = "Aqui"
End If
Next

[GEMO]

OK LISTO PERO ME MARCO UN ERROR EN LA LINEA "valor = TextBox1" (txtx_cred en mi objeto) lo que hice fue eliminar esa linea y utilizar "txt_cred.text" y funciono bien, gracias de nuevo

[abrahamvj]

Logico, el error era por el tipo de datos que maneja. Obviamente yo te lo puse como un ejemplo general, pero lo mejor es que tu lo adaptaste a tus necesidades

Abraham