Cómo hago para repetir una serie 90 veces????

Sub Copiar90Veces()

Application.ScreenUpdating = False

Dim n As Byte
ActiveSheet.Range("1:40").Copy

For n = 1 To 90
ActiveSheet.Cells(n * 40 + 1, 1).Select
ActiveSheet.Paste
Next n

Application.ScreenUpdating = True
Application.CutCopyMode = False

End Sub

Esto iría en un módulo creado por ti (no en ThisWorkbook ni en ninguno de los de las hojas).
Un saludo.


Fernando Arroyo
MS MVP - Excel

"cg" escribió en el mensaje news:07db01c36576$02053d70$
Hola tengo una serie de 40 filas con nombre de 40
Personas y atributos de dichas personasen las columnas
(Edad, sexo, etc.). Tengo que copiar dicha serie 90 veces
para abajo, es decir de la fila 41 a la 80 yttiene que
estar copiada la segunda serie, de la 81 a la 120 la
tercera, etc.
Cómo hago esto????????

Prueba con esto:

Sub Copiar11Veces()

Application.ScreenUpdating = False

Dim n As Byte, j As Byte

For j = 1 To 40
For n = 1 To 11
With ActiveSheet
.Rows(j).Copy Destination:=.Rows(((j - 1) * 11) + 40 + n)
.Cells(((j - 1) * 11) + 40 + n, 3) = DateSerial(Year(.Cells(j, 3)), Month(.Cells(j, 3)) + n, Day(.Cells(j, 3)) + n)
End With
Next n
Next j

Application.ScreenUpdating = True
Application.CutCopyMode = False

End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

"cg" escribió en el mensaje news:015b01c3659f$0ca214a0$
Gracias!! Me anduvo muy bien lo que me dijiste...
Ahora tengo otro problema. Quiero copiar un rango de la
misma forma que el anterior, pero a partir de un rango
original en el cual tengo 40 filas con nombres de
personas con los datos de enero de 2003 (en la fila C
tengo el DATO FECHA que para enero es 01/01/2003).
Cómo hago para que me copie 11 veces más para febrero a
diciembre (Hasta ahora lo haría como tu me dijiste!!!),
pero el problema es que la segunda vez que copia en la
columna FECHA tiene que ir 02/02/2003 en vez de
01/01/2003, la tercera vez 03/03/2003 y así sucesivamente
(El resto de las columnas tienen que quedar igual!!!).
Cómo hago????