UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Eliminar duplicados de combobox el 25/09/15, 05:09 am

modulovar


Hola a todos, os comento

He creado una función para añadir datos de la hoja 1 a una combobox que no aparezcan ni en la hoja2 ni la hoja 3 pero he estado intentando además eliminar también los datos duplicados de la hoja 1 y no lo consigo.

Aquí os dejo el archivo.

Muchas gracias a todos
Archivos
Actualizar combobox.zip
No tienes los permisos para descargar los archivos.
(16 KB)

2RESUELTO Re: Eliminar duplicados de combobox el 25/09/15, 05:32 am

adolfo castro


Hola buenos días, que es lo que quieres eliminar los duplicados de la hoja , o eliminar los duplicados del combobox?¿
de la hoja1?¿

3RESUELTO Re: Eliminar duplicados de combobox el 25/09/15, 06:24 am

modulovar


los del combobox, quiero que salgan los datos del combobox sin repetir

4RESUELTO Re: Eliminar duplicados de combobox el 25/09/15, 07:57 am

adolfo castro


A ver si es esto lo que precisas

saludos Adolfo castro
Archivos
Copia de Actualizar combobox.zip
No tienes los permisos para descargar los archivos.
(16 KB)

5RESUELTO Re: Eliminar duplicados de combobox el 26/09/15, 12:53 pm

modulovar


Hola, buenas tardes, he estado probando tu método y si, elimina los duplicados pero no elimina los añadidos que hay en las otras páginas.

En el proyecto que te envié al iniciar el userform, eliminaba los *Hola* del 1 al 6 que son los que están en las páginas de añadidos. (Hojas 2 y 3) y en el que me has pasado, carga todos los resultados sin esta distinción.

En el ejemplo que te pasé carga del hola 7 al hola 0 porque no se encuentran ni en la hoja 2 ni en la 3, quiero mantener eso pero dejando valores únicos (un hola 7, un hola 8, etc...)

lo ideal seria juntar estas dos funciones, pero no se como hacerlo ni que debería ejecutar primero.

muchisimas gracias por tu ayuda y tiempo

6RESUELTO Re: Eliminar duplicados de combobox el 26/09/15, 01:17 pm

adolfo castro


Hola buenas tardes, vamos lo que quieres hacer si no me equivoco, es cargar todos los datos de las hojas, en el combo, y en el combo que tan solo aparezca una unidad de ellos, algo asi puede ser?¿

7RESUELTO Re: Eliminar duplicados de combobox el 26/09/15, 01:32 pm

modulovar


No, lo que quiero es que en el combobox se cargue un resultado único de todos los datos que no aparezcan ni en la hoja 2 ni en la hoja 3

haciendo referencia al ejemplo que te he pasado recorra la hoja 2 y la hoja 3 y descarte los valores que aparezcan.

ejemplo

Hoja 2: Hola 1, Hola 2 y Hola 3
Hoja 3: Hola 4, Hola 5 y Hola 6

Lo que quiero que aparezca en el combobox:

combobox: Hola 7, Hola 8, Hola 9 y Hola 0 (Sin repetirse)

ante todo muchisimas gracias por tu ayuda

8RESUELTO Re: Eliminar duplicados de combobox el 26/09/15, 07:01 pm

adolfo castro


Hola perdona por el retraso, pero no tengo mucho tiempo, no me gusta, pero al menos hace lo que precisas o al menos eso pienso, espero te sirva, aunque seguramente alguien pueda afinar mas la respuesta.

saludos Adolfo cstro
Archivos
Copia de Actualizar combobox.zip
No tienes los permisos para descargar los archivos.
(22 KB)

9RESUELTO Re: Eliminar duplicados de combobox el 26/09/15, 07:17 pm

modulovar


Amigo mio, me salvas la vida, ni se me había pasado por la cabeza este ingenio de código.

Creo que prar que qedara más limpio (Aunque supongo que ya se te habrá ocurrido) al cerrar el userform (o al acabar el sub) se podría hacer un borrado de la columna.

Muchisimas gracias por tu ayuda, de verdad

10RESUELTO Re: Eliminar duplicados de combobox el 27/09/15, 04:22 am

adolfo castro


si lo había pensado, pero como ya te digo, las cosas a la carrera no visten bien, y me pillaste en un trabajo a medias, asi que fue como una pequeña inspiración a la carrera, saludos

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.