Crear las hojas de un mes en base a la fecha hoy
Experto Dante:
Estuve intentando crear las hojas correspondientes al mes actual, la fecha de hoy() se encuentra en una celda y tomando el mes de esa fecha quiero crear las hojas del mes, por ejemplo si el mes actual es marzo, que la macro cree las hojas 1-mar, 2-mar, 3-mar hasta 31-mar
Me ayudas con la macro.
Gracias
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro, cambia C4 por la celda en donde tienes la fórmula Hoy()
Sub CrearHojas() 'Por.Dante Amor UltimoDia = Day(DateSerial(Year([C4]), Month([C4]) + 1, 1) - 1) mes = Format([C4], "mmm") For i = 1 To UltimoDia Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = i & "-" & mes Next End Sub
La macro va a crear el número de hojas de acuerdo al último día del mes, si tiene 31 días, creará 31 hojas, si tiene 30 días 30 hojas, y en el caso de febrero creará 28 hojas.
Cada hoja será nombrada 1-Mar, 2-Mar, hasta el 31-Mar.
Saludos. Dante Amor
Si es lo que necesitas.
