Utilzar Enter en un Formulario

hola, DANILO !

... hacer para que en un texbox... con el enter me muestre otro texbox... en VB lo he hecho con: ejemplo
Private Sub Textcontra_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
TextUsr.SetFocus
..
Pero en Excel no me da.

para vbA [de excel] prueba con algo +/- como lo siguiente:
Private Sub Textcontra_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then TextUsr.SetFocus
End Sub

saludos,
hector.

Hola HM
Te cuento que intentado pero no me da, he intentado que al dar enter en el
texbox me muestre otro texbox, Ejm: texusr.visible=true.
Como puedo hacerlo.

Gracias por tu ayuda.
Danilo A



"Héctor Miguel" escribió:

hola, DANILO !

> ... hacer para que en un texbox... con el enter me muestre otro texbox... en VB lo he hecho con: ejemplo
> Private Sub Textcontra_keypress(KeyAscii As Integer)
> If KeyAscii = 13 Then
> TextUsr.SetFocus
> ..
> Pero en Excel no me da.

para vbA [de excel] prueba con algo +/- como lo siguiente:
Private Sub Textcontra_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then TextUsr.SetFocus
End Sub

saludos,
hector.

hola, Danilo !

... no me da, he intentado que al dar enter en el texbox me muestre otro texbox, Ejm: texusr.visible=true [...]

[creo que] habia una 'cierta ambiguedad' en la consulta original :-(
-> aunque mencionabas MOSTRAR: '...que en un texbox... con el enter me muestre otro texbox...'
-> hacias referencia a 'pasar el foco' -?-
-> en la propuesta anterior... para poder 'pasar el foco' a otro control se requiere que 'el otro control' ->este visible<- :))
-> si lo que necesitas es 'hacer los dos pasos'... [mostrarlo y pasarle el foco]...
usa un evento distinto [p.e.]
en el modulo de codigo del formulario en vba ==Private Sub Textcontra_KeyDown( _
ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then _
TextUsr.Visible = True: TextUsr.SetFocus
End Sub

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.

"Héctor Miguel" escribio:

hola, DANILO !

> ... hacer para que en un texbox... con el enter me muestre otro texbox... en VB lo he hecho con: ejemplo
> Private Sub Textcontra_keypress(KeyAscii As Integer)
> If KeyAscii = 13 Then
> TextUsr.SetFocus
> ..
> Pero en Excel no me da.

para vbA [de excel] prueba con algo +/- como lo siguiente:
Private Sub Textcontra_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then TextUsr.SetFocus
End Sub

saludos,
hector.

HOLA HM

Que bien como funciona eso es lo que necesito,pero hay un problema, no deja
digitar en el texbox, con cualquier tecla esta funcionando , se podria solo
con el enter?

Gracias por tu ayuda




"Héctor Miguel" escribió:

hola, Danilo !

> ... no me da, he intentado que al dar enter en el texbox me muestre otro texbox, Ejm: texusr.visible=true [...]

[creo que] habia una 'cierta ambiguedad' en la consulta original :-(
-> aunque mencionabas MOSTRAR: '...que en un texbox... con el enter me muestre otro texbox...'
-> hacias referencia a 'pasar el foco' -?-
-> en la propuesta anterior... para poder 'pasar el foco' a otro control se requiere que 'el otro control' ->este visible<- :))
-> si lo que necesitas es 'hacer los dos pasos'... [mostrarlo y pasarle el foco]...
usa un evento distinto [p.e.]
en el modulo de codigo del formulario en vba ==> Private Sub Textcontra_KeyDown( _
ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then _
TextUsr.Visible = True: TextUsr.SetFocus
End Sub

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.

> "Héctor Miguel" escribio:
>> hola, DANILO !
>>
>> > ... hacer para que en un texbox... con el enter me muestre otro texbox... en VB lo he hecho con: ejemplo
>> > Private Sub Textcontra_keypress(KeyAscii As Integer)
>> > If KeyAscii = 13 Then
>> > TextUsr.SetFocus
>> > ..
>> > Pero en Excel no me da.
>>
>> para vbA [de excel] prueba con algo +/- como lo siguiente:
>> Private Sub Textcontra_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
>> If KeyAscii = 13 Then TextUsr.SetFocus
>> End Sub
>>
>> saludos,
>> hector.

hola, Danilo !

... como funciona eso es lo que necesito, pero hay un problema, no deja digitar en el texbox
con cualquier tecla esta funcionando, se podria solo con el enter?

[pues]... segun mis pruebas... funciona 'segun la intencion'... ->hasta<- que pulso el enter :(
[y si me deja digitar los caracteres que desee] :)
quizas... algun otro codigo o evento este causando 'interferencia' ??

comentas?
saludos,
hector.