por Adrian » 16 May 2006 12:09
Hola!
Una Variente sería:
Modificar la propiedad del nterKeyBehavior TextBox4 la ponemos a True, y le damos un ancho (según criterio) para que se vean cuatro lineas, y el código del botón quedaría:
Private Sub CommandButton1_Click()
Rem inserta un renglón
'Selection.EntireRow.Insert
Sheets(2).Range("A10").EntireRow.Insert
Rem Empty Limpia Los Textbox
TextBox4.Value = TextBox1.Value + Chr(13) + TextBox2.Value + Chr(13) + TextBox3.Value
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
Rem Textbox1.SetFocus Envía el cursor al Textbox1 para volver a capturar los datos
TextBox1.SetFocus
End Sub
Atte