FORMULARIO DE INGRESO DE DATOS

 

Formulario básico para entrada de datos en Excel VBA

CÓDIGO.

Private Sub BAGREGAR_Click()

If Me.NOMBRE <> Empty And Me.PAIS <> Empty And Me.EDAD <> Empty Then

Dim FILA As Long

FILA = Hoja1.Range("A" & Rows.Count).End(xlUp).Row + 1

Hoja1.Cells(FILA, 1) = ID

Hoja1.Cells(FILA, 2) = NOMBRE

Hoja1.Cells(FILA, 3) = PAIS

Hoja1.Cells(FILA, 4) = EDAD

Hoja1.Cells(FILA, 5) = ESTADO

Hoja1.Cells(FILA, 6) = COLOR

ID = ID + 1

''''''

ID = Empty

NOMBRE = Empty

PAIS = Empty

EDAD = Empty

ESTADO = Empty

COLOR = Empty

UserForm_Initialize

MsgBox "Datos ingresados con exito"

Else

MsgBox "Campos vacios", vbCritical, "Campo Vacio"

End If

End Sub

Private Sub CommandButton1_Click()

Unload Me

End Sub

Private Sub UserForm_Initialize()

Dim FILA, FINAL As Long

FILA = Hoja1.Range("A" & Rows.Count).End(xlUp).Row + 1

If Hoja1.Cells(2, 1) = Empty Then

ID = 1

Else

ID = Hoja1.Cells(FILA - 1, 1) + 1

End If

NOMBRE.SetFocus

PAIS.List = Worksheets("DATOS").Range("A2:A6").Value

ESTADO.List = Worksheets("DATOS").Range("B2:B5").Value

COLOR.List = Worksheets("DATOS").Range("C2:C7").Value

End Sub

DESCARGA:

DESCARGA

https://mega.nz/file/VIEDnaQa#fodXl6YdLc9FxMjteP5JxUQ04HXh9HJs2YnSsqn1FE8