Ejecutar un formulario al finalizar un año
Elsa, yo otra vez... .. Si quiero que a final de cada año, según la fecha que tiene el pc, me muestre un mensaje que diga se finaliza el año, o algo así.. Como puedo hacer eso... Porque habría que hacer algo para que me reconozca las fechas y que a fin de año solo abra un formulario con la advertencia..
Gracias nuevamente
Gracias nuevamente
1 Respuesta
Respuesta de Elsa Matilde
1
En el evento Open de tu libro debes colocar ests instrucciones.
Private Sub Workbook_Open()
If Month(Date) = 12 And Day(Date) = 31 Then
MsgBox "Feliz Año Nuevo"
End If
End Sub
'Date' es la fecha del sistema o PC. Todos los 31 de diciembre aparecerá el mensaje. Puedes llamar tambien a un Userform:
UFSaludos.Show
Private Sub Workbook_Open()
If Month(Date) = 12 And Day(Date) = 31 Then
MsgBox "Feliz Año Nuevo"
End If
End Sub
'Date' es la fecha del sistema o PC. Todos los 31 de diciembre aparecerá el mensaje. Puedes llamar tambien a un Userform:
UFSaludos.Show
