Macro para quitar repetidos de combobox
----------------
Hola a todos
Busco ayuda
Con esto
Tengo dos combobox y necesito que el segundo no aparezcan repetidos
Como podría hacer eso
Respuesta de Adriel Ortiz Mangia
2
[Hola
yo uso esta macro, cambia el nombre del combobox y la columna a filtrar
Private Sub CommandButton1_Click()
'Por.DAM
ComboBox1.Clear
uf = Sheets("Producción").Range("F" & Rows.Count).End(xlUp).Row
For i = 10 To uf
AddItem ComboBox1, Sheets("Producción").Cells(i, "F")
Next
End Sub
'
'
Sub AddItem(cmbBox As ComboBox, sItem As String)
'por.DAM agrega los item únicos y en orden alfabético
For i = 0 To cmbBox.ListCount - 1
Select Case StrComp(cmbBox.List(i), sItem, vbTextCompare)
Case 0: Exit Sub 'ya existe en el combo y ya no lo agrega
Case 1: cmbBox.AddItem sItem, i: Exit Sub 'Es menor, lo agrega antes del comparado
End Select
Next
cmbBox.AddItem sItem 'Es mayor lo agrega al final
End SubValora la respuesta para finalizar saludos!
Y también el nombre de la hoja
2 respuestas más de otros expertos
Respuesta de carlos arana
1
gracias pero no me funciona
ya
gracia