Como asignarle teclas a un CommandButton

Saludos quiero agregar tecla a un CommandButton. Es decir que cuando le de "Alt J" se ejecute el CommandButton

1 respuesta

Respuesta
1

Con al "Alt + J" no se puede, pero con "Ctrl + J" si; tendrías que poner el siguiente código en cada uno de tus controles en el userform

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 10 Then
Call CommandButton1_Click
End If
End Sub

Saludos. Dam

Si es lo que necesitas.

Pero com este código solo lo puedo ejecutar desde textbox1, como seria para ejecutarla desde cualquier lugar dle userform y como seria para ponerle otra tecla que no sea la "J"

Gracias.

Como te comenté tienes que ponerlo en todos tus controles, ya que no funciona de forma universal en el userform.

Con esta instrucción puedes saber el número de la combinación Ctrl + <letra>

Ejecuta un form con un textbox1, te pones dentro del textbox1 y presionas Ctrl + la letra y te va diciendo el número, por ejemplo Ctrl + h = 9, Ctrl + k = 11

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
MsgBox KeyAscii
End Sub

Saludos. Dam

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Evento keypress en excel

Q tal realice un userform en excel y quisiera q se viera mas simple quitando algunos botones y cambiándolos por el evento keypresss el código es el siguiente pero no encuentro para q al oprimir enter, me realice un código Private Sub...
3 respuestas

Mascara de entrada en Textbox

¿Es posible crear una máscara de entrada en un textbox? Por ejomplo, un textbox de fecha, que tenga que tomar el formato dd-mm-aa.
1 respuesta

Unificar código en un Modulo para VBA Excel

Tengo este código en 4 textBox 'Solo numeros, guion y cantidad caracteres. Puede separarse uno del otro Private Sub txtcli6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not (KeyAscii >= 48 And KeyAscii <= 57) Then KeyAscii = 0 '<--- El...
1 respuesta

Cuadro de texto con 2 decimales (formato)

Tengo una consulta sobre poner formato con 2 decimales a un cuadro de texto, pero nada,, me explico,, tengo un formulario vb con excel,,, y un cuadro de texto llamado Pago y quisiera cuando ponga por ejemplo,, en el cuadro de texto 600...
2 respuestas

TextBox para solo números y introducción de 3 caracteres

En un TextBox para solo números y que me acepte solamente 3 caracteres, el código siguiente es lo que tengo Private Sub txtcli3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not (KeyAscii >= 48 And KeyAscii <= 57) Then KeyAscii = 0 '<--- El...
1 respuesta

Error 2147217900(80040e14) VB

Estoy tratando de conectar una tabla de access (Base de datos) en Tabla de excel (cálculo financiero) con VB, pero al momento de ejecutar me marca error Error 2147217900(80040e14) error de sintaxis en la cláusula from, de favor me puedes ayudar a...
1 respuesta

Textbox que solo acepte números y guiones

Mi pregunta es la siguiente, en un Botón de comando tengo el siguiente código : If Not IsNumeric(TextBox1) Then Dim mensaje As String mensaje = MsgBox( Valor ingresado NO es Numérico & Chr(13) & Ingrese nuevamente! , vbCritical, Title:= Ingresar...
3 respuestas

Como poner determinado formato de fecha a un textbox

Tengo una tabla en excel 2010 e ingreso los datos a través de un formulario, lo que necesito hacer es que en los textbox donde ingreso fechas el formato sea 10-oct-14 y que este mismo formato se quede registrado en mi tabla de excel.
3 respuestas

Activar/ desactivar optionbutton con tecla F1, F2,.etc En userform excel 2010 es posible?

Estoy usando un userform para ingresar datos de unos consumos via lector de código de barras y tengo varios items(en optionbutton) y para no estar buscando y haciendo click para activarlo o desactivar quiero hacerlo de memoria mediante teclas F1 F2...
1 respuesta

Menuitem abrirlo con enter o automaticamente

Qué tal oye disculpa tengo un menuitem con ciertos datos que al dar el click con el mouse se abre al ejecutar mi programa... Pero no quisiera que lo hiciera con el click sino con el enter del teclado, hay manera? O igual que cuando se ejcute el...
2 respuestas