Ayuda con combobox enlazados pero items duplicados.

[Cesar leon]

Hola.

No se si logre explicarme bien pero el asunto es el siguiente:

resulta que tengo una userform donde tengo varios combobox enlazados el problema es que cuando seleciono un dato en el combobox1 me lanza otras opciones combobox2 pero con datos duplicados.

mi pregunta es como logro hacer que las opciones del combobox no sean duplicados.

Adjunto libro.

esto me pasas con los combobox2 ,

combobox4 y combobox5

Ayuda porfavor no domino mucho macros.

new 1.rar

[Cesar Durand]

Hola Cesar,

Útiliza este código para el evento del combo1. El que puedes emplear para los demás combos.

Private Sub ComboBox1_Change()

'COMBOBOX1 = EQUIPO

    ComboBox2.Clear

    For Each celda In Range([e5], [e5].End(xlDown))

        encontrado = False

        If celda.Offset(0, -1) = ComboBox1.Value Then

            For i = 0 To ComboBox2.ListCount - 1

                If celda = CStr(ComboBox2.List(i)) Then encontrado = True

            Next

            If encontrado = False Then ComboBox2.AddItem celda

        End If

    Next

End Sub[/CODE]

Slds.-

[Cesar leon]

Muchas Gracias. Cesar Durand fuiste la solución.

Otra duda si no esta de mas.

como hago para que me lance ordenado alfabéticamente.

Gracias.

Saludos.

[YoelMonsalve]

Bueno, además del aporte de Cesar Duran, yo agregaría otros detallitos. En primer lugar, ponle un botón que te permita invocar al Formulario directamente desde la Hoja de Cálculo. Dicho botón al que llamamos "MENÚ" y lo podrás ver en la parte superior izquierda de la Hoja de Excel, estaría asociado con la macro:

' *** Macro invocada al hacer click en el botón MENÚ ***
Sub Btn1_Click()

    Load UserForm1
    UserForm1.Show

End Sub

Además, como tu idea parece ser desarrollar un sistema completo que permita agregar, editar y eliminar los registros, sería deseable que el Formulario se cargara inicialmente con los datos de la fila actualmente seleccionada en la Tabla de Datos. Por eso agregamos al evento Initialize del Userform:

' ************************************************************************
    ' En esta parte vamos a procurar que el formulario cargue automáticamente
    ' los datos de la fila seleccionada en la tabla de datos
    '
    ' Idea propuesta por:
    ' Yoel Monsalve / yymonsalve@gmail.com

    Dim I As Long
    Dim N_items As Long

    If Trim([a5]) = "" Then
        N_items = 0
    Else
        N_items = IIf(Trim([a6]) = "", 1, [a5].End(xlDown).Row - 4)
    End If

    ' Cargar los datos
    I = ActiveCell.Row
    If N_items <> 0 And I >= 5 And I <= N_items + 4 Then

        ' fecha
        TextBox1 = Range("A" & I)

        ' No. vale
        TextBox2 = Range("C" & I)

        ' Equipo
        ComboBox1 = Range("D" & I)

        ' Operador
        ComboBox2 = Range("E" & I)

        ' Material
        ComboBox3 = Range("F" & I)

        'Labor
        ComboBox4 = Range("G" & I)

        'Veta
        ComboBox5 = Range("H" & I)
    End If
    '*************************************************************************

Y por último, un pequeño detalle muy agradable visualmente, y es que a medida que nos desplazamos por la Tabla de Datos, se resalte completamente la fila actual.

[ATTACH]60710[/ATTACH]

Ello lo logramos programando apropiadamente le evento Worksheet_SelectionChange de la Hoja DDBB. Para más detalles de esto, revisa el código Visual Basic del archivo adjunto ...

Si te gustó mi propuesta, podemos seguir trabajando en ella, y no olvides recompensar con un "me gusta"

new 1.zip

[Cesar Durand]

Vuelvo por aquí con la solución

Private Sub ComboBox1_Change()

'COMBOBOX1 = EQUIPO

Dim lista As Object

    Set lista = CreateObject("System.Collections.ArrayList")

    ComboBox2.Clear

    For Each celda In Range([e5], [e5].End(xlDown))

        encontrado = False

        If celda.Offset(0, -1) = ComboBox1.Value Then

            For i = 0 To lista.Count - 1

                If celda = lista(i) Then encontrado = True

            Next

            If encontrado = False Then lista.Add celda.Text

        End If

    Next

    lista.Sort

    For i = 0 To lista.Count - 1: ComboBox2.AddItem lista(i): Next

End Sub[/CODE]

Slds.- a todos los que comenten

[Cesar leon]

eh probado la solución pero solo me ordena el bombobox2 mas no el combobox1

Gracias de antemano

Disculpe las molestias.