Copiar y pegar en varias hojas

2 envíos / 0 nuevos
Último envío
luismigueldelepe
Imagen de luismigueldelepe
Offline
última acción: Hace 4 años 3 días
alta: 20/07/2018 - 07:44
Puntos: 245
Copiar y pegar en varias hojas

Hola, gracias al foto voy puliendo las macros de un libro que estoy preparando. Gracias a todos y todas. Solo me queda el siguiente detalle: me gustaría copiar y pegar una columna completa de una hoja "maestro" a otras hojas idéntidas (esta columna cambia y quiero que cambie igual en todas las hojas).

La hoja "maestro" se llama UDI1, y el resto de hojas se llaman UDI2, UDI3... hasta UDI12.

Para copiar la columna de la UDI1 y pegarla en la UDI2 uso este código, pero me gustaría que se pegara también en las demás hojas.

 Sheets("UDI1").Activate

 Range("A1:A1740").Copy Destination:=Sheets("UDI2").Cells(1, 1)

 He visto un código en otro foro que permite mediante un bucle ir pasando de hoja en hoja al llamarse todas igual pero sumando "1", pero no sé introducirlo entre el copiado (fuera del bucle) y el pegado (bucle para todas las hojas).

Sé que podría repetir la línea de copy destination, pero creo que enconces tendría que ir copiando y pegando 12 veces, y me gustaría que de un solo copiado pegara a la vez en las demás hojas.

Gracias de nuevo.

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 18 horas 16 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11085
por ejemplo:    Dim contador 

por ejemplo:

    Dim contador

    For contador = 2 To 12

        Range("A1:A1740").Copy Destination:=Sheets("UDI" & contador).Cells(1, 1)

    Next

 

Otro ejemplo, copiando sólo una vez y pegando 12 veces

Dim contador

    Range("A1:A1740").Copy

    For contador = 2 To 12

        Sheets("Hoja" & contador).Cells(1, 1).PasteSpecial xlPasteAll

    Next 

 

------
Ya sé Excel, pero necesito más.