Cuando comienza un nuevo libro de trabajo, es muy común nombrar cada hoja de trabajo después de un mes diferente del año. 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 meses del año si comienzan con las letras «Hoja». Si no hay suficientes hojas en el libro de trabajo, agrega hojas, según sea necesario, para cada mes del año.

Sub DoMonths()

Dim J As Integer     Dim K As Integer

For J = 1 To 12         If J <= Sheets.Count Then             If Left(Sheets(J).Name, 5) = "Sheet" Then                 Sheets(J).Name = MonthName(J)

Else                 Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = MonthName(J)

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

ActiveSheet.Name = MonthName(J)

End If     Next J

For J = 1 To 12         If Sheets(J).Name <> MonthName(J) Then             For K = J + 1 To Sheets.Count                 If Sheets(K).Name = MonthName(J) Then                     Sheets(K).Move Before:=Sheets(J)

End If             Next K         End If     Next J

Sheets(1).Activate End Sub

El último paso de la macro es que coloca las hojas de trabajo en el orden correcto, para los meses 1 al 12. El resultado es que si le quedan otras hojas de trabajo en el libro de trabajo (en otras palabras, tiene algunas que no comienzan con las letras «Hoja», esas hojas de trabajo terminan al final del libro de trabajo, después de los 12 meses.

Tenga en cuenta que la macro utiliza la función MonthName, que está integrada en VBA. Devuelve el nombre completo del mes al que hace referencia el número (del 1 al 12) que se le ha pasado. (Si intenta usarlo con un número fuera de ese rango, devuelve un error).

| _Nota: _

Si desea saber cómo utilizar las macros descritas en esta página (o en cualquier otra página de los sitios de 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 (11148) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Sheets_for_Months [Hojas para los meses].