Copiar y pegar un rango de datos "n" veces

Estimado Luis Mondelo,

Gusto de saludarte y deseándote un feliz año nuevo 2013

Serias tan amable de proporcionarme una macro que me copie un rango de datos de la celda A9:G391, y que pegue ese mismo rango desde la celda A392, en otras palabras donde finalizan los datos, y que yo le pueda decir cuantas veces deseo que haga ese proceso.

Saludos Cordiales

Iván Rivera.

1 Respuesta

Respuesta
1

Te mando la solución:

Sub ejemplo()
'por luismondelo
On Error GoTo salida
veces = InputBox("cuantas veces deseas copiar el rango???")
If veces = "" Then Exit Sub
Range("a9").Select
Range("a9:g391").Copy
For x = 1 To veces
ActiveCell.Offset(383, 0).Select
Selection.PasteSpecial Paste:=xlValues
Next
Exit Sub
salida:
MsgBox "ha ocurrido algún error revise lo datos y empiece de nuevo"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas