Macros y los botones de opción

Tengo 5 botones de opción, todos dirigidos a la celda A1 de la hoja de nombre vetas, como puedo hacer para que si selecciona el segundo botón y de hecho en la celda se coloque un dos ejecute automáticamente la macro que corresponda, ¿y qué si selecciona el quito botón realice otra macro?
Por eso he querido hacer una macro que se ejecute cuando se cumpla esa condición.

1 Respuesta

Respuesta
1
La solución la veo agrupando los botones y asignándole al grupo la macro "Botones_comunes", que llama a diferentes macros de acuerdo al valor de la celda a1.
Desde Excel, estando en la hoja "Vetas", presioná ALT+F11, para ir a Visual Basic.
"Insertar/Modulo" y allí volcar el siguiente código:
***************
Sub Botones_Comunes()
Select Case Range("a1").Value
Case 1
macro1
Case 2
macro2
Case 3
macro3
Case 4
macro4
Case 5
macro5
End Select
End Sub
Sub macro1()
MsgBox "Macro1"
End Sub
Sub macro2()
MsgBox "Macro2"
End Sub
Sub macro3()
MsgBox "Macro3"
End Sub
Sub macro4()
MsgBox "Macro4"
End Sub
Sub macro5()
MsgBox "Macro5"
End Sub
******************
Volver a Excel .
En la hoja "Vetas" agrupamos los objetos.
Para agrupar Objetos :
F5 ("edicion/Ir a"), especial..., objetos.
Con el Botón Derecho, "Agrupar".
Y en el "Cuadro de Nombres", cambiar "Grupo xx", por "GrupoBotones".
Asignar macro al grupo, mediante Botón Derecho y opción "Asignar macro ..." (seleccionar "Botones_comunes")
Con esto se termina el tema.
Cada vez que se toma una opción, se ejecuta la macro "Botones_Comunes" que de acuerdo al valor de la celda A1, ejecuta una macro diferente (en este caso las macros muestran un mensaje mediante msgbox).
Espero haber ayudado.
Estoy a tu disposición por cualquier ampliación.
Disculpame si la explicación no es muy clara, pero hoy no estoy inspirado para la redacción.
Suerte.
Gracias por tomarte tu tiempo, pero hago lo que me decís y pero no me hace nada, pregunto con el selec case, como sabe a cual macro debe de ejecutar, ¿es decir si escojo el 2 como sabe que es la macro dos? Y pensaba que eso se hacia mediante etiquetas, ¿si por casualidad hiciste un ejemplo me lo podrías regalar para verlo? Porque no me sale, muchas gracias
Tenés razón.
Lo probé y faltaba un paso . Decirle que celda estaba referenciada por los botones de opción.
Eso debía hacerse antes de "agrupar los objetos", mediante botón derecho en un botón cualquiera y tomando la opción "Formato del Control / Vincular con celda" (poner a1).
Si ya tenés los comandos agrupados, tienes que desagruparlos mediante : Botón derecho en el grupo, "Agrupar / Desagrupar"
Marcar una celda cualquiera para cambiar la selección.
Botón derecho en un botón (de opción) cualquiera y tomando la opción "Formato del Control / Vincular con celda" (poner a1).
Volvemos a agrupar (f5 / especiales... / objetos).
Botón derecho en el grupo (cuidado de no perder la selección) "Agrupar / Agrupar".
Botón derecho en el grupo (cuidado de no perder la selección) "Asignar Macro (Botones_comunes)".
Marca cualquier celda para cambiar la selección.
Ahora debería funcionar.
Disculpame, pero como te decía en el Mail anterior, no estaba inspirado en la redacción y me ovidé un "detalle".
Estoy a tu disposición por cualquier aclaración.
Con respecto a tu pregunta "¿como sabe"?:
La sentencia:
Select Case Range("a1").Value
Toma el dato de la celda "a1".
La misma que vinculamos con
De los botones de opción.
Cada botón establece un valor diferente en A1.
Entonces en función a ese valor, ejecutamos una macro diferente :
Por ejemplo si A1=1 , se ejecuta la macro1
Case 1
Macro1

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ejecutar "x" macro cuando cambia valor"x" columna

Soy nuevo aquí, y tengo un dilema. Todas las respuestas que he mirado hablan de ejecutar una macro cuando se cambia una celda y no me sirven. Pues bien, tengo 5 macros en una hoja, cada una asociada a una columna con sus respectivas celdas. Las...
1 respuesta

Macro según valor de celda

Quisiera ejecutar con un botón una macro que dependiendo de tres valores posibles de una celda, llame a 3 macros distintas.
1 respuesta

Como ejecutar una macro cuando el Valor de una celda es igual al valor de una celda de un rango

Soy nuevo en esto y no me aclaro. Quiero ejecutar tres macros diferentes si el valor de una celda coincide con el valor de cualquier celda dentro de 4 diferentes rangos. Tengo la casilla c3 que es una validación de datos en formato lista. Pues mi...
1 respuesta

Ejecutar macro al rellenar celda

Tengo una hoja excel con una serie de fórmulas que se actualizan según el valor de la celda A1. La cuestión es que tengo una macro que actualiza (borra y pega de nuevo) para actualizar el nuevo valor que se introduce en la celda a1. Mi pregunta es...
1 respuesta

¿Cómo unir dos macros para que se ejecute una detrás de la otra?

¿Cómo puedo hacer para unir dos macros?, es decir, que cuando la active, ya sea través de un botón, o una combinación de teclas, esta acción me trabaje las dos operaciones que necesite, en forma seguida. Espero se comprenda mi pregunta y poder contar...
1 respuesta

Ejecutar macro dependiendo el valor de una celda

Pues me gustaría saber si es posible ejecutar una determinada macro dependiendo del valor que contenga una celda con lista desplegable Por ejemplo si en la celda A3 se escoge la palabra "hola" se ejecute la Macro1, si se escoge la palabra "adiós" se...
6 respuestas

Macro que oculte celdas y columnas de una hoja activa

Necesito que al entrar a la hoja 1 de un archivo de excel me oculte las celdas (rango 20:45) y la columna H, ademas que pueda agregarle 4 botones de forma que el botton 1 oculte el rango 20: 25, el botón 2 rango 26:35 y el botton 3 rango 36:40, y el...
1 respuesta

¿Cómo ejecutar una macro solo en un rango específico?

Tengo una macro que llama a una función para buscar productos, ahora solo quiero que el usuario la pueda utilizar solo si está en un rango específico de la hoja, más precisamente entre "b10:b34".
1 respuesta