Saltar al contenido

Recommended Posts

publicado

Hola un cordial saludo a todos.

 Tengo una hoja con un formato especifico que quiero duplicar 365 veces y renombranlas desde el 1 al 365 por dias del año desde enero hasta diciembre

Les agradecería me ayuden ya que hacerlo a mano es muy laborioso dado que lo tengo que hacer de una por una

publicado (editado)
Sub GenerarHojas()
Application.ScreenUpdating = False
With Sheets("Hoja1")                                      '<--- Hoja a copiar
   For fecha = CDate("01/01/2024") To CDate("31/12/2024") '<--- Periodo a generar
      .Copy After:=Sheets(Sheets.Count)
      ActiveSheet.Name = Format(fecha, "dd-mm-yyyy")
   Next
   .Activate
End With
End Sub

Y por si las quieres eliminar:

Sub EliminarHojas(): On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For fecha = CDate("01/01/2024") To CDate("31/12/2024") '<-- Periodo a eliminar
   Sheets(Format(fecha, "dd-mm-yyyy")).Delete
Next
End Sub

 

Editado el por Antoni
publicado

MUCHAS GRACIAS EXCELENTE APORTE MI AMIGO 👍

Conéctate para comentar

Podrás dejar un comentario después de conectarte



Conéctate ahora
×
×
  • 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.