Boton de Opción + Ejecutar

09/11/2005 - 06:08 por pasarin | Informe spam
Hola amigos, tengo unos botones de opción que me ejecutan unas macros cada
uno al seleccionarlos. Quisiera que el funcionamiento fuese que al
seleccionarlos no pasase nada y que al hacer click en un boton de comando
llamado "ejecutar", se ejecutase la macro del boton de opción seleccionado.
¿que pieza de código VB necesito? Gracias.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
09/11/2005 - 23:56 | Informe spam
hola, pasarin !

... unos botones de opcion... ejecutan unas macros cada uno al seleccionarlos
... que el funcionamiento fuese que al seleccionarlos no pasase nada
y que al hacer click en un boton de comando... se ejecutase la macro del boton de opcion seleccionado [...]



suponiendo que 'estamos hablando' de controles en un formulario de usuario...
1) quita la llamada a cada macro en los eventos '_click' de cada boton de opcion
2) en el evento '_click' de ese boton de comando... pon algo +/- como lo siguiente...
en el modulo de codigo de formulario ==Private Sub CommandButton1_Click()
If OptionButton1 Then MsgBox "Ejecutando macro 1..."
If OptionButton2 Then MsgBox "Ejecutando macro 2..."
End Sub

sustituye los msgboxes por los nombres de cada macro :))

saludos,
hector.
Respuesta Responder a este mensaje
#2 pasarin
10/11/2005 - 02:05 | Informe spam
Gracias mil de nuevo.

"Héctor Miguel" escribió en el mensaje
news:
hola, pasarin !

... unos botones de opcion... ejecutan unas macros cada uno al
seleccionarlos
... que el funcionamiento fuese que al seleccionarlos no pasase nada
y que al hacer click en un boton de comando... se ejecutase la macro del
boton de opcion seleccionado [...]



suponiendo que 'estamos hablando' de controles en un formulario de
usuario...
1) quita la llamada a cada macro en los eventos '_click' de cada boton de
opcion
2) en el evento '_click' de ese boton de comando... pon algo +/- como lo
siguiente...
en el modulo de codigo de formulario ==> Private Sub CommandButton1_Click()
If OptionButton1 Then MsgBox "Ejecutando macro 1..."
If OptionButton2 Then MsgBox "Ejecutando macro 2..."
End Sub

sustituye los msgboxes por los nombres de cada macro :))

saludos,
hector.

Respuesta Responder a este mensaje
#3 pasarin
10/11/2005 - 02:57 | Informe spam
Hola de nuevo, he estado mirando y más o menos se como crear un userform,
pero ¿como se hace que aparezca en la hoja excel? Saludos.
"Héctor Miguel" escribió en el mensaje
news:
hola, pasarin !

... unos botones de opcion... ejecutan unas macros cada uno al
seleccionarlos
... que el funcionamiento fuese que al seleccionarlos no pasase nada
y que al hacer click en un boton de comando... se ejecutase la macro del
boton de opcion seleccionado [...]



suponiendo que 'estamos hablando' de controles en un formulario de
usuario...
1) quita la llamada a cada macro en los eventos '_click' de cada boton de
opcion
2) en el evento '_click' de ese boton de comando... pon algo +/- como lo
siguiente...
en el modulo de codigo de formulario ==> Private Sub CommandButton1_Click()
If OptionButton1 Then MsgBox "Ejecutando macro 1..."
If OptionButton2 Then MsgBox "Ejecutando macro 2..."
End Sub

sustituye los msgboxes por los nombres de cada macro :))

saludos,
hector.

Respuesta Responder a este mensaje
#4 Héctor Miguel
10/11/2005 - 03:07 | Informe spam
hola, pasarin !

... mas o menos se como crear un userform, pero como se hace que aparezca en la hoja excel?



usando en alguna macro una instruccion que 'llame' al formulario por su nombre [p.e.]
UserForm1.Show
o... si deseas que el usuario pueda interactuar entre el formulario y la hoja de calculo...
UserForm1.Show vbModeLess [requieres excel 2000 en adelante]
y en el codigo de algun boton que designes en el formulario para 'terminar'... [p.e.]
en el modulo de codigo del formulario ==Private Sub CommandButton1_Click()
Unload Me
End Sub

saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida