Saltar al contenido

Ejecutar macro con Ctrl + letar en celda

publicado

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

Featured Replies

publicado

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

 

publicado
  • Autor

Saludos estimado Abraham deseo que la letra "a" se lea desde la celda A1 de la Hoja PASS

Gracias

publicado

Con el permiso de Abraham.

Application.MacroOptions Macro:="Aquíelnombredetumacro", ShortcutKey:= Sheets("PASS").Range("A1")

 

publicado
  • Autor

Saludos me puedes informar como ingreso esta linea dentro de la macro o como módulo

Gracias

publicado
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,

publicado
  • Autor

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

publicado
  • Autor

Gracias Antoni el conocimiento y aprendizaje es infinito, disculpas por esta consulta que ha tenido una excelente respuesta.

Gracias como siempre

publicado
  • Autor

Gracias Antoni el conocimiento y aprendizaje es infinito, disculpas por esta consulta que ha tenido una excelente respuesta.

Tema solucionado

Gracias como siempre

Archivado

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