Generar una macro el primer día hábil de cada mes
Necesito generar una macro con un mensaje de alerta el primer día hábil de cada mes, o sea, que no lo genere los sábados ni domingos que sean 1; ni los 01/enero, el 01/mayo y el 01/noviembre, por ejemplo estos son los que corresponden al año 2016:
04/01/2016
01/02/2016
01/03/2016
01/04/2016
02/05/2016
01/06/2016
01/07/2016
01/08/2016
01/09/2016
03/10/2016
02/11/2016
01/12/2016
¿Se podrá?
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Pon la siguiente macro en los eventos de thisworkbook
Private Sub Workbook_Open() 'Por.Dante Amor Select Case Date Case "04/01/2016", "01/02/2016", "01/03/2016", "01/04/2016", _ "02/05/2016", "01/06/2016", "01/07/2016", "01/08/2016", _ "01/09/2016", "03/10/2016", "02/11/2016", "01/12/2016" MsgBox "Alerta, primer día del mes de: " & Format(Date, "mmmm") End Select End Sub
Instrucciones para poner la macro en los eventos ThisWorkbook
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a ThisWorkbook
- Del lado derecho copia la macro
Hola, no funciona, lo probé con un día actual y no aparece mensaje de alerta.
Sí me funciona, por ejemplo probé con el día de hoy:
Select Case Date Case "09/12/2015", "01/02/2016", "01/03/2016", "01/04/2016", _ "02/05/2016", "01/06/2016", "01/07/2016", "01/08/2016", _ "01/09/2016", "03/10/2016", "02/11/2016", "01/12/2016" MsgBox "Alerta, primer día del mes de: " & Format(Date, "mmmm") End Select
La primer fecha dice 09/12/2015, revisa que hayas puesto bien la fecha de hoy
