Como asiganar una macro a un combobox

14/07/2006 - 10:09 por otabaco | Informe spam
Tengo varias macros grabadas, no se si se pueda; soy nuevo en esto.

Quiero ejecutar las las macros desde un combobox, les agradezco si
alguien me puede ayudar

Preguntas similare

Leer las respuestas

#1 Francisco Parrilla
14/07/2006 - 18:14 | Informe spam
Boton derecho asignar Macro o bien modificar codigo :)

Saludos
Respuesta Responder a este mensaje
#2 Héctor Miguel
14/07/2006 - 18:46 | Informe spam
hola, 'anonimo/a' !

Tengo varias macros grabadas... Quiero ejecutar las macros desde un combobox...



suponiendo que no quieres 'perder el tiempo' pulsando {Alt}+{F8} o algun atajo asignado a macros para su ejecucion... -?-
una alternativa pudiera ser +/- como sigue [modifica/adapta/... segun sea la situacion real]:

1) selecciona [p.e.] la celda 'A1' de la hoja_x y ve a: -> [menu] datos / validacion -> lista
-> escribe directamente los nombres [validos] de las macros que apareceran en la lista del combo de validacion
[utiliza tu separador de listas para ir agregando los nombres de las macros] -coma ? punto y coma ?-

2) copia/pega las siguientes instrucciones -> en el modulo de codigo de 'esa' hoja...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then _
On Error Resume Next: _
Application.Run (Target)
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
Respuesta Responder a este mensaje
#3 otabaco
17/07/2006 - 02:14 | Informe spam
La soluccion que necesitaba... claro con algunos arreglos, me la paso
un moderador del grupo exceluciones, hai la comparto:

Private Sub ComboBox1_Change()
Select Case Me.ComboBox1.Value
Case "Uno"
Call Uno
Case "Dos"
Call Dos
Case "Tres"
Call Tres
End Select
End Sub

Sub Uno()
MsgBox "Esta es la Primera", vbOKOnly, "Uno"
End Sub

Sub Dos()
MsgBox "Esta es la Segunda", vbOKOnly, "Dos"
End Sub

Sub Tres()
MsgBox "Esta es la Tercer", vbOKOnly, "Tres"
End Sub

Private Sub UserForm_Initialize() 'Este es un evento del form
ComboBox1.AddItem "Uno"
ComboBox1.AddItem "Dos"
ComboBox1.AddItem "Tres"
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida