Excel - copiar columnas completas

 
Vista:
sin imagen de perfil
Val: 21
Ha disminuido 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

copiar columnas completas

Publicado por YOLANDA (5 intervenciones) el 31/05/2021 11:12:19
Buenos días:

Tengo un libro de excel completo de datos y quisiera que en un libro nuevo con estructura en nombres de campos iguales poder, hacer una busqueda por el nombre del campo de la columna y que me copiara la columna completa en el libro nuevo

¿Hay alguna formula o funcionan para poder hacerlo?

Un saludo y muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de David
Val: 211
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

copiar columnas completas

Publicado por David (40 intervenciones) el 31/05/2021 17:24:25
Debe copiar la columna o la fila?, Generalmente es la fila, por eso mi duda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 21
Ha disminuido 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

copiar columnas completas

Publicado por YOLANDA (5 intervenciones) el 31/05/2021 18:51:21
Hola, necesitaria la columna, por el tema de duplicar la tabla, solamente con las columnas que necesite, ya que la tabla nueva, no son las mismas columnas, solo algunas y no estan colocadas en el mismo orden que la tabla original

Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de wordexperto.com
Val: 6.373
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

copiar columnas completas

Publicado por wordexperto.com (2805 intervenciones) el 31/05/2021 19:34:41
Hola a todos:
Te pones en la cabecera de las columnas, con Ctrl pulsado, y, cuando el puntero del ratón se transforme en una flecha negra apuntando hacia abajo, haces clic para seleccionar las que quieras. Ctrl+C para copiar y Ctrl+V para pegar. Paseando el ratón por la cabecera, cuando se transforma en cuatro flechas, puedes arrastrar para cambiar las columnas de posición.
https://www.youtube.com/channel/UCxgRcbeR2q4PpE1Pgft74Iw

No dupliques datos, usa Tablas dinámicas para los informes: https://www.youtube.com/playlist?list=PLF1OL9sNXkSyOJETR9ST8xjwjFj9WrkME
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 21
Ha disminuido 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

copiar columnas completas

Publicado por YOLANDA (5 intervenciones) el 31/05/2021 19:59:01
Gracias por contestar, no es eso exctamente lo que quiero

Yo tengo una hoja con unas 30 columnas y con unas 10000 filas por cada columna, lo que quiero es en otra hoja nueva, en la que solo voy a seleccionar algunas columnas en concreto y que esa columna que quiero, se me copie entera en la tabla nueva.

Pero claro lo que quiero evitar es lo trabajoso de ir buscando columna por columna las que quiero copiar, ya que las columnas se llaman algunas iguales pero no tienen el mismo orden

Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de David
Val: 211
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

copiar columnas completas

Publicado por David (11 intervenciones) el 31/05/2021 20:49:15
No te sirve clonar la hoja y seleccionar las columnas que no quieres y las borras?, asi te quedaría las que quieres solamente.
Y otra pregunta, cual es el criterio que utilizas para elegir unas y no las otras?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 21
Ha disminuido 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

copiar columnas completas

Publicado por YOLANDA (5 intervenciones) el 01/06/2021 10:34:20
Es que no se como explicarme mejor, esto procede de una base de datos de access que pertenece a un programa de windows, estoy exportando la BD a excell, ya que es la unica manera de poder hacer la copia al programa nuevo, el cual tengo que exportar tambien la BD de la nueva actualizacion a excell.

La base de datos vieja tiene los mismos campos que la base de datos nueva, pero la nueva tiene varios campos mas que no tiene la vieja y aparte no estan colocados en el mismo orden una vez que se exporta la tabla a excell.

Los campos son como 30-40....dependiendo de la tabla que sea, de ahi el querer evitar ir mirando uno a uno el campo para poder copiar los datos de una tabla a la otra

Por eso necesitaria una formula, macro, que busque el nombre del campo de la tabla nueva en la tabla vieja y si coincide el nombre, que esa columna entera de datos se pase a la tabla nueva

Nose si he podido explicarme mejor ahora.

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de David
Val: 211
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

copiar columnas completas

Publicado por David (11 intervenciones) el 01/06/2021 18:33:07
Ok, adjunto video para que veas como usar el archivo que tambien adjunto aqui.
Sirve para mas de 50 columnas y 100.000 filas(cien mil) por cada columna. Además de que revisa si faltó alguna por copiar, debido a un error de escritura del titulo de columna por ejemplo.
Y también copia no importando el orden de las columnas de destino o final.

Screenshot_5


Este es el código de todas maneras:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub copiaColumnas()
    '@dj.vivanco
 
    Dim dict As Object, hjNueva As Worksheet, hjBD As Worksheet
    Dim celda As Range, uf As Long
 
    Set dict = CreateObject("Scripting.Dictionary")
    Set hjNueva = Sheets("Nueva")
    Set hjBD = Sheets("BD")
 
    'AGREGAR titulos  DE HOJA VIEJA BD A DICCIONARIO
    For Each celda In hjBD.Range("A1:BB1")
 
        titulo = UCase(celda.Value)
        If titulo <> vbNullString Then
            If Not dict.exists(titulo) Then
                dict.Add titulo, celda.Column
            Else: 'titulo duplicado
                Debug.Print celda.Column, dict(titulo)
            End If
        End If
 
    Next celda
 
 
    filaMaxima = 100000 ' cien mil datos como maximo por columna
 
    'FOR EACH HOJA NUEVA. Recorre en dict buscando valores
    For Each celda In hjNueva.Range("A1:BB1")
        buscar = UCase(celda.Value)
        If buscar <> vbNullString Then 'si hay datos continua
            If dict.exists(buscar) Then
 
                colNueva = celda.Column
                colBD = dict(buscar)
                filaFinal = hjBD.Cells(filaMaxima, colBD).End(xlUp).Row
                filaInicio = 2 'en ambas hojas los datos comienzan en la fila 2 hacia abajo
 
                rgNuevaInicio = Cells(filaInicio, colNueva).Address
                rgNuevaFinal = Cells(filaFinal, colNueva).Address
                rgBDInicio = Cells(filaInicio, colBD).Address
                rgBDFinal = Cells(filaFinal, colBD).Address
 
                'copio datos de columnas desde hoja "BD" hacia hoja "Nueva"
                hjNueva.Range(rgNuevaInicio, rgNuevaFinal).Value = _
                hjBD.Range(rgBDInicio, rgBDFinal).Value
 
                'marcar con color el titulo de la columna copiada de hoja BD
                hjBD.Cells(1, colBD).Interior.Color = vbGreen
 
                'marcar con color el titulo de columna copiada de hoja Nueva
                hjNueva.Cells(1, colNueva).Interior.Color = vbGreen
 
            End If
        End If
    Next celda
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil
Val: 21
Ha disminuido 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

copiar columnas completas

Publicado por YOLANDA (5 intervenciones) el 01/06/2021 19:57:11
OOOHHHHH, mil gracias, es exactamente lo que necesitaba.

Me has salvado de un trabajo bastante laborioso, muchisimas gracias de nuevo

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de David
Val: 211
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

copiar columnas completas

Publicado por David (11 intervenciones) el 02/06/2021 01:56:00
Por nada, saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar