Cuando comienza un nuevo libro de trabajo, es muy común nombrar cada hoja de trabajo después de un día diferente del mes. Si hace esto un poco, sabrá que puede ser tedioso cambiar el nombre de cada hoja de trabajo, a su vez, a exactamente lo que necesita.

La siguiente macro se desarrolló para ayudar en estas situaciones. Verifica los nombres de las hojas de trabajo en su libro de trabajo y les cambia el nombre a los días del mes si comienzan con las letras «Hoja». Si no hay suficientes hojas en el libro de trabajo, agrega hojas, según sea necesario, para cada día del mes.

Sub DoDays()

Dim J As Integer     Dim K As Integer     Dim sDay As String     Dim sTemp As String     Dim iTarget As Integer     Dim dBasis As Date

iTarget = 13     While (iTarget < 1) Or (iTarget > 12)

iTarget = Val(InputBox("Numeric month?"))

If iTarget = 0 Then Exit Sub     Wend

Application.ScreenUpdating = False     sTemp = Str(iTarget) & "/1/" & Year(Now())

dBasis = CDate(sTemp)

For J = 1 To 31         sDay = Format((dBasis + J - 1), "dddd mm-dd-yyyy")

If Month(dBasis + J - 1) = iTarget Then

If J <= Sheets.Count Then                 If Left(Sheets(J).Name, 5) = "Sheet" Then                     Sheets(J).Name = sDay                 Else                     Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = sDay                 End If             Else                 Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = sDay             End If         End If     Next J

For J = 1 To (Sheets.Count - 1)

For K = J + 1 To Sheets.Count             If Right(Sheets(J).Name, 10) > _               Right(Sheets(K).Name, 10) Then                 Sheets(K).Move Before:=Sheets(J)

End If         Next K     Next J

Sheets(1).Activate     Application.ScreenUpdating = True End Sub

La macro establece el nombre de cada pestaña igual al día de la semana seguido de la fecha real, como en «Miércoles 28/03/2012». Si desea cambiar la forma en que se nombran las pestañas para cada día, simplemente cambie cómo se construye la variable sDay en la macro.

El último paso de la macro es que coloca las hojas de trabajo en el orden correcto, según los días del mes. El resultado es que si le quedan otras hojas de trabajo en el libro de trabajo (en otras palabras, tenía algunas que no comenzaban con las letras «Hoja», esas hojas de trabajo terminan al final del libro de trabajo, después de las hojas de cada día.

_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 preparó 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 de Microsoft Excel.

Este consejo (2836) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y más tarde) aquí:

enlace: / excelribbon-Sheets_for_Days [Sheets for Days].