Como Copiar diferentes columnas en otra hoja?
Hoja1", de la cual quiero copiar la información contenida en las columnas A, B, E, F, G, J, K, L, como pueden observar el rango no es continuo, adicional mente lo que necesito copiar va a partir de la fila 2 hasta la fila N (dado que la cantidad de filas puede variar cada que ejecute la macro), y esta información la debo pegar en una hoja llamada informe, a partir de la celda "A2"
1 respuesta
Respuesta de James Bond
1
Prueba con esta macro, copia columnas discontinuas de n filas, si agregas o quitas filas la macro en automático se ajusta a lo que quede.
Sub copiar_datos()
Set h1 = Worksheets("hoja1")
Set h2 = Worksheets("informe")
filas = h1.Range("a1").CurrentRegion.Rows.Count
Set datos = h1.Range("a2:l" & filas)
With datos
Union(.Columns(1), .Columns(2), .Columns(5), _
.Columns(6), .Columns(7), .Columns(10), _
.Columns(11), .Columns(12)).Copy
h2.Range("a2").PasteSpecial
End With
Set datos = Nothing
End Sub
