miércoles, 3 de mayo de 2023

Libro de Excel con hojas mensuales.

    

Como hacer una macro para agregar un libro de excel y cada una de las hojas sea el nombre de enero a diciembre.?


En muchas ocaciones tenemos que realizar analisis de datos en los cuales es necesario tener en cada cada el mes que corresponda de enero a diciembre, y entonces seria de mucha utilidad que desde un boton pudieramos agregar un libro de excel con el nombre de los meses en cada una de las hojas de enero a diciembre. algo como esto.

Esto nos ahorraria tiempo al momento de crear el archivo, ya que nos evitarimos de estar agregando hojas y cambiando el nombre con el mes de calendario.

En mi caso diseñe una macro para evitarme esta tarea y solo dar click en un boton y que me genere el archivo con los meses en cada una de las hojas, a continuacion te dejo una macro para que puedas realizas esta operacion, y tener en milisegundos tu hojas lista para agregarle informacion.


Sub NewBookMonth()
   Dim Hojameses As Workbook
   Dim hoja As Worksheet
   Dim mes As Integer: mes = 1
   Set Hojameses = Application.Workbooks.Add
   Do While Hojameses.Sheets.Count < 12
        Hojameses.Sheets.Add    
   Loop
   For Each hoja In Hojameses.Sheets
        hoja.Name = UCase(Format(DateSerial(Year(Now), mes, 1), "mmmm"))
        mes = mes + 1
   Next
End Sub


Agregala a un boton para que la tengas siempre disponible en todo el entorno de excel.

Esperamos que este articulo te sea de utilida, si tienes alguna duda o sugerencia dejanos un comentario.
Y si te a servido comparte el articulo con quien creas este articulo le sera de utilidad.


Saludos cordiales.

JASR