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.
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.