CREAR UN FORMULARIO PARA INGRESAR DATOS A UNA HOJA DE EXCEL

 1.       Entre a Excel

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

3.       En la celda A6 digite Nombre.  En la Celda B6 digite Apellido. En la Celda C6 digite edad

4.       En la Celda D6 digite Sexo.  En la Celda E6 digite Dirección

5.       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 PERSONALES

9. Ahora cambiamos el nombre a la Hoja de datos por Base

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

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

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

13. Hago lo mismo para los otros cuadros de texto llamando las cajas de texto como TextApellido, TextEdad, TextSexo y TextDireccion

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

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

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