Programas Mensaje para CADA VIERNES a una HORA

[McDorothy]

Buenas a todos,
necesito realizar una macro de MsgBox para un aviso todos los Viernes a una hora determinada, por ejemplo las 19:00h.

Hasta ahora he conseguido que sea la Hora pero no se hacer...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Hola @McDorothy,
Te puede servir (domingo = 1; viernes = 6)

Sub Programacion()
Application.OnTime TimeValue("19:00:00"), "AVISO_ENVIO_TABLA"
End Sub
Sub...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[McDorothy]

Muchas gracias Fernando, parece realmente simple con ese condicional. No tenía ni idea de cómo hacerlo.

 

[Abraham.Valencia]

Hola amigos

No olvidar que necesariamente tiene que estar abierto el archivo los viernes a esa hora, de lo contrario, no pasará nada.

Saludos

Abraham Valencia...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Muchas gracias Fernando, parece realmente simple con ese condicional. No tenía ni idea de cómo hacerlo.

Lo es. No lo he probado...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Solo porqué pasaba por aquí:

Sub AVISO_ENVIO_TABLA()
If Weekday(Date) = vbFriday Then
   MsgBox "MENSAJE QUE DEBE APARECER"
   End If
End Sub

 

[McDorothy]

Gracias @Antoni, @Fernando, @eavjperu, @FGV por vuestras respuestas, al final lo que he hecho es eliminar lo de la hora...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Sobra Weekday (Date) <> vbFriday

 

[McDorothy]

Sobra Weekday (Date) <> vbFriday

Bueno esto es solo para ir recordandole que no es Viernes... gracias @Antoni

 

[Macro Antonio]

Private Sub Workbook_Open()
If Weekday(Date) = vbFriday Then
   MsgBox "MENSAJE IMPORTANTE", vbCritical, ""
   MsgBox "VIERNES", vbCritical, ""
   MsgBox "ENVIAR LAS FACTURAS NO PAGADAS"...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[McDorothy]

te refieres a que ELSE ya esta indicando que NO es Viernes y por lo tanto debe ejecutar los MsgBox como si no fueran viernes? Creo que eso es a lo que te refieres, que sobra todo desde Weekday...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí