Copiar rango de una hoja y pegarlo en la hoja activa.

[repa2m1]

Buenas tardes

Tengo tres hojas: P01, P02 y P03 y 150 hojas numeradas de F001 á F150. 

Necesito copiar el Rango B21:J55 de P01 y pegarlo, por ejemplo, en la F001 y para ello uso la macro siguiente:

           Sub Inserta_1_F001 ()   

          Sheets("P01").Range("B21:J55").Copy Destination:=Sheets("F001").Range("B21")
          Sheets("F001").Select
          Range("L10").Select

          End Sub

Esto lo hago con las macros correspondientes para la 150 hojas .

Lo mismo con P02 y con P03 por lo que tengo 450 macros y que funcionan correctamente.

Mi pregunta es:  habría alguna forma de crear una macro que haga lo mismo pero desde la hoja activa?

Es decir, que estando en cualquiera de las hojas F, y desde un botón de cada hoja F se llamara a una misma macro para copiar de P01 ?

Lo mismo para P02 y para P03 ?

(Serían 3 macros en vez de 450 en caso de ser posible).

 

Espero que algún experto me pueda dar alguna solución mejor que la que tengo ahora o me diga que no se puede.

Muchísimas gracias.

 

 

 

 

[Antoni]

Si te he entendido:

Sub Inserta_1()
   Sheets("P01").Range("B21:J55").Copy Range("B21")
   Range("L10").Select
End Sub

Sub Inserta_2()
   Sheets("P02").Range("B21:J55").Copy Range("B21")
   Range("L10").Select
End Sub

Sub Inserta_3()
   Sheets("P03").Range("B21:J55").Copy Range("B21")
   Range("L10").Select
End Sub

 

[repa2m1]

Me has entendido perfectamente. 

Genial Antoni !!!

Lo he probado y va como la seda. Ahora me toca modificar los módulos para quitar los 450 y dejar sólo los 3 estos.

Agradecido eternamente.

Saludos desde Eibar

TEMA CERRADO.

 

 

 

[Antoni]

Guarda el archivo como .xlsx y se eliminarán todas las macros.

[repa2m1]

Y eso?

Acabo de hacerlo con una copia y no se han eliminado

De todas formas siempre grabo como  Libro de Excel habilitado para Macros.

Saludos

[Antoni]

A ver:

• Abrir el archivo
• Guardar como .xlsm
• Al mensaje contestar Si:
• 
• Cerrar Excel 
• Abrir el archivo .xlsx
• Añadir las macros necesarias
• Guardar como .xlsm

Y listo

[repa2m1]

Mil gracias Antoni.

Te debo unos cafés.

Saludos

[repa2m1]

TEMA CERRADO