macro de busqueda

ELVERKU · el 22 de junio

hola amigos del foro nuevamente despues de mucho tiempo es un gusto estar por aca de nuevo, en macros anteriores busque una macro que tuve que adecuarlo y practicamente me sirve como buscardor por medio de un useform pero tiene un problema

la macro corre perfectamente bien hace su funcion correcta pero despues de buscar la informacion requerida al querer buscar otra informacion nueva la macro ya no funciona por lo que tengo que cerrar toda la hoja y volver abrirlo para que funcione les adjunto la macro

saludos y como siempre agradesco anticpiadamente su aporte para esta macro

busqueda.xlsm

vladief · el 22 de junio

Hola

Si entendi bien, en el adjunto encontraras un boton para poder abrir el formulario o tambien presionando la tecla Ctrl+f.

Saludos.

busqueda(1).xlsm

vladief · el 22 de junio

Hola

Si entendi bien, en el adjunto encontraras un boton para poder abrir el formulario o tambien presionando la tecla Ctrl+f.

Saludos.

ELVERKU · el 22 de junio

antes que nada gracias por respondes vladief, lo que les comento es que la macro solo hace la busqueda 1 sola vez

en el boton de adjunto la puedes abrir las veces que quieres pero si buscas solo te permitira buscar 1 sola vez pero si intentas buscar otra informacion la macro ya no funciona aun si la cierras y lo vuelves abrir

busca una informacion y despues intenta buscar otra y veras que ya no corre

saludos

ramonvar · el 23 de junio

Hola Elverku te dejo una macro de búsqueda que la encotre y la fui adaptando a lo que yo necesitaba

Private Sub CommandButton2_Click()
With Range("E1:E" & Range("E" & Rows.Count).End(xlUp).Row)
fechatextbox = VBA.Format(Me.TextBox2, "mm/dd/yyyy")
Set fil = .Find(fechatextbox, after:=ActiveCell, LookIn:=xlValues, lookat:=xlPart, Searchdirection:=xlNext)
If fil Is Nothing Then
MsgBox "No hay datos con este criterio: " & Me.TextBox2, vbExclamation, "Error!"
Me.TextBox2.SetFocus
Exit Sub
End If
fil.Activate
Me.Label2 = fil.Offset(0, -1) 'fil.Offset(0, 1) esto muestra lo mismo que Range("B" & fil.Row)
End With
Set fil = Nothing
End Sub

Private Sub CommandButton3_Click()
Me.Label2 = ""
Me.TextBox2 = ""
Me.TextBox2.SetFocus
Range("E1").Select
End Sub

Private Sub CommandButton4_Click()
Unload Me
End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Initialize()
Me.Label2 = ""
Me.TextBox2 = ""
Me.TextBox2.SetFocus
Range("E1").Select
End Sub

Realiza la búsqueda en la columna "E"..y posiciona el cursor en la columna "A"...una vez encontrada...

en este caso son búsquedas de textos por filas...puedes escribir cualquier palabra de dicha fila

El formulario buscar esta en jpg...cambia la extensión .xls por jpg para ver sus componentes

FormularioBuscar.xls