Jump to content
Milton Cordova

Ejecutar macro con Ctrl + letar en celda

Recommended Posts

Saludos muy comedidos, deseo ayuda para que mediante alguna macro pueda directamente asignar una letra para que la macro se ejecute con Ctrl + la letra de la celda respectiva.

En el ejemplo la macro muestrapass manualmente se le asignado la letra "s" y la macro ocultapass se la asignado la letra "o", de esta forma al aplicar Ctrl+s muestra la Hoja PASS y con Ctrl+o oculta la Hoja PASS.

las letras se las ingresa en la Hoja PASS

Gracias

ejecutar macro opciones Ctrl mas letra en celdas.xls

Share this post


Link to post
Share on other sites

Hola, basta una sola línea:

Application.MacroOptions Macro:="Aquíelnombredetumacro", ShortcutKey:="a"

En ese caso se le asigna CONTROL + a como atajo de teclado a la macro. No olvidar que si colocas en mayúscula, el atajo sería SHIFT + CONTROL + a

Saludos

Abraham Valencia

 

Share this post


Link to post
Share on other sites
Sub muestrapass()
Application.MacroOptions Macro:="muestrapass", _
        ShortcutKey:=Sheets("PASS").Range("A1")
Sheets("PASS").Visible = True
    End Sub
    
Sub ocultapass()
Application.MacroOptions Macro:="ocultapass", _
        ShortcutKey:=Sheets("PASS").Range("A2")

Sheets("PASS").Visible = False

End Sub

Con el permiso de los presentes.

Saludos,

Share this post


Link to post
Share on other sites

Saludos estimado Rolando, he realizado tu solucion no funciona inmediatamente para que la macro se ejecute debo primero ejecutar la amcro manuelmente y luego si se actualiza la informacion y funciona Ctrl + la letra asignada, ejm. si ingreso la letra h en A1 no reconoce Ctrl+h tengo que ejecutar la macro muetrapass manualmente y luego si reconoce Ctrl+h.

Gracias

Share this post


Link to post
Share on other sites

Que a estas alturas, después de la cantidad de consultas que has realizado, no entiendas que son y para que sirven  los eventos de hoja y libro, es preocupante. :(

Revisa el código VBA de la hoja PASS del adjunto.

ejecutar macro opciones Ctrl mas letra en celdas.xls

Edited by Antoni

Share this post


Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png