Trabajando con controles de formulario

1. Reemplazo de cboStatus por un Frame con OptionButtons

• Elimina primero cboStatus y su etiqueta del formulario — lo estás reemplazando, no agregando junto a él.
• Arrastra un control Frame al formulario, luego arrastra los tres OptionButtons dentro de los límites del Frame — este contenedor es lo que los hace mutuamente excluyentes como un solo grupo.
• Renombra cada OptionButton individualmente en la ventana de Propiedades; el Frame puede mantener un Caption sencillo como "Status" y no necesita un nombre para código a menos que planees referenciarlo directamente.
• Leer la selección significa comprobar el .Value de cada OptionButton individualmente con If...ElseIf — no existe una propiedad única que indique "cuál del grupo está seleccionado".
• Como cboStatus.Value ya no existe, cmdSave_Click necesita una variable status construida a partir de los OptionButtons, que se escribirá en newRow en su lugar.

2. Agregar dos CheckBoxes independientes

• Estos se colocan directamente en el formulario (no dentro del Frame) — los CheckBoxes fuera de un contenedor compartido nunca se afectan entre sí, sin importar el agrupamiento.
• Para "confirmar en pruebas", simplemente marca uno, luego el otro, y verifica que ninguno desmarca el primero.

3. Agregar y validar un ListBox

• Llénalo de la misma manera que se llenaba cboCity — llamadas repetidas a .AddItem en UserForm_Initialize.
• ListIndex = -1 significa específicamente aún no se ha hecho clic en nada — esa es la condición exacta que debes comprobar antes de permitir guardar.
• Esta validación debe estar en el mismo bloque de validación que las otras comprobaciones de campos obligatorios, agregando al mismo string errors.

4. Desafío MultiPage

• Arrastra un control MultiPage al formulario — viene con dos páginas por defecto, que es exactamente lo que necesitas.
• Renombra cada página mediante clic derecho → Page Order, o seleccionando la pestaña de la página y usando el campo Caption en la ventana de Propiedades (Caption controla el texto visible de la pestaña; hay un campo (Name) separado si quieres referenciar una página por nombre en el código).
• Mover controles existentes a una página significa arrastrarlos físicamente al área visible de esa página en la vista de diseño — las referencias de código a ellos no cambian, ya que el nombre del control no depende de en qué página esté ubicado.

Private Sub UserForm_Initialize()
    cboCity.AddItem "Chicago"
    cboCity.AddItem "Boston"
    cboCity.AddItem "Austin"
    cboCity.AddItem "Seattle"
    cboCity.AddItem "Denver"

    lstCities.AddItem "Chicago"
    lstCities.AddItem "Boston"
    lstCities.AddItem "Austin"
    lstCities.AddItem "Seattle"
    lstCities.AddItem "Denver"
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdSave_Click()
    Dim tbl As ListObject
    Dim newRow As ListRow
    Dim errors As String
    Dim status As String

    ' --- Reset field colors ---
    txtCompanyName.BackColor = vbWhite
    txtContact.BackColor = vbWhite
    txtEmail.BackColor = vbWhite

    ' --- Required field checks ---
    If Trim(txtCompanyName.Value) = "" Then
        errors = errors & "- Company Name is required" & vbNewLine
        txtCompanyName.BackColor = RGB(255, 199, 206)
    End If

    If Trim(txtContact.Value) = "" Then
        errors = errors & "- Contact is required" & vbNewLine
        txtContact.BackColor = RGB(255, 199, 206)
    End If

    If Trim(txtEmail.Value) = "" Then
        errors = errors & "- Email is required" & vbNewLine
        txtEmail.BackColor = RGB(255, 199, 206)
    End If

    ' --- Status via OptionButtons ---
    If optActive.Value = True Then
        status = "Active"
    ElseIf optInactive.Value = True Then
        status = "Inactive"
    ElseIf optProspect.Value = True Then
        status = "Prospect"
    Else
        errors = errors & "- Please select a Status" & vbNewLine
    End If

    ' --- ListBox check ---
    If lstCities.ListIndex = -1 Then
        errors = errors & "- Please select a city from the list" & vbNewLine
    End If

    If errors <> "" Then
        MsgBox "Please fix the following:" & vbNewLine & errors, vbExclamation
        Exit Sub
    End If

    ' --- All checks passed — safe to save now ---
    Set tbl = ThisWorkbook.Worksheets("Customers").ListObjects("tblCustomers")
    Set newRow = tbl.ListRows.Add

    newRow.Range(1, 1).Value = "C0" & (tbl.ListRows.Count + 100)
    newRow.Range(1, 2).Value = txtCompanyName.Value
    newRow.Range(1, 3).Value = txtContact.Value
    newRow.Range(1, 4).Value = txtEmail.Value
    newRow.Range(1, 5).Value = cboCity.Value
    newRow.Range(1, 6).Value = status

    If chkWelcomeEmail.Value = True Then
        MsgBox "A welcome email would be sent to " & txtEmail.Value & "."
    End If

    MsgBox txtCompanyName.Value & " was added successfully."
    Unload Me
End Sub

Notas de prueba:

• El punto 2 (CheckBoxes) no tiene validación dedicada — simplemente haz clic en chkWelcomeEmail y chkNewsletter de forma independiente y confirma que cada uno se activa sin afectar al otro.
• El punto 4 (MultiPage) es solo un cambio de diseño — no se requieren cambios de código más allá de lo que ya está aquí, ya que cada control mantiene su propio nombre sin importar en qué página se coloque.
• Observa que cboCity.Value todavía se usa para el guardado real (newRow.Range(1, 5)), mientras que lstCities existe únicamente como un control independiente validado por separado según la tarea — ambos no están conectados a menos que decidas ampliarlo por tu cuenta.