Programa ActiveCell.FormulaR1C1 = TextBox2

Range("B9").Select

ActiveCell.FormulaR1C1 = TextBox2

End Sub

Esto indica que se valla a B9 y escriba lo que hay en el Textbox2

Para volver al Formulario y programar el siguiente Textbox de doble

clic en UserForm1 que se encuentra en el Explorador de Proyecto,

o simplemente de clic en Ver Objeto en el mismo Explorador de

Proyecto.

10. Ahora de doble clic sobre el control Textbox3 para programarlo y

después inserte el siguiente código:

Private Sub TextBox3_Change()

Range("C9").Select

ActiveCell.FormulaR1C1 = TextBox2

End Sub

Esto indica que se valla a C9 y escriba lo que hay en el Textbox3

Para volver al Formulario y programar el Botón de Comando

Insertar de doble clic en UserForm1 que se encuentra en el

Explorador de Proyecto, o simplemente de clic en Ver Objeto en el

mismo Explorador de Proyecto.

11. Ahora de doble clic sobre el control Botón de Comando para

programarlo y después inserte el siguiente código:

Private Sub CommandButton1_Click()

Rem inserta un renglón

Selection.EntireRow.Insert

Rem Empty Limpia Los Textbox

TextBox1 = Empty

TextBox2 = Empty

TextBox3 = Empty

http://www.mailxmail.com/opt/cursoCompletoVisor.cfm?idCurso=12719&b=true

Range("B9").Select

ActiveCell.FormulaR1C1 = TextBox2

End Sub

Esto indica que se valla a B9 y escriba lo que hay en el Textbox2

Para volver al Formulario y programar el siguiente Textbox de doble

clic en UserForm1 que se encuentra en el Explorador de Proyecto,

o simplemente de clic en Ver Objeto en el mismo Explorador de

Proyecto.

10. Ahora de doble clic sobre el control Textbox3 para programarlo

...