Como Ejecutar Codigo Mediante Enter En Excel

[ideasking]

Hola amigos, estoy haciendo un programa en excel utilizando el Visual Basic incorporado y necesito que al escribir un determinado codigo en un textbox y presionar ENTER se ejecute una accion; es para hacerlo mas rapido y no tener que ir hasta un BOTON y presionarlo, intente con Private Sub textbox1_Enter() pero se ejcuta auntomaticamente cuando abro el formulario, no me da tiempo de escribir el codigo en el textbox, como hago?

eJEMPLO

If textbox1="2728" then
Range ("A5")= "AUTOS"
else
msgbox "NO EXISTE"
End if

Que se ejecute este codigo cuando escriba 2728 y le de ENTER.

gracias

[boluart]

Quizas estes intentando usar el evento incorrecto: "Private Sub textbox1_Enter" ya que este evento se ejecuta cuando el control (TextBox1) es el control activo (algo asi como el FOCUS) lo que deberias hacer es en tu CommadButton indicarle la propiedad Default a TRUE, de este modo de cualquier control al presionar la tecla ENTER se provocara el evento click del boton del cual asignaste la propiedad. Otra laternativa seria de que trabajes con el evento KeyPress de tu textBox, pero no seria lo mas óptimos para el caso de el que mensionas. Por otro lado tu código siguiente lo puedes poner en el evento click de tu CommadButton:

If textbox1="2728" then
Range ("A5")= "AUTOS"
else
msgbox "NO EXISTE"
End if

[opermty]

utliza el evento onkey :)
Saludos

[luciano]

yo en este momento tengo instalado el ofice 97, y los eventos de teclas para los text del vba ..son iguales a los del vb, osea KeyPress, KeyDown y KeyUp

saludos

[ideasking]

Boluart precisamente ese es el codigo que tengo en el Boton, pero no quisiera usar botones, sino colocar directamente en el Textbox el codigo a ejecutarse, pero no se como va el evento, si Private sub textbox1_Keypress() o Private Sub textbox1_Enter(). La idea es que al escribir en el textbox una palabra o numero y darle Enter se ejecute la accion, sin necesidad de usar botones de comando. Gracias

[Fabuazul]

Utiliza la función o el evento textbox1_Keypress()

El función Enter no tiene nada que ver con lo que quieres lograr.

Saludos!

[boluart]

Iniciado por ideasking

Boluart precisamente ese es el codigo que tengo en el Boton, pero no quisiera usar botones, sino colocar directamente en el Textbox el codigo a ejecutarse, pero no se como va el evento, si Private sub textbox1_Keypress() o Private Sub textbox1_Enter(). La idea es que al escribir en el textbox una palabra o numero y darle Enter se ejecute la accion, sin necesidad de usar botones de comando. Gracias

Private Sub Text1_KeyPress(KeyAscii As Integer)
' cambiar el punto por la coma
If KeyAscii = 13 Then
msgbox "usted preionó enter"
End If
End Sub

[angel21]

h0la es cierto q tiene la misma estructura de visula basic

Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
TextBox4.SetFocus
End If

pero cuando la uso no funciona la opcion focalizar el TextBox4. :S
Alguien ayúdeme

[David]

¿Cuál es la versión de Excel que estás usando? ¿Qué es lo que no funciona? ¿Produce algún error?.

P.S.: Cuando escribas una duda es preferible que lo hagas en un Nuevo Tema.

[boluart]

ya probaste con el evento KeyDown???

Código:

 
Private Sub TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        TextBox4.SetFocus
    End If
End Sub

[DMatias]

Mira yo lo que hago es esto para usar el command y el enter al mismo tiempo.

Capaz te funciona
-----------------------------------------------------------------------------
Private Sub password() 'Genero la accion que vos a usar en varias ocaciones
Dim p As String
p = Text1.Text
If Len(p) = 0 Then
MsgBox "Ingrese la clave", vbCritical, "Error"
Else
If p = "paco07" Then
Unload Form1
Form2.Show
Else
MsgBox "La clave ingresada es incorrecta." & vbCrLf & "Verifique el estado de la tecla 'Bloq Mayús'", vbCritical, "Error en Password"
End If
End If
End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii ' Cuado se apreta enter en text1 se ejecuta password
Case 13
Call password
End Select
End Sub

Private Sub Command1_Click() 'Cuando hago clik se ejecuta password
Call password
End Sub

Use como ejemplo la validacion de una palabra. Pero si estas parado sobre la texti.tex y apretas enter es lo mismo que hacer click en el Command1.

Espero que te sirva.

Saludos ideasking

[jorge_jv]

Mira para ser mas efectivo usa este codigo con keydown para cualquier consulta mi correo es: [email protected]

Private Sub vdolares_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 13
vcredito.SetFocus
End Select
End Sub

ahi yo estoy usando un texbox llamado vdolares y al presionar enter se posiciona en el textbox vcredito.

si uso con keypress no me funciona ya que con enter, alt y ctrl no es efectivo.