
08/09/2008, 21:14
|
| | Fecha de Ingreso: septiembre-2008
Mensajes: 5
Antigüedad: 16 años, 6 meses Puntos: 0 | |
Respuesta: Como Ejecutar Codigo Mediante Enter En Excel 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 |