Jump to content

Crear libro con 365 dias del año


Recommended Posts

Un Saludo a tod@s,

Me gustaria haber si me podeis ayudar en como crear un libro con 365 hoja las cuales corresponden al año en curso y cada hoja en la pestaña que ponga la fecha (desde al 1 de Enero hasta el 31 de Diciembre.), no se si esto puede ser posible pero si me podeis ayudar.

Gracias y Saludos.

Link to post
Share on other sites

Hola elmulo, prueba esta macro:

Option Explicit

Sub Los365dias()
Dim fecha As Date
Dim i As Integer
Dim nombreHoja As String

For i = 1 To 365
fecha = DateSerial(2011, 1, i)
nombreHoja = Format(fecha, "d"" de ""mmmm")
Sheets.Add.Name = nombreHoja
Sheets(nombreHoja).Move After:=Sheets(ActiveWorkbook.Sheets.Count)
Next
End Sub[/CODE]

Link to post
Share on other sites

Hola:

Otra forma de hacerlo:

Sub Crear365Hojas()
Dim Fecha As Date
Application.ScreenUpdating = False
Fecha = "01/01/2010" '1 de Enero del año anterior
For x = 365 To 1 Step -1
Worksheets.Add().Name = Format(Fecha + x - 1, "dd-mm-yyyy")
Next x
End Sub
[/CODE]

Saludos a todos.

Link to post
Share on other sites
Guest
This topic is now closed to further replies.
  • Crear macros Excel

  • Posts

  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy