Ejecutar Macro Según Valor de Celda en excel
Hola
Bueno lo que busco es crear como un menu, ejemplo poner en a1 el valor y sl lado la lista, si la persona elije 1 se ejecuta la macro 1, si el pone 2 se ejecute la macro 2, no se si se podrá, si se pudiese os agradecería
1 respuesta
Respuesta de Dante Amor
1
Pon la siguiente macro en worksheet. Cada vez que modifiques el valor en la celda A2 se ejecutará una macro. Las macros 1,2 y 3 pueden estar en worksheet o en módulos.
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("A2")) Is Nothing Then
If Target.Count = 1 Then
Select Case Target
Case 1: macro1
Case 2: macro2
Case 3: macro3
End Select
End If
Range("A2").Select
End If
End Sub
Sub macro1()
MsgBox "Macro 1 en ejecución"
End Sub
Sub macro2()
MsgBox "Macro 2 en ejecución"
End Sub
Sub macro3()
MsgBox "Macro 3 en ejecución"
End SubTe anexo mi archivo con la macro y con el ejemplo
