Foros del web, para los que viven de bits

Crashman · 13-jul-2006, 11:08

Tengo una macro que hace busquedas donde se ingresa el dato en un textbox y muestra el dato en un Label pero necesito que el boton de busqueda se mantenga en movimiento hacia donde se encuentre el usuario (celdas) como hago esta propiedad o como hago que reaccione por medio de un comando hagase de cuentas como el de busqueda normal de excel Ctrl+B ....

Private Sub CommandButton1_Click()
'Pasamos el código a buscar, a una variable
codigo_a_buscar = TextBox1.Value
'Lo buscamos...
Cells.Find(What:=codigo_a_buscar, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
'Seleccionamos el valor de la columna de la derecha (descripción),
'y pasamos ese valor a una variable
descripcion_del_codigo = ActiveCell.Offset(0, 1).Value
'Lo ponemos en la etiqueta oculta
Label2.Caption = descripcion_del_codigo
End Sub

Por cierto esta macro la dieron de ejemplo en un post anterior gracias eh...

3pies · 14-jul-2006, 02:43

Esa macro me suena...

Prueba esto (incluso puedes asociar el macro al propio botón):

Código:

Sub mover_boton()
 'Pasamos a una variable la celda donde estamos, para volver a ella posteriormente
    celda_donde_estamos = ActiveCell.Address
    'Seleccionamos el botón cuyo nombre es Botón 1 (este nombre es el que aparece
    'justo delante de la barra de fórmulas, ...claro está que debemos seleccionar
    'previamente el botón)
 ActiveSheet.Shapes("Botón 1").Select
    'Movemos el botón hacia la derecha 100 pixels, por ejemplo
 Selection.ShapeRange.IncrementLeft 100
    'Volvemos a la celda original
 Range(celda_donde_estamos).Select
End Sub

Yo no obstante, optaría por otra cosa: por inmovilizar paneles (Ventana --> Inmovilizar paneles), y colocar el botón en un área inmovilizada, así no tendrías que mover el propio botón.

Salu2

Crashman · 14-jul-2006, 09:22

Si yo tambien pense en eso pero esa hoja no la utilizo yo la utilizan terceros y tienes proteccion de cambios por lo que no puedo accesar a modificar la estructura solo en las ultimas celdas que es donde pienso poner el boton lo probare gracias...

Crashman · 14-jul-2006, 15:42

Perdon necesito que se mueva hacia abajo y que semueva con la ventana de windows o que siga a la celda donde se esta escribiendo por ello pregunta si hay alguna forma de ejecutarlo al oprimir teclas o que se mantenga (creo esta dificil o imposible pero uds diran yo no muy conozco pero hago la lucha) gracias

13-jul-2006, 11:08	#1 (permalink)
Crashman Fecha de Ingreso: junio-2004 Mensajes: 335	Botton Movible en excel Tengo una macro que hace busquedas donde se ingresa el dato en un textbox y muestra el dato en un Label pero necesito que el boton de busqueda se mantenga en movimiento hacia donde se encuentre el usuario (celdas) como hago esta propiedad o como hago que reaccione por medio de un comando hagase de cuentas como el de busqueda normal de excel Ctrl+B .... Private Sub CommandButton1_Click() 'Pasamos el código a buscar, a una variable codigo_a_buscar = TextBox1.Value 'Lo buscamos... Cells.Find(What:=codigo_a_buscar, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate 'Seleccionamos el valor de la columna de la derecha (descripción), 'y pasamos ese valor a una variable descripcion_del_codigo = ActiveCell.Offset(0, 1).Value 'Lo ponemos en la etiqueta oculta Label2.Caption = descripcion_del_codigo End Sub Por cierto esta macro la dieron de ejemplo en un post anterior gracias eh...

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

14-jul-2006, 09:22	#3 (permalink)
Crashman Fecha de Ingreso: junio-2004 Mensajes: 335	Si yo tambien pense en eso pero esa hoja no la utilizo yo la utilizan terceros y tienes proteccion de cambios por lo que no puedo accesar a modificar la estructura solo en las ultimas celdas que es donde pienso poner el boton lo probare gracias...

14-jul-2006, 15:42	#4 (permalink)
Crashman Fecha de Ingreso: junio-2004 Mensajes: 335	Perdon necesito que se mueva hacia abajo y que semueva con la ventana de windows o que siga a la celda donde se esta escribiendo por ello pregunta si hay alguna forma de ejecutarlo al oprimir teclas o que se mantenga (creo esta dificil o imposible pero uds diran yo no muy conozco pero hago la lucha) gracias