Saltar al contenido

Copiar una hoja varias veces en el mismo libro


Recommended Posts

publicado

Hola a todos.

 Tengo una hoja que quiero duplicar 100 veces y renombranlas desde el 1 al 100

Os agradecería me ayudéis ya que hacerlo a mano es muy laborioso dado que lo tengo que hacer en varios libros

 

 

COPIAR HOJA 100 VECES.rar

publicado

Esta es la mcro que se ejecutará con la combinación de Teclas

Ctrl + Shift + G

Te muestro la mcro:

Sub Macro3()
' Acceso directo: Ctrl+Mayús+G
    num_hojas = 3
    For i = 2 To num_hojas
        Sheets("1").Select
        Sheets("1").Copy After:=Sheets(i - 1)
        Sheets("1 (2)").Select
        ActiveSheet.Name = i
        Range("E1") = i
    Next
End Sub
 

En la variable num_hojas le puse 3 (repetirá 3 veces... tu lo podrás cambiar a 100

NO podrás ejecutar mas de una vez la macro en este archivo. Tendras que borrar hojas o cargarlo de nuevo

Saludos

COPIAR HOJA 100 VECES.xlsm

publicado

Gracias por responder tan rápido y solucionar la macro.

Solo que se me olvidó poner una hoja anterior a la hoja "1". Es en la que van los datos. Al ejecutar la macro me las ordena de la siguiente manera: datos,2,3,1

COPIAR HOJA 100 VECES.rar

Archivado

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

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.