Saltar al contenido

crear formularios y programarlos en excel segundo paso

7. Elija del Cuadro de Herramientas el control Botón de Comando y Arrastre dibujando en el Formulario USERFORM1 el Botón, después de un clic en el  nombre del Botón dibujado y podrá modificar el nombre y pondremos ahí Insertar. Si por error da doble clic en la Botón y lo manda a la pantalla de programación de la etiqueta, solo de doble clic en UserForm1 que se encuentra en el Explorador de Proyecto.
 Creando formularios y programándolos II
Así quedara el Formulario formado por los controles:
 Creando formularios y programándolos II
8. Ahora de doble clic sobre el control Textbox1 para programarlo y después inserte el siguiente código:
Private Sub TextBox1_Change()
Range(“A9”).Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Esto indica que se valla a A9 y escriba lo que hay en el Textbox1
Nota .-Lo que esta en azul lo genera Excel automáticamente, usted solo escribirá lo que esta en Negrita.
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.
9. Ahora de doble clic sobre el control Textbox2 para programarlo y después inserte el siguiente código:
Private Sub TextBox2_Change()
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
Rem Textbox1.SetFocus Envía el cursor al Textbox1 para volver a capturar los datos
TextBox1.SetFocus
End Sub
Nota.- El comando Rem es empleado para poner comentarios dentro de la programación, el comando Empty es empleado para vaciar los Textbox.
12. Ahora presione el botón Ejecutar User/Form que se encuentra en la barra de herramientas o simplemente la tecla de función F5
Creando formularios y programándolos II 
Se activara el Userform1 y todo lo que escriba en los Textbox se escribirá en Excel y cuando presione el botón Insertar, se insertara un renglón y se vaciaran los Textbox y después se mostrara el cursor en el Textbox1.
En este archivo que usted bajo se encuentra una hoja de Excel Libre de Virus o sea que esta limpio, ábralo sin ningún problema, ya que ahí viene un ejemplo de la Macro ya realizada y solo la ejecutara y vera como trabajan las Macros. Espero y estés pendiente porque vienen mas partes sobre este interesante curso de Macros.

Créditos & citaciones en formato APA: Revista educativa Arquitectura21.com, equipo de redacción profesional. (2010, 12). crear formularios y programarlos en excel segundo paso. Manuelette Ramirez Bencosme. Obtenido en fecha , desde el sitio web: https://www.arquitectura21.com/2010/12/crear-formularios-y-programarlos-en-excel-segundo-paso.html.