Como cargar un combobox de una data sin que los códigos a mostrarse en el combo no se repitan
Estimado Dante Amor;
Cual es el método que se puede hacer para que cuando seleccione el combo solo me muestre los códigos únicos y no los duplicados de una data.
Gracias por su pronta respuesta.
Saludos desde Perú
1 Respuesta
Respuesta de Dante Amor
1
Esta es la macro para cargar datos únicos
Private Sub UserForm_Activate()
'Por.Dante Amor
For i = 2 To Hoja8.Range("C" & Rows.Count).End(xlUp).Row
agregar ComboBox1, Hoja8.Cells(i, "C")
Next
End Sub
Sub agregar(combo As ComboBox, dato As String)
'por.Dante Amor
For i = 0 To combo.ListCount - 1
Select Case StrComp(combo.List(i), dato, vbTextCompare)
Case 0: Exit Sub 'ya existe en el combo y ya no lo agrega
Case 1: combo.AddItem dato, i: Exit Sub 'Es menor, lo agrega antes del comparado
End Select
Next
combo.AddItem dato 'Es mayor lo agrega al final
End Sub
