Macro para copiar y pegar rango siempre en el mismo número de filas hacia abajo
He seleccionado una serie de celdas donde tengo unos cálculos hechos y las he nombrado como rango. Quiero crear una macro que copie siempre ese rango tres filas más abajo del último rango copiado. Es decir, si el rango ocupa desde B4:K45, que ejecute la macro y se copie en B48:K89, y luego cuando vuelva a ejecutar la macro se copie 3 filas más abajo de B48:K89 (el último rango copiado), y así sucesivamente.
No tengo ni idea de cómo hacer eso. ¿Alguna sugerencia?
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro para copiar tu rango.
En la macro cambia en esta línea por el nombre que le pusiste a tu rango:
Set celdas = Range("rango1")
La macro:
Sub CopiaRango()
'Por.Dante Amor
Set celdas = Range("rango1")
fini = celdas.Cells(1, 1).Row
ffin = fini + celdas.Rows.Count - 1
filas = celdas.Rows.Count
cini = celdas.Cells(1, 1).Column
cfin = cini + celdas.Columns.Count - 1
'
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
For i = ffin + 3 To u + filas + 3 Step filas + 2
Set destino = Range(Cells(i, cini), Cells(i + filas - 1, cfin))
contara = Application.CountA(destino)
If contara = 0 Then
celdas.Copy destino
Exit For
End If
Next
MsgBox "Rango de celdas copiado", vbInformation
End SubSigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: CopiaRango
- Aceptar.
- Para ejecutarla dale click a la imagen.
