¿Cómo cargar datos alfanuméricos en un combobox activeX?
Como se podrá cargar datos alfanuméricos en un combobox que no este dentro de los userform, es decir que sea combo de activex, p.e. Que cargue datos de una columna sin repetir algún dato.
2 Respuestas
Para el siguiente código:
With Sheets("hoja con combobox")
With Sheets("hoja con datos")
Workbooks.Add
.Range(.[d1], .Cells(Rows.Count, "d").End(xlUp)).AdvancedFilter 2, , _
ActiveCell, True
End With
ActiveCell.CurrentRegion.Sort ActiveCell, 1, Header:=1
.ComboBox1.List = ActiveCell.Parent.Range( _
ActiveCell.Offset(1), ActiveCell.End(xlDown)).Value
ActiveWorkbook.Close False
End Withtienes:
- Una hoja llamada "hoja con combobox" donde está tu ComboBox1.
- Otra hoja llamada "hoja con datos". Los datos se encuentran en la columna D de manera que en la celda D1 tienes al encabezado y a partir de D2 los datos propiamente dichos.
- Y tú, si quieres, puedes tener activa una tercera hoja.
Para ganar en eficiencia estoy aplicando un filtro avanzado y cargo los datos únicos después de ordenarlos de menor a mayor.
¿Te sirve la idea?...
Te anexo la macro para la carga de los datos alfanuméricos.
Private Sub ComboBoxPartido_Change()
'Por.Dante Amor
Set h2 = Sheets("Sindico")
ComboBoxGanados.Clear
ComboBoxGanados = ""
For i = 11 To h2.Range("A" & Rows.Count).End(xlUp).Row
If h2.Cells(i, "A") = Val(ComboBoxDistrito) And _
h2.Cells(i, "C") = ComboBoxNombre And _
h2.Cells(i, "E") = ComboBoxPartido Then
agregar2 ComboBoxGanados, h2.Cells(i, "F")
End If
Next
filtrar
End Sub
'
Sub agregar2(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 SubSaludos.Dante Amor
Recuerda valorar la respuesta.