Jump to content

No escribir valores repetidos


Go to solution Solved by Frank2021,

Recommended Posts

Buenas tardes. Tengo dos filas con distintos nombres en cada columna, y los quiero pasar a una columna sin que se dupliquen los valores, pero no sé como hacerlo.

Ejemplo:

Tengo estas dos filas con nombres de colores:

Fila 1: Azul, Verde, Morado, Rosado

Fila 2: Amarillo, Gris, Negro, Azul, Morado, Dorado, Rojo.

Y lo que quiero es ir comparando la fila 1 con la fila 2 y que en una columna me coloque los nombres sin repetirlos:

Columna 1:

Azul, Verde, Morado, Rosado, Amarillo, Gris, Negro, Dorado, Rojo.

 

¿Cómo puedo hacer esto?

Ya que lo que he conseguido con mi código es que al comparar, por ejemplo Azul (Fila 1) con la Fila 2 en la columna me lo coloca una sola vez, pero luego cuando me coge el verde (Fila 1) al comparar en la fila 2, como verde <> azul, entonces me vuelve a colocar el azul, y al final obtengo en la columna:

Azul, Verde, Morado, Rosado, Amarillo, Gris, Negro, Azul, Morado, Dorado, Rojo. 

 

Pongo este ejemplo de prueba porque actualmente lo que quiero hacer está en un libro con un código muy largo y el código no me está permitido compartirlo, pero si es necesario, hago un libro de prueba e invento este ejemplo.

Gracias de antemano.

Saludos.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • buen dia Carlos Toro te dejo este link https://www.excelnegocios.com/archivos-independientes-segun-hojas-excel/ espero que te funciones saludos  
    • Hola Antoni/Diego, finalmente ya he solucionado el error. El hecho por el que no recogía los datos era porque en la BBDD que utilizamos para cargar dichos datos (donde únicamente había 1 hoja con los datos) se había modificado añadiendo otra hoja nueva (alguien del dto había creado la nueva pestaña para un ejercicio), por lo que existían dos hojas en el fichero y la macro como es lógico se "perdia" al encontrar dos hojas y no una. Finalmente he eliminado la hoja que se ha añadido nueva y ahora funciona todo correctamente. Muchas gracias a todos por la ayuda, no sabéis lo que me habeis ayudado haciendo que funcione como antes. 
    • Muchas gracias, pruebo y comento. Buen día,
    • ..... ..... Set rst = dbs.OpenRecordset(consulta) If rst.RecordCount = 0 Then MsgBox "No hay información" Exit Sub End If 'Se eliminan estas líneas, no sirven para nada 'rst.MoveLast 'rst.MoveFirst ..... .....  
    • Muchas gracias por la respuesta, voy a comprobar a que 100% coincida los datos ¿puedes comentarme el proceso de validar el RecordCount? ¿En que parte de línea de código iría? Muchas gracias de nuevo
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy