Jump to content

Archived

This topic is now archived and is closed to further replies.

Cesar leon

Ayuda con combobox enlazados pero items duplicados.

Recommended Posts

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

post-102501-145877016512_thumb.png

new 1.zip

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy