Foros del Web » Programas, Hardware y Redes » Ofimática »

Tecla Enter para ejecutar comando no funciona

Estas en el tema de Tecla Enter para ejecutar comando no funciona en el foro de Ofimática en Foros del Web. Antes que nada quiero sumarme a todas las felicitaciones que les dan día a día a todos los que responden en este foro, por la ...
  #1 (permalink)  
Antiguo 17/09/2006, 19:38
 
Fecha de Ingreso: septiembre-2006
Mensajes: 8
Antigüedad: 8 años
Puntos: 0
Tecla Enter para ejecutar comando no funciona

Antes que nada quiero sumarme a todas las felicitaciones que les dan día a día a todos los que responden en este foro, por la gran calidad y calidez con la que responden a cada pregunta, desde las más básicas a las más complicadas.

Ahora mi consulta: intento poner un código para que se ejecute un comando cuando presiono la tecla Enter en un textBox. Busqué en internet y en todos lados dice lo mismo, pero cuando lo agrego a mi módulo no funciona, alguien tiene una idea???.

Pongo el código como yo lo tengo escrito:

Private Sub cmdHistorico_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii = 13 Then
Cells.Find(What:=txtBuscar.Value, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
xlNext, MatchCase:=False).Activate

End If

Musicimas gracias por todo.
  #2 (permalink)  
Antiguo 18/09/2006, 04:36
Avatar de 3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.596
Antigüedad: 10 años, 8 meses
Puntos: 142
Sacado de la ayuda de VBA:
Código:
Un evento KeyPress no se produce bajo las siguientes condiciones: 
 
Al presionar TAB.
Al presionar ENTER.
Al presionar una flecha de dirección.
Cuando una pulsación de una tecla provoca que
el enfoque se mueva de un control a otro.
Prueba este código que sí funciona:
Código:
Sub cmdHistorico_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Range("a1") = "Has pulsado intro"
    End If
End Sub
Salu2

Última edición por 3pies; 18/09/2006 a las 04:41
  #3 (permalink)  
Antiguo 18/09/2006, 12:04
 
Fecha de Ingreso: septiembre-2006
Mensajes: 8
Antigüedad: 8 años
Puntos: 0
De acuerdo Funciona perfecto

3 pies muchisimas gracias por el dato, con el código que me pasaste anda perfecto.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 07:39.
SEO by vBSEO 3.3.2