Ver Mensaje Individual
  #1 (permalink)  
Antiguo 18/09/2008, 18:03
STDSTC
 
Fecha de Ingreso: octubre-2007
Mensajes: 22
Antigüedad: 16 años, 6 meses
Puntos: 0
Excel: Pegar datos con bucle

Hola.

Estoy aprendiendo a usar las macros. Para empezar estoy con la grabadora de macros. Lo primero que he hecho ha sido copiar una columna de una hoja e ir pegándola en otra hoja. Más o menos así:

Código:
Sub prueba()
'
' prueba Macro
'
' Acceso directo: CTRL+r
'
    Calculate
    Range("I5:I15").Select
    Selection.Copy
    Sheets("Rol").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Creador").Select
    Application.CutCopyMode = False
    Calculate
    Selection.Copy
    Sheets("Rol").Select
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Creador").Select
    Application.CutCopyMode = False
    Calculate
    Selection.Copy
    Sheets("Rol").Select
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
En este caso he copiado y pegado 3 veces. Me gustaría saber si esta tarea repetitiva se puede hacer utilizando un bucle para copiar la misma columna (que es de valores aleatorios, por tanto las columnas pegadas serán diferentes) e ir pegándola en diferentes columnas en otra hoja tantas veces como quiera.

Muchas gracias.

Un saludo.