Cuando comienza un nuevo libro de trabajo, un escenario común requiere la creación de hojas de trabajo para un año, una para cada semana del año. En otras palabras, un libro de trabajo podría terminar conteniendo 52 o 53 hojas de trabajo, dependiendo de cuántas semanas haya en un año en particular.

Si necesita crear un libro de trabajo de este tipo, sabe que crear y nombrar individualmente todas las hojas de trabajo puede ser una verdadera molestia. Aquí es donde una macro sería útil. La siguiente macro agregará el número apropiado de hojas de trabajo y luego cambiará el nombre de todas las hojas de trabajo según el número de semana (01 a 52).

Sub YearWorkbook1()

Dim iWeek As Integer     Dim sht As Variant     Application.ScreenUpdating = False     Worksheets.Add After:=Worksheets(Worksheets.Count), _       Count:=(52 - Worksheets.Count)

iWeek = 1     For Each sht In Worksheets         sht.Name = "Week " & Format(iWeek, "00")

iWeek = iWeek + 1     Next sht     Application.ScreenUpdating = True End Sub

Si, en cambio, necesita una forma de crear hojas de trabajo que muestren la fecha de finalización de cada semana durante un año, entonces se necesita una macro diferente.

Sub YearWorkbook2()

Dim iWeek As Integer     Dim sht As Variant     Dim sTemp As String     Dim dSDate As Date

sTemp = InputBox("Date for the first worksheet:", "End of Week?")

dSDate = CDate(sTemp)

Application.ScreenUpdating = False     Worksheets.Add After:=Worksheets(Worksheets.Count), _       Count:=(52 - Worksheets.Count)

For Each sht In Worksheets         sht.Name = Format(dSDate, "dd-mmm-yyyy")

dSDate = dSDate + 7     Next sht     Application.ScreenUpdating = True End Sub

Esta versión de la macro le pide una fecha de inicio. Luego usa esa fecha para comenzar a nombrar las diferentes hojas de trabajo en el libro de trabajo. Si ingresa un valor que no se puede traducir a una fecha, la macro generará un error.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (12403) se aplica a Microsoft Excel 2007, 2010, 2013 y 2016.

Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí: link: / excel-Naming_Tabs_for_Weeks [Naming Tabs for Weeks].