RETORNO DE CARRO
Publicado por frany (62 intervenciones) el 01/10/2006 22:36:23
Hola que tal.
Tengo el siguiente codigo en un USERFORM el userform2 en concreto.
Lo que pretendo es poder escribir texto en el texbox1 y que al pulsar enter pueda continuar escribiendo en l siguiente linea, pero me surje un problema.
cuando pulso enter, el foco se va al boton commandbutton1 y para que pueda volver al texbox1 he de hacer un click dentro del texbox1.
Me podriais ayudar para poder continuar con mi macro, es que pretendo pasar de un texbox1 el texto con fomrato a una celda de excel pero veo que un poco complicado, aun no he llegado a darle formato con negritas a los textos, pero veo que es dificil pues el texbox1 tiene pocas opciones.
Muchas gracias por cualquier ayuda.
Private Sub CommandButton1_Click()
ActiveCell.Value = texto_
End Sub
Private Sub TextBox1_Change()
texto_ = UserForm2.TextBox1.Value
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
tecla = KeyCode
pepito = texto_
If tecla = 13 Then
pepito = texto_
texto_ = texto_ & Chr$(10)
UserForm2.TextBox1.Value = texto_
UserForm2.TextBox1.SetFocus' ESTO NO ME FUNCIONA :-(
End If
End Sub
Tengo el siguiente codigo en un USERFORM el userform2 en concreto.
Lo que pretendo es poder escribir texto en el texbox1 y que al pulsar enter pueda continuar escribiendo en l siguiente linea, pero me surje un problema.
cuando pulso enter, el foco se va al boton commandbutton1 y para que pueda volver al texbox1 he de hacer un click dentro del texbox1.
Me podriais ayudar para poder continuar con mi macro, es que pretendo pasar de un texbox1 el texto con fomrato a una celda de excel pero veo que un poco complicado, aun no he llegado a darle formato con negritas a los textos, pero veo que es dificil pues el texbox1 tiene pocas opciones.
Muchas gracias por cualquier ayuda.
Private Sub CommandButton1_Click()
ActiveCell.Value = texto_
End Sub
Private Sub TextBox1_Change()
texto_ = UserForm2.TextBox1.Value
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
tecla = KeyCode
pepito = texto_
If tecla = 13 Then
pepito = texto_
texto_ = texto_ & Chr$(10)
UserForm2.TextBox1.Value = texto_
UserForm2.TextBox1.SetFocus' ESTO NO ME FUNCIONA :-(
End If
End Sub
Valora esta pregunta
0