
18/09/2008, 20:41
|
 | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 18 años Puntos: 88 | |
Pegar datos con bucle Hola! STDSTC. Puedes hacerlo de varios modos.
El siguiente código realiza lo mismo que el tuyo... pero sin moverse de la hoja "Creador":
Código:
Sub Prueba2()
Application.ScreenUpdating = False
Rangos = Array("A1", "B1", "C1")
For ii = 0 To 2
Calculate
Range("I5:I15").Copy
Sheets("Rol").Range(Rangos(ii)).PasteSpecial Paste:=xlPasteValues
Next ii
Application.ScreenUpdating = True
End Sub
Tienes varias cosas que mirar:
a) ScreenUpdating.
b) Array.
c) "Calculate" NUNCA fue necesario, realmente.
etc. etc. etc.
Saludos, Cacho.  |