Saltar al contenido

Ayuda con combobox enlazados pero items duplicados.

publicado

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

Featured Replies

publicado

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.-

publicado
  • Autor

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.

publicado

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 / [email protected]

    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" :D

post-102501-145877016512_thumb.png

new 1.zip

publicado

Vuelvo por aquí con la solución :D

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

publicado
  • Autor

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

Gracias de antemano

Disculpe las molestias.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.