Filtrar datos en el combobox de hoja deuda
Para Dante
Amigo Dante deseo que en el combobox se filtren los nombres de los alumnos de la hoja "deuda" y que no aparezcan los nombres repetitivos.
Como te muestro en la imagen esta un alumno que no tiene deuda
Le pido esto porque me facilitará cuando realice los pagos se eliminen las deudas del alumno automáticamente.
1 Respuesta
H o l a:
Esta es la rutina, pero tengo varias versiones del archivo, ya no sé cuál es la última, intenta adaptar el código, si tienes problemas envíame tu última versión.
Private Sub UserForm_Initialize()
MultiPage1.Font.Size = 18
Cboespecialidad. AddItem "INICIAL EIB"
Cboespecialidad. AddItem "PRIMARIA EIB"
Cbociclo. AddItem "I"
Cbociclo. AddItem "II"
Cbociclo. AddItem "III"
Cbociclo. AddItem "IV"
Cbociclo. AddItem "V"
Cbociclo. AddItem "VI"
Cbociclo. AddItem "VII"
Cbociclo. AddItem "VIII"
Cbociclo. AddItem "IX"
Cbociclo. AddItem "X"
Cboespecdeuda. AddItem "INICIAL EIB"
Cboespecdeuda. AddItem "PRIMARIA EIB"
Cbociclodeuda. AddItem "I"
Cbociclodeuda. AddItem "II"
Cbociclodeuda. AddItem "III"
Cbociclodeuda. AddItem "IV"
Cbociclodeuda. AddItem "V"
Cbociclodeuda. AddItem "VI"
Cbociclodeuda. AddItem "VII"
Cbociclodeuda. AddItem "VIII"
Cbociclodeuda. AddItem "IX"
Cbociclodeuda. AddItem "X"
CboMotivo. AddItem "TALLER DE CAPACITACIÓN"
CboMotivo. AddItem ""
'
Set hd = Sheets("deudas")
For i = 5 To hd.Range("B" & Rows.Count).End(xlUp).Row
Call agregar(Cbocliente, hd.Cells(i, "B"))
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 SubSal u dos
Amigo Dante el filtro funciona bien, pero ya no me arroja los datos al textDNIcliente y Listapago.
Te adjunté el archivo actualizado saludos amigo !
Tu petición es esta:
"
Amigo Dante deseo que en el combobox se filtren los nombres de los alumnos de la hoja "deuda" y que no aparezcan los nombres repetitivos.
"
El código lo tienes que adaptar a la última versión de tu archivo. Si tienes problemas para adaptarlo con gusto te ayudo.
Si quieres que arregle otras cosas del código deberás crear una pregunta por cada petición, pero si no valoras adecuadamente mis respuestas, ya no podré ayudarte.
Sal u dos
