Necesito ejecutar macros con teclas F1,F2...F12 ?

Necesito abrir un formulacio Pulsando F2, ¿etc?

Tor

Dante Amor

1 Respuesta

Respuesta
1

En "thisworkbook" tienes que poner el siguiente código:

Private Sub workbook_open()
Application.OnKey "{F1}", "macro1"
Application.OnKey "{F2}", "macro2"
Application.OnKey "{F12}", "macro3"
End Sub

Reemplaza "macro1" por el nombre de tu macro entre comillas, cerra y volve a abrir el libro y podes usarlo así. 

Se me olvidaba algo importante, también pone este código

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F1}"
Application.OnKey "{F2}"
Application.OnKey "{F12}"
End Sub

Es para volver las teclas a su funcion normal cuando cierres el libro

Desde ya muchas gracias, lo puse donde dijiste pero no ejecuta la macro cuando pulse F2, ¿por qué sera?

¿Podes enviar la macro o una captura de pantalla?

Es muy sencilla solo abre un formulario, pero para probar si andaba la sustituí por un mensaje en pantalla, pero no funciona

Si no veo el error o como cargaste las macros no te puedo ayudar

private sun CargaViajes()

   CargarViajes.show

end sub

private sub 

Vamos de cero...

La macro que me pasaste, la pones en un modulo

Sub CargaViajes()
   CargarViajes.show
End sub

Luego en el objeto "thisworkbook":

Private Sub Workbook_Activate()
Application.OnKey "{F1}", "CargaViajes"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "{F1}"
End Sub
Private Sub workbook_open()
Application.OnKey "{F1}", "CargaViajes"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F1}"
End Sub

el deactivate es necesario porque cuando se cierra el libro se desactiva la tecla ?

Por si tienes abierto más de un libro, cuando pases al otro la tecla F1 vuelve a su función normal. Viceversa para Activate

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas