Copiar hojas de excel con fechas

[xandro]

Buenas tardes,

Necesito un libro de excel en la que con una macro, copie una hoja las veces que sean y que lo nombre del 01 de enero hasta el 31 de diciembre. Es posible???

os adjunto archivo en el que tengo la macro pero nombra a las hojas con números.

muchas gracias

prueba.xlsm

[Antoni]

Sub GenerarAño()
Application.ScreenUpdating = False
año = InputBox("Indique el año")
inicio = CDate("01/01/" & año)
fin = CDate("31/12/" & año)
For fecha = inicio To fin
   Sheets(1).Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = Replace(fecha, "/", "-")
Next
End Sub

 

[xandro]

hace 20 minutos , Antoni dijo:

Sub GenerarAño()
Application.ScreenUpdating = False
año = InputBox("Indique el año")
inicio = CDate("01/01/" & año)
fin = CDate("31/12/" & año)
For fecha = inicio To fin
   Sheets(1).Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = Replace(fecha, "/", "-")
Next
End Sub

 

Muchas gracias Antoni y perdona por mi abuso ya que veo estás muy preparado; supongo que si quiere hacerlo mensual tendría que poner en vez de "indique el año" poner el mes, no??

[xandro]

hace 37 minutos , Antoni dijo:

Sub GenerarAño()
Application.ScreenUpdating = False
año = InputBox("Indique el año")
inicio = CDate("01/01/" & año)
fin = CDate("31/12/" & año)
For fecha = inicio To fin
   Sheets(1).Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = Replace(fecha, "/", "-")
Next
End Sub

 

perdona Antoni, es poniendo el mes... muchísimas gracias, eres mortaaaaaaaaaa

[Antoni]

Sub GenerarMes()
Application.ScreenUpdating = False
año = InputBox("Indique el año (aaaa)")
mes = InputBox("Indique el mes (mm)")
inicio = CDate("01/" & mes & "/" & año)
fecha = inicio
Do Until Month(fecha) <> Month(inicio)
   Sheets(1).Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = Replace(fecha, "/", "-")
   fecha = fecha + 1
Loop
End Sub