Textbox

hola, Patricia !

... 3 textbox en una hoja ... que al digitar ... en el primer textbox pase ... hasta el ultimo textbox [...]

si te sirve una solucion 'alterna' [NO 'requiere' macros], podrias 'vincular' el/los textbox/es a una [hoja!]celda:
1.- selecciona el/los textbox/es [cada uno por 'individual']
2.- =>en la barra de formulas<= 'introduce' el signo '=' y selecciona [con el raton] la [hoja!]celda que 'tiene' el texto
3.- termina la 'edicion' con enter [o ¬/ 'palomita' en la barra de formulas]
el texto que escribas en la [hoja!]celda seleccionada pasara 'automaticamente' a los textboxes
[configura el formato de los textboxes a 'tamaño automatico' en el apartado de 'alineacion']
=> formato de cuadro de texto... <
saludos,
hector.

Hector, estoy muy agradecida por responder a mi pregunta, pero creo que no fui clara en lo que necesito
En mi hoja de excel, tengo 3 textbox
Textbox1 para el año, Textbox2 para la Agencia, Textbox3 para nombre del gerente. en las propiedades de cada Textbox utilice la propiedad Linkedcell para vincular el dato digitado en el textbox a una celda, ya que ese valor lo estoy referenciando en otras hojas del libro. Ahora si lo que quiero : Que al digitar el año en el textbox1 mediante tab o enter el cursor pase al textbox2 para digitar la agencia y pase al textbox3 para digitar el nombre del gerente
Espero que me haya hecho entender
Altamente agradecida..
Una novata con deseos de aprender :


Hola, agradeceria su valiosa ayuda...Tengo 3 textbox en una hoja de excel y quiero que al digitar datos en el primer textbox pase automaticamente al segundo y asi hasta el utlimo textbox... como lo hago
gracias

hola, Patricia !

... creo que no fui clara en lo que necesito.

==> una disculpa... soy yo quien NO 'estaba claro' en lo que pedias [confundi 'textbox' con 'cuadros de texto'] :((

... quiero que al digitar ... en el textbox1 mediante tab o enter el cursor pase al textbox2 ... y ... al textbox3 [...]

ahora si... )) suponiendo que los nombres de los textboxes son: 'TextBox1', 'TextBox2' y 'TextBox3'
las siguientes lineas 'cambiaran' de textbox 'activo' al siguiente => usando la tecla {Tab} <[o... si 'combinas' {Tab} con {Mayus} 'se moveran' al anterior]
[si NO hay 'siguiente' o 'anterior'... 'regresa' el enfoque a la seleccion actual de la hoja]
en el modulo de codigo de 'la hoja' que contiene a los textboxes ==Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Then
Selection.Activate
If Not Shift <> 0 Then Me.OLEObjects("TextBox2").Activate
End If
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Then
Selection.Activate
If Not Shift <> 0 Then Me.OLEObjects("TextBox3").Activate Else OLEObjects("TextBox1").Activate
End If
End Sub
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyTab Then
Selection.Activate
If Shift <> 0 Then Me.OLEObjects("TextBox2").Activate
End If
End Sub

saludos,
hector.

Hector,copié el codigo que me sugeriste porque se ajusta a mi caso, al digitar el valor en el textbox1 el cursor pasa al textbox2 y me sale un mensaje de error "Microsoft Excel for Windows ha detectado un problema y debe cerrarse" y me reinicia excel ...
que puede ser?
Patricia

hola, Patricia !

... el codigo ... se ajusta a mi caso [...]
... error "Microsoft Excel ... ha detectado un problema y debe cerrarse" y me reinicia excel ... que puede ser?

el 'problema' lo ocasionan las lineas 'Selection.Activate', que 'corrigen' una falla [en excel '97] con la propiedad
'TakeFocusOnClick' [True por omision] de controles ActiveX 'incrustados' en hojas de calculo.
dicha situacion fue corregida a partir de la version 2000... 'pero'... ahora 'le estorba' el 'Selection.Activate' :((

para el caso de excel 2000 [y 'posteriores'], el codigo que 'funciona' es el siguiente:
[NO 'necesita' el 'Selection.Activate' y le agregue una 'salida inmediata' si presionas la tecla {Enter}] :))
en el modulo de codigo de 'la hoja' que contiene a los textboxes ==Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{Esc}"
If KeyCode = vbKeyTab Then
If Shift = 0 Then Me.OLEObjects("TextBox2").Activate Else SendKeys "{Esc}"
End If
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{Esc}"
If KeyCode = vbKeyTab Then
If Shift = 0 Then Me.OLEObjects("TextBox3").Activate Else OLEObjects("TextBox1").Activate
End If
End Sub
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{Esc}"
If KeyCode = vbKeyTab Then
If Shift = 1 Then Me.OLEObjects("TextBox2").Activate Else SendKeys "{Esc}"
End If
End Sub

saludos,
hector.