Excel - copiar columna

 
Vista:

copiar columna

Publicado por cristino (1 intervención) el 13/11/2019 01:46:43
Buenas tardes, necesito ayuda para hacer lo siguiente:
Quiero hacer un macro que copie una columna de la hoja 1 a la 2, pero no se la posición de la misma.

El macro tiene que localizar el encabezado de la columna en ($A1:$a30), (que siempre es el mismo nombre "CONTRO_SALIDA"), localizar su columna, copiarla y pegarla en la hoja 2 en la columna D.

doy las gracias anticipadas.
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 Dirk
Val: 490
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

copiar columna

Publicado por Dirk (128 intervenciones) el 13/11/2019 15:42:13
Hola Cristino, te paso la macro:
1
2
3
4
5
6
7
8
9
10
11
12
Sub copiarCol()
 
For i = 1 To 30
    If Cells(1, i).Value = "CONTRO_SALIDA" Then
        Sheets("Hoja2").Range("D:D").ClearContents
        Range(Cells(1, i), Cells(1, i).End(xlDown)).Copy Sheets("Hoja2").Range("D1")
        MsgBox "Columna copiada", vbOKOnly + vbInformation, "ATENCON"
        Sheets("Hoja2").Select
    End If
Next
 
End Sub

Lo que hace la macro:
- Busca CONTRO_SALIDA en la fila 1 desde la columna A (columna 1) a la D (columna 30), si la consigue
- Borra toda la columna D en la hoja 2
- Copia de la Hoja 1 a la Hoja 2 la columna donde consigió CONTRO_SALIDA una sola vez.

Te cuidado con:
Si cambias los nombres de las hojas, tienes que cambiar la macro

Espero te sirva,

Salu2
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