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.
Respuesta de Luis Mondelo
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
