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

 

Share this

AppsJasr