Formulario de Visual Basic, "Cuadros Combinados"

Lo que haremos es un formulario especial de Visual Basic con "Cuadros Combinados"

Les pondremos nombre a los cuadros de texto.
1- Textbox1
2- nombre
3- edad
4- cc_orden
5- registro
6- cc_ext
7- cc_genero

Ya con los nombre asignados programaremos el botón guardar.

Con los siguientes códigos.



Private Sub CommandButton1_Click()
Dim respuesta As String
Dim ultimalinea As Double
Dim penultimalinea As Double
Dim numero As String
Dim numero2 As String
Dim msg As String


If nombre = "" Or edad = "" Or cc_orden = Empty Or registro = "" Or cc_ext = Empty Or cc_genero = Empty Then
    respuesta = MsgBox("No deje espacios en blanco!", vbOKOnly, "Error!!!")
    nombre.SetFocus
   
Else
    ultimalinea = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
    penultimalinea = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
    penultimalinea = penultimalinea - 1
    numero2 = Cells(penultimalinea + 1, 1)
    If numero2 = "No." Then
        Cells(ultimalinea + 1, 1) = 1
    Else
        numero2 = numero2 + 1
        Cells(ultimalinea + 1, 1) = numero2
        TextBox1.Value = numero2
End If

Cells(ultimalinea + 1, 2) = nombre.Value
Cells(ultimalinea + 1, 3) = edad.Value
Cells(ultimalinea + 1, 4) = cc_orden.Value
Cells(ultimalinea + 1, 5) = registro.Value
Cells(ultimalinea + 1, 6) = cc_ext.Value
Cells(ultimalinea + 1, 7) = cc_genero.Value

msg = MsgBox("¿Desea agregar otro registro?", vbYesNo, "Continuar...")
If msg = vbYes Then
    TextBox1 = Empty
    nombre = Empty
    edad = Empty
    cc_orden = Empty
    registro = Empty
    cc_ext = Empty
    cc_genero = Empty
    nombre.SetFocus
Else
    UserForm1.Hide
End If
End If
End Sub


Una vez programado este botón, debemos programar, el userfrom, entonces hacemos doble clic sobre el userfrom, y le colocamos los siguiente códigos.


Private Sub UserForm_Activate()
cc_orden.AddItem "A-1"
cc_orden.AddItem "B-1"
cc_orden.AddItem "C-1"
cc_orden.AddItem "D-1"
cc_orden.AddItem "E-1"

cc_ext.AddItem "Guatemala"
cc_ext.AddItem "Antigua Guatemala"
cc_ext.AddItem "Santa Rosa"
cc_ext.AddItem "El Progreso"
cc_ext.AddItem "Escuintla"

cc_genero.AddItem "Masculino"
cc_genero.AddItem "Femenino"


End Sub

*Los codigos que programes directamente en el userfrom los puedes cambiar, cambiando lo que se encuentra dentro de los paracentesis.

*Previo a esto, debes realizar una tabla en excel, similar a esta:

Hecho esto, Ya tienes tu formulario listo para utilizar.