Saltar al contenido

Ejecutar una macro desde una celda

publicado

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

Featured Replies

publicado

Hola Macro Antonio

Que olfato más agudo tienes para ingeniar Macros, te envidio (de forma sana por supuesto).

Saludos Cordiales

Lázaro.

publicado

Coincido con Lazaro, muy ingenioso.

En excel 2007 funciona, en 2003 da error.

publicado

Muy bueno Macro Antonio. Contigo hay que quitarse el sombrero.

Saludos,

JULIO

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.