Ejecutar una macro desde una celda

Antoni · el 12 de abril

Hola a todos:

Hay un aporte sobre el tema, pero este es diferente.

Imaginemos que queremos ejecutar una macro desde la celda B7, la macro se lama "Macro724", que visualiza los pedidos del día.

Es evidente que si ponemos Macro724 en la celda al usuario no le va a decir nada, pero si colocamos "Ver pedidos del día" y le hacemos pulsar sobre ese texto, la cosa ya parece un poco mas "apañadita" ¿No?.

Pues vamos a ello:

Abre un archivo cualquiera que tengas con macros.

Añade la macro del aporte en cualquiera de los módulos que tengas.

En cualquier hoja, y en cualquier celda, introduce un texto adecuado que describa cualquiera de las macros, en la celda siguiente por la derecha introduce el nombre de la macro, selecciona la celda con el texto descriptivo y ejecuta la macro del aporte. El nombre de la macro desaparecerá y la celda con el texto descriptivo quedará "sensibilizada".

Cada vez que pulses sobre el texto, se ejecutará la macro.

Cualquier duda, ya sabeis, aquí estamos.

No subo un archivo porqué la macro debe ejecutarse desde un archivo vuestro.



Sub AsignarMacroCelda()

l = ActiveCell.Left:     t = ActiveCell.Top

w = ActiveCell.Width:    h = ActiveCell.Height

ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, l, t, w, h).Select

Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle

Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter

Selection.OnAction = ActiveCell.Offset(0, 1)

ActiveCell.Offset(0, 1) = ""

ActiveCell.Select


End Sub


[/CODE]

Saludos