por Hola a todos:
Ya sabéis que en esta web hay varias entradas que tratan el tema de los duplicados o cómo obtener registros únicos en nuestras informaciones, tanto en formularios como en bases de datos y usando métodos diferentes.
Sin embargo, esta semana un lector me solicitaba lo siguiente:
¿Es posible quitar los duplicados de un listbox mediante un boton
tomando los datos directamente del listbox sin tener que guardar la informacion a una hoja o tabla de calculo y que mantengan el mismo orden en el que fueron encontrados los registros por primera vez?
Es decir, interactuar directamente con el contenido del listbox sin posibilidad de acudir a la fuente de los datos y eliminar los duplicados antes de cargar la información en el listbox.
Aunque soy partidario de tratar la información antes de enviarla a un listbox (o combobox, etc…), lo cierto es que sí es posible hacer lo que el lector solicita. Y ese es el objetivo de este post.
Vamos a tomar un ejemplo en el que tenemos una base de datos con duplicados:
Estos datos los pasamos a un listbox en nuestro formulario y el código que utilizaremos para cargar el listbox es el siguiente:
Private Sub UserForm_Initialize()
Dim fin As Long
'Indicamos el número de columnas que tendrá el listbox
Me.ListBox1.ColumnCount = 7
'Definimos tamaño de los espacios
Me.ListBox1.ColumnWidths = "30pt;150pt;150pt;50pt;50pt;60pt"
'Cargamos listbox
With Sheets("BBDD")
fin = Application.CountA(.Range("A:A"))
Me.ListBox1.List = .Range("A2:G" & fin).Value
End With
End Sub
Es importante usar la propiedad listbox.list para cargar la información, dado que nos posibilitará el poder eliminar duplicados directamente en el listbox con el método RemoveItem.
Podéis ver que nuestro listbox muestra todos los duplicados, pues bien, para eliminar los duplicados usaremos esta otra macro, vinculada al botón de comando «ELIMINAR DUPLICADOS»:
Private Sub CommandButton1_Click()
'Declaramos variables
Dim i As Long, j As Long
With ListBox1
'Eliminamos duplicados
For i = 0 To .ListCount - 1
For j = .ListCount - 1 To (i + 1) Step -1
If .List(j) = .List(i) Then .RemoveItem j
Next j
Next i
End With
End Sub
Una vez que hemos pulsado el botón, automáticamente se eliminan los duplicados en nuestro listbox, así:
Pues bien, el utilizar la propiedad .list nos ha permitido solucionar este problema. Ahora ya tenemos nuestro listbox sin duplicados y listo para ser usado en otras tareas.
Espero que os haya resultado interesante y que os pueda ayudar en vuestros trabajos y proyectos.
Como siempre, os dejo el archivo de ejemplo : )
Descarga el archivo de ejemplo pulsando en: ELIMINAR DUPLICADOS DIRECTAMENTE SOBRE EL CONTENIDO DE UN LISTBOX
¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.
¡¡Muchas gracias!!
Un saludo cordial desde Guatemala, los felicito por su trabajo que realizan en referencia a las necesidades de las personas que comentan. Yo pues me sumo a esas personas que tienen sus dudas y es que tengo una duda, espero me puedan ayudar con el tema, estoy trabajando en un proyecto similar descrito acá arriba y estoy trabajando en un listbox en el cual se van introduciendo datos por medio de textbox, un botón que los agregue y otro botón que procese la información del list a una hoja de excel, hasta alli todo bien, pero habrá un código en el cual me impida procesar algún dato ingresado al listbox y éste ya se encuentre registrado en la hoja? Les agradezco le den lectura a mi comentario, muchas gracias.
Hola Ahrens: para poder contestarte necesito que envías a excelsignum@yahoo.es un ejemplo, sencillo del proceso que estás realizando y explicando lo que necesitas detalladamente. Saludos.
Con mucho gusto se lo estaré enviando.
Gracias por tan pronta respuesta.