MACROS EN EXCEL III

Fase 3
CREANDO FORMULARIOS Y PROGRAMÁNDOLOS
Antes de Empezar esta nueva fase te recomiendo que salgas de Excel y vuelvas a entrar, esto es por
si estuviste practicando los códigos, para que no quede una secuencia de Macros.

Ahora te enseñare a dominar lo máximo de Excel que es crear formularios y programarlos, bueno un formulario es una ventana que se programa por medio de controles y estos controles responden a sucesos que nosotros
programamos. Todo esto se encuentra dentro de Visual Basic.

A continuación Muestro como crear un formulario y como programarlo:

  1. Presione La Teclas Alt + F11, para entrar al editor de Visual Basic.
  2. Activa las siguientes opciones:
    • De clic en el Menú Ver y elija la opción Explorador de Proyectos
    • De clic en el Menú ver y elija la opción Ventana Propiedades
  1. Del Menú Insertar elija la Opción UserForm. Esto inserta el Formulario que
    programaremos concontroles. En el Explorador de Proyecto se observara que se inserto
    el UserForm.


También cuando de clic en el Formulario USERFORM1 se debe de activar el Cuadro de Herramientas, si no se activa
de clic en el Menú Ver y elija la opción Cuadro de Herramientas.

  1. Elija del Cuadro de Herramientas el Control Etiqueta el que tiene la A y Arrastre dibujando en el Formulario
    USERFORM1 la etiqueta. Quedara el nombre Label1, después de un clic en la etiqueta dibujada y podrá
    modificar el nombre de adentro y pondremos ahí Nombre. Si por error da doble clic en la etiqueta 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.

  2. Elija del Cuadro de Herramientas el control Cuadro de Texto el que tiene ab y arrastre dibujando en el
    formulario USERFORM1 el cuadro de texto a un lado de la etiqueta que dice Nombre. El cuadro de texto debe
    de estar vacío y su nombre será Textbox1, el nombre solo aparecerá en el control.
  3. Haga los dos pasos anteriores igualmente poniendo Dirección en la Label2 y Teléfono en la Label3 y también
    dibújeles su Textbox. Esto quedara así después de haberlo hecho

Si tiene algún problema al dibujar las etiquetas o los cuadros de texto, solo cámbiele el nombre a la
etiqueta o el cuadro de texto en la Ventana Propiedades la opción se llama (Name).
El Error que marque puede ser Nombre Ambiguo, pero si le cambias el Nombre al control se quitara el error. Puedes ponerle cualquier nombre en
lugar de Label1.
 
Solo altera esto si te marca error, si NO déjalo así.
Los controles como las Etiquetas y Cuadros de Textos pueden modificárseles algunas opciones en la Ventana
PropiedadesPara hacer esto es necesario tener conocimiento sobre las propiedades de los controles.
No altere las propiedades si no las conoce.



  1. 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 elnombre 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.
 
 

Así quedara el Formulario formado por los controles:


  1. 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.
  1. 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.

  1. 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 ComandoInsertar 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.


  1. 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.
  1. Ahora presione el botón Ejecutar User/Form que se encuentra en la barra de herramientas o
    simplemente la tecla de función F5


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.

El Archivo Viene con el Nombre de Macro1