Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

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

publicado

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.

 

 

 

 

Featured Replies

publicado

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

 

Editado el por Antoni

publicado
  • Autor

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.

 

 

 

publicado

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

publicado
  • Autor

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

publicado

A ver:

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

Y listo

publicado
  • Autor

Mil gracias Antoni.

Te debo unos cafés.

Saludos

publicado
  • Autor

TEMA CERRADO

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.