Macro para copiar una columna sin resultados repetidos

10 envíos / 0 nuevos
Último envío
rubaniktec
Imagen de rubaniktec
Offline
última acción: Hace 2 años 3 meses
alta: 30/03/2015 - 10:06
Puntos: 50
Macro para copiar una columna sin resultados repetidos

buenas,

tengo 2 archivos excel en uno tengo varios nombres (entre otros datos) bién, lo que me gustaría es aqu al copiar y pegar los nombres en la columna A en la primera hoja del el segundo archivo excel en la segunda salgan los nombres sin repetirse

 

Aquí os dejo los archivos de ejemplo.

 

Gracias por vuestra ayuda

AdjuntoTamaño
Package icon orden_de_nombres.zip12.68 KB
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 12 horas 7 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 7170
Filtro avanzado o eliminar duplicados

Para crear un listado de valores únicos Excel tiene básicamente dos opciones:

  • Eliminador de duplicados. Sobre un listado existente elimina datos repetidos.
  • Filtro avanzado. Permite copiar los registros únicos a otro lugar (no altera el listado original)

 

Opción 1: Eliminador de duplicados, método RemoveDuplicates del rango

Supongo que ya tienes los datos (con repetidos) en la columna A

ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo

 

Opción 2, filtro avanzado

supongo que ya tienes los datos (con repetidos) en la columna A, vamos a extraer los registros únicos a la columna B

ActiveSheet.Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), Unique:=True

 

 

Data Tools Suite
datos y tablas con Excel

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 20 horas 7 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 15/12/2011 - 23:46
Puntos: 2560
Hola pacomegia, salu2Lo

Hola pacomegia, salu2

Me equivoque de tema, mis disculpas

visitante (no verificado)
Imagen de visitante
Muchas grácias, funciona

Muchas grácias, funciona estupendo

visitante (no verificado)
Imagen de visitante
Macro para copiar una columna sin resultados repetidos

funciona de lujo, grácias

Pedro (no verificado)
Imagen de visitante
Macro para ordenar

Hola, tengo este archivo de pedidos para diferentes bodegas y en cada bodega se repiten los mismos productos pero con diferente cantidades de pedidos porque son para diferentes bodegas. Ayudame con una macro que tome la información de la hoja Bodegas y la ordene como aparece en la hoja pedidos y que aparescan en el orden que las tengo en dicha hoja, pero como los productos se repiten en las diferentes bodegas quiero que en la hoja pedidos solo aparezca cada producto en una sola fila y en cada celda de cada bodega aparesca la cantidad que se pidió, puede darse el caso que un producto solo se pidió para una o dos bodegas, en este caso en las que no se pidió que aparesca cero.

Es importante tambien que quede ordenado por departamento.

 

AdjuntoTamaño
File pedidos.xlsm52.73 KB
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 12 horas 7 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 7170
Para plantear una pregunta

Para plantear una pregunta nueva debes crear un tema nuevo en el foro

 

Data Tools Suite
datos y tablas con Excel

sebastian amaya (no verificado)
Imagen de visitante
copiar datos siguiente columna

Buenos dias:

Cordial saludo. Yo tengo un tema similar, no c si me puedan colaborar. Tengo en la Hoja 1 una serie de datos en una columna y necesito pegarlos en la hoja 2 pero en la siguiente columna disponible, vacia. Supongamos que en la hoja 2, de la columna A hasta la Z tengo datos y necesito que lo que copie de la Hoja 1, me lo pegue en la siguiente columna vacia de la Hoja 2, es decir en AA. 

 

Yo tengo la siguiente Macros que me hace algo parecido pero buscando la siguiente fila disponible vacia. Yo selecciono una celda de la Hoja1  y me la pega en una ubicación establecida de otra Hoja2. Solo que no c como decirle que haga eso pero con un dato pero no en la siguiente fila sino en la siguiente columna. Esta es:

 

Sub GI_pegardato()

 

uFila = Sheets("Hoja2").Range("b" & Rows.Count).End(xlUp).Row + 1

 

Sheets("Hoja1").Range("b2").Copy

Sheets("Hoja1").Range("b" & uFila).PasteSpecial Paste:=xlValues 

 

End Sub

Agradezco la colaboración. Feliz día. 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 12 horas 7 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 7170
crea un tema nuevo

Crea un tema nuevo en el foro para una pregunta nueva

 

Data Tools Suite
datos y tablas con Excel

GinoPaolo (no verificado)
Imagen de visitante
CONDICIONES DE USO