Nombrar hojas en excel
Hola, manejo un archivo donde cada hoja tiene por nombre la fecha de cada día del mes, ¿la pregunta es como puedo hacer para que cuando comience otro mes pueda cambiar de nombre a todas las hojas y grabar el archivo con otro nombre?
Respuesta de dtorrado
1
Con esta macro puedes renombrar todas las hojas, suponiendo que tienen un formato "dd-mm-yy" te cambia el mes a uno más (tendrías que modificarla para Diciembre).
Sub RenombrarHojas()
For Each hoja In Worksheets
Dim sNombre As String
sNombre = hoja.Name
hoja.Name = Left(sNombre, 3) & Format(Val(Mid(sNombre, 4, 2)) + 1, "00") & Mid(sNombre, 6)
Next
End Sub
Sub RenombrarHojas()
For Each hoja In Worksheets
Dim sNombre As String
sNombre = hoja.Name
hoja.Name = Left(sNombre, 3) & Format(Val(Mid(sNombre, 4, 2)) + 1, "00") & Mid(sNombre, 6)
Next
End Sub
