Copiar las últimas 15 filas de un rango variable
Cómo se podría copiar con una macro las últimas 15 filas de un rango que es variable y que va aumentando hacia abajo.
El rango variable sería: A2:P16 de la hoja1 y sería copiar ese rango a un rango fijo de la hoja2 A2:P16.
1 Respuesta
No me queda claro lo que quieres, prueba con esta macro siempre buscara las ultimas 15 filas, solo me queda la duda si quieres que copie siempre el rango A2:P16 o bien si este rango aumenta copie A3:p17 o a4:p18 al rango AP2:¿P16 de la hoja 2?
Sub copiar()
Set h1 = Worksheets("hoja1").Range("a2").CurrentRegion
Set h2 = Worksheets("hoja2")
With h1
f = .Rows.Count
h2.Range("a2:p16").Value = .Rows(f - 14).Resize(15).Value
End With
End Sub
Hola, gracias por contestarme.
Me refiero a un rango que va variando (aumentando hacia abajo: A2,A3,A4....)
Del rango que haya copie las ultimas 15 filas.
Entonces la macro que subí es la que ocupas sin importar cuanto aumente el rango tomara las ultimas 15 filas y las pegara en un rango fijo de otra hoja
