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     Dim sMo(12) As String

sMo(1) = "January"

sMo(2) = "February"

sMo(3) = "March"

sMo(4) = "April"

sMo(5) = "May"

sMo(6) = "June"

sMo(7) = "July"

sMo(8) = "August"

sMo(9) = "September"

sMo(10) = "October"

sMo(11) = "November"

sMo(12) = "December"



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

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

ActiveSheet.Name = sMo(J)

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

ActiveSheet.Name = sMo(J)

End If     Next J

For J = 1 To 12         If Sheets(J).Name <> sMo(J) Then             For K = J + 1 To Sheets.Count                 If Sheets(K).Name = sMo(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.

| _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.

Esta sugerencia (2017) 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 posterior) aquí:

`link: / excelribbon-Sheets_ for_Months [Hojas de cálculo para meses] `.