Buenos días, 

Quiero copiar datos de ciertas columnas de una tabla del LibroOrigen a un nuevo libro ( LibroDestino)

He conseguido crear una macro que funciona cuando están todas las celdas completadas (hoja 2 del archivo adjunto) pero si hay vacío da error (hoja1)

Para seleccionar el rango de celdas origen he seleccionado esto:

'Seleccionar rango de celdas origen

rngOrigen.Select
Set a = Range("K1", Range("K1").End(xlDown))
Set b = Range("L1", Range("L1").End(xlDown))
Set c = Range("O1", Range("O1").End(xlDown))
Set d = Range("P1", Range("P1").End(xlDown))
Set e = Range("Q1", Range("Q1").End(xlDown))
Set f = Range("R1", Range("R1").End(xlDown))
Set g = Range("W1", Range("W1").End(xlDown))

Union(a, b, c, d, e, f, g).Select
Selection.Copy

Además, en el libro original tengo más datos y me gustaría conseguir que me exportara los datos pero referenciando a la tabla y columnas.

Creo que debería ser algo así, pero no sé cómo:

rngOrigen.Select
Set a = tabla CLIENTES columna Id_client
Set b = ..
Set c = ..
Set d = ..
Set e = ..
Set f = ..
Set g = ..

Union(a, b, c, d, e, f, g).Select
Selection.Copy

 

Muchas gracias

LibroOrigen4.xlsm LibroDestino.xlsx

Saludos @[email protected], mira, cambia esto en tu codigo

'Set a = Range("K1", Range("K1").End(xlDown))
'Set b = Range("L1", Range("L1").End(xlDown))
'Set c = Range("O1", Range("O1").End(xlDown))
'Set d = Range("P1", Range("P1").End(xlDown))
'Set e = Range("Q1", Range("Q1").End(xlDown))
'Set f = Range("R1", Range("R1").End(xlDown))
'Set g = Range("W1", Range("W1").End(xlDown))
'Union(a, b, c, d, e, f, g).Select
'Selection.Copy

por esto otro

Set a = Range("CLIENTES[[#All],[id_client]:[CATEGORIA]]")
Set b = Range("CLIENTES[[#All],[EMPRESA]:[Apellido]]")
Set c = Range("CLIENTES[[#All],[Producto 3]]")
Union(a, b, c).Copy

suerte

Muchas gracias @bigpetroman, funciona perfecto!

un saludo!

Hola a todos,

Te dejo otra opción diferente a como planteas lo que quieres hacer.

 

 

LibroOrigen4.xlsm