combobox

[guedezLpr]

Muy buen día estimados amigos reciban un cordial saludo, tengo un combobox en un formulario de BVA con elementos ya cargados, deseo que cuando escriba un elemento en el combobox que no está en la lista este elemento se adicione automáticamente a la lista del combobox

Mil gracias anticipada por su ayuda

[Israel Cassales]

Sin libro de ejemplo solo puedo participar en tu consulta con código pensado de manera general.

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim i As Integer
    Dim existe As Boolean

    existe = False

    ' Verificar si el elemento ya existe en la lista
    For i = 0 To ComboBox1.ListCount - 1
        If ComboBox1.List(i) = ComboBox1.Text Then
            existe = True
            Exit For
        End If
    Next i

    ' Si el elemento no existe, agregarlo a la lista
    If Not existe Then
        ComboBox1.AddItem ComboBox1.Text
    End If
End Sub

Este código agrega un nuevo elemento al combobox cuando el usuario escribe algo y presiona ‘Enter’.

Espero te sea de ayuda, sino comparte el ejemplo y es posible que algún miembro o Maestro te brinde ayuda más específica.