Como copiar un rango de valores varias veces al final de la fila
Lo que quiero hacer es copiar un rango de valores una cantidad determinada de veces todo consecutivo, al final de las ultimas filas.
1 respuesta
Respuesta de Elsa Matilde
La siguiente macro te servirá para hacer una copia repetitiva de un rango seleccionado. La copia se hará tal cual al original (Formatos, fórmulas, etc).
Ingresa al Editor de macros (menú Programador o el atajo de teclado ALT + F11)
Inserta un módulo y allí copia lo siguiente:
Sub copiasRepetidas()
'x Elsamatilde
'nro de repeticiones
repite = Val(InputBox("Ingresa el nro.de repeticiones"))
If repite = 0 Then Exit Sub
For i = 1 To repite
'1er fila libre según col A 'ajustar letra
x = Range("A" & Rows.Count).End(xlUp).Row + 1
'rango a copiar 'ajustar rango
Range("A12:H20").Copy Destination:=Range("A" & x) 'ajustar
Next i
'quitar el modo de copiado
Application.CutCopyMode = False
MsgBox "Fin del proceso"
End Sub
Si luego necesitas una copia personalizada (sin formatos o sin fórmulas) debieras, luego de valorar esta respuesta, dejar una consulta más detallada indicando todas las condiciones.
