Buscar datos en un rango determinado

Buenos días, estoy utilizando un macro que adapte para poder buscar datos en una hoja determinada. Pero quisiera que los datos a buscar pertenecieran a un rango determinado y no en toda la hoja. El código que estoy utilizando es el siguiente:
Set resp = Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If resp Is Nothing Then
Worksheets("DATOS PERSONALES").Activate
MsgBox ("No se encontro encontrato: " & TextBox1.Value)
Else
resp.Activate
MsgBox ("Contrato encontrado!: " & TextBox1.Value)
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Supongo que se debe modificar algo en Worksheets("DATOS PERSONALES").Activate pero no se como :(

1 Respuesta

Respuesta
1
Datos personales es el nombre de tu hoja
Puedes usar un for para recorrer el rango y un condicional para comparar cada valor de la fila con tu valor del textbox1. value
Aquí busca en la primera columna desde la fila 2 hasta a 6. Esto lo puedes modificar al rango que quieras
nombre = TextBox1.Value
For i = 2 To 6
valor = Cells(i, 1).Value
If valor = nombre Then
MsgBox ("Valor encontrado")
End If
Next i
MsgBox ("Valor NO encontrado")

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta

Como mantener el focus fijo sin que se pierda en un textbox

Al iniciar userform inicia el setfocus en el textbox que quiero pero al trabajar se pierde yo siempre quiero que permanezca el setfocus en un textbox determinado
1 respuesta

Formulario de búsqueda en Excel

Estoy empezando en esto del VBA, con un formulario de búsqueda, donde identifica la descripción de una actuación y me muestra su estado de ejecución, presupuesto, ubicación, etc. He visto cosillas por ahí y he podido crear un código, el problema es...
1 respuesta

Mostrar MsgBox con datos de celda

Recurro de nuevo a su valiosa ayuda. Gracias al experto "Aprendemos" pude dar con una respuesta interesante. Por medio de un Formulario capturo un nombre ubicados un rango, si el valor no existe en el rango aparece un MsgBox "Número no encontrado"....
2 respuestas

Macro diseñada para copiar registros de un form a una hoja excel

Segundo diseñe esta macro para que copie los valores del textbox a una hoja excel llamada histórico, pero que primero busque en la hoja histórico la fila a partir de la 2 en la columna 1 la vacía y lo copie pero no lo hace me podrías decir en que...
1 respuesta

Como cambiar esta parte del código

Amigo esperto melodiando por aqui tambien logre encontrar este ejemplo para usar un formulario con usuario y clave En el ThisWorkbook utilizo esto según el ejemplo que aparece en este página de todoexpertos Private Sub Workbook_Open()...
1 respuesta

Case en excel

No soy muy experto en visual basic, cree un formulario para ingresar datos, y esa información la dividí en varias etapas. En la etapa uno, ingreso unos valores y todo bien, en el caso 2 lo primero que hago es buscar un dato para poder ingresar los...
1 respuesta