
18/09/2008, 21:00
|
 | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 18 años Puntos: 88 | |
Respuesta: Excel: Pegar datos con bucle Hola! STDSTC.
Otra alternativa pero sin utilizar la información del rango I5:I15 de la hoja "Creador":
Código:
Sub Prueba3()
Application.ScreenUpdating = False
Rangos = Array("A", "B", "C")
For ii = 0 To 2
With Sheets("Rol").Range(Rangos(ii) & "1:" & Rangos(ii) & "11")
.Formula = "=RAND()": .Copy: .PasteSpecial xlPasteValues
End With
Next ii
Application.ScreenUpdating = True
End Sub
Saludos, Cacho. |