FORMULARIO CON MACROS 1102

 1.       Entre a Excel

2.       Guarde la LIBRO de calculo con el nombre BasedeDatos1102 y en tipo elija Libro de Excel habilitado para Macros y haga clic en Guardar

3.       En la celda A6 digite NOMBRE COMPLETO.  En la Celda B6 digite GENERO. En la Celda C6 digite EDAD.  En la Celda D6 digite CELULAR.  En la Celda E6 digite COREO ELECTRÒNICO

4.       Seleccione los encabezados y presione al mismo tiempo las teclas CTRL y T

Y en esta ventana 

 hacemos clic en el Check , La tabla tiene encabezados y hacemos clic en Aceptar

 6.  Luego en la pestaña Diseño de tabla elegimos un Estilo de Tabla.

 7. .  Ahora vamos a la pestaña Vista y desactivamos el Check Lineas de cuadrícula, para que no se vean las cuadrícula

8. Vamos a crear un Título para nuestra tabla, en este caso escribimos BASE DE DATOS ADMINISTRATIVOS I.E.S.P

9. Vamos a la pestaña Programador y damos clic en Visual Basic

10.  Damos clic en Insertar e insertamos un UserForm que tendrá la siguiente apariencia

11. Selecciono el cuadro de texto de la etiqueta Nombre Completo y en la propiedad Nombre le escribimos TextNombre

12. Hago lo mismo para los otros cuadros de texto llamando las cajas de texto como TextGenero, TextEdad, TextCelular y TextCorreo

13. El botón de Comando Registra lo llamamos Bt_Registrar y el Botón pequeño con un punto lo llamaré VolverExcel

14.  Ahora escribimos el siguiente código

Private Sub Bt_Registrar_Click()

Dim ulfila As String

ulfila = Sheets("HOJA1").Cells(Rows.Count, "A").End(xlUp).Row

ulfila = ulfila + 1

 

If Me.TextNombre = " " Then

   MsgBox "Agregue un dato"

Else

  Me.TextNombre.SetFocus

  Range("A" & ulfila).Value = Me.TextNombre.Value

  Range("B" & ulfila).Value = Me.TextApellido.Value

  Range("C" & ulfila).Value = Me.TextEdad.Value

  Range("D" & ulfila).Value = Me.TextSexo.Value

  Range("E" & ulfila).Value = Me.TextDireccion.Value

   Me.TextNombre.SetFocus

  Me.TextNombre.value = Empty

  Me.TextApellido.value = Empty

  Me.TextEdad.value = Empty

  Me.TextSexo.value = Empty

  Me.TextDireccion.value = Empty

  Me.TextNombre.SetFocus

End If

End Sub

 

 

Private Sub Volverexcel_Click()

Application.Visible = True

Unload Me

End Sub

 

Ahora damos clic en Insertar e insertamos un modulo    y escribimos lo siguiente:

Sub mostrarformulario()   

 UserForm1.Show

End Sub

 

Sub ocultarexcel()

Application.Visible = False

UserForm1.Show

End Sub

 16.  Ahora guardamos y ejecutamos

17.    Ahora voy a la hoja de Excel e inserto dos formas con el siguiente aspecto:

18.   Selecciono la forma FORMULARIO y presiono Botón derecho del mouse y elijo Asignar macro y aparece la siguiente ventana

Doy clic en mostrarformulario y luego en Aceptar

19.  Ahora selecciono la Forma Ocultar Excel y presiono Botón derecho del mouse y elijo Asignar macro y hago clic en Ocultarexcel y Aceptar

20.     Guardamos y ejecutamos