Results 1 to 10 of 10

Reminder on every other Friday

This is a discussion on Reminder on every other Friday within the Excel Questions forums, part of the Question Forums category; Good morning, everyone, Every other Friday, I need to submit my biweekly work hour sheet to manager. For example, as ...

  1. #1
    Board Regular
    Join Date
    Feb 2004
    Posts
    1,036

    Default Reminder on every other Friday

    Good morning, everyone,
    Every other Friday, I need to submit my biweekly work hour sheet to manager. For example, as 12/21/2007 is Friday and pay day, I need to submit my sheet. Next time is two weeks later, 1/4/08, and on.
    12/21/07 is the first event.
    I want to create a conditional format, or workbook events, or worksheet events to remind me on that Friday when I open that book or activate that sheet.
    Any idea will be welcomed.
    Thanks lot.
    Dennis

  2. #2
    Board Regular Lewiy's Avatar
    Join Date
    Jan 2007
    Location
    Hyrule
    Posts
    4,281

    Default Re: Reminder on every other Friday

    This might be a stupid question, but do you use Outlook? You can set reminders up in there very easily.
    Give a man a fish, he'll eat for a day.
    Teach a man to fish, he'll eat for a lifetime.
    Give a man religion, he'll die praying for a fish.

  3. #3
    MrExcel MVP Oaktree's Avatar
    Join Date
    Jun 2002
    Location
    Chicago, IL
    Posts
    7,746

    Default Re: Reminder on every other Friday

    Would it not be easier to set up a recurring Outlook task (assuming you use Outlook) to give you the reminder? That way, even if you forget to open the workbook altogether, you'd still get the reminder...
    "The greatest challenge to any thinker is stating the problem in a way that will allow a solution." Bertrand Russell

  4. #4
    MrExcel MVP
    Moderator
    Andrew Poulsom's Avatar
    Join Date
    Jul 2002
    Posts
    69,634

    Default Re: Reminder on every other Friday

    You could try this formula:

    =MOD(TODAY()-DATE(2007,12,21),14)=0

  5. #5
    Board Regular
    Join Date
    Feb 2004
    Posts
    1,036

    Default Re: Reminder on every other Friday

    thanks lot. I do not use OutLook.
    I agree with Andrew's solution and I am thinking to convert this one to a workbook before_open events.

  6. #6
    Board Regular
    Join Date
    Feb 2004
    Posts
    1,036

    Default Re: Reminder on every other Friday

    I just wrote workbook_open events to remind me when I open this workbook. But it gets a problem with Today().
    What shoul I do?
    thanks lot.
    Dennis

    Code:
    Private Sub Workbook_Open()
      Dim BegFriday As Date
      Dim MyFriday As Date
      Dim ModFriday As Integer
        
        BegFriday = "12/21/2007"
        MyFriday = TODAY() - BegFriday
        ModFriday = MyFriday Mod 14
      
      If ModFriday = 0 Then
        MsgBox "Today is Friday. Submit your time sheet"
      End If
      
    End Sub

  7. #7
    VoG
    VoG is offline
    MrExcel MVP
    Moderator
    VoG's Avatar
    Join Date
    Jun 2002
    Location
    127.0.0.1
    Posts
    63,539

    Default Re: Reminder on every other Friday

    Use Date instead of TODAY()

  8. #8
    MrExcel MVP Jonmo1's Avatar
    Join Date
    Oct 2006
    Location
    Bryan, TX
    Posts
    32,917

    Default Re: Reminder on every other Friday

    in VBA, DATE is used instead of TODAY

    Replace

    TODAY()

    with

    DATE
    Want better/faster responses to your questions?
    Use Excel Jeanie to post samples of your sheet.

    The more we learn, and the better we get at our trade, the easier it becomes to overlook the obvious.

    Life moves pretty fast. If you don't stop and look around once in a while, you could miss it.
    Ferris Bueller A.K.A. John Hughes, 1986

  9. #9
    Board Regular
    Join Date
    Feb 2004
    Posts
    1,036

    Default Re: Reminder on every other Friday

    thanks lot. have a good day.

  10. #10
    Board Regular BrianM's Avatar
    Join Date
    Jan 2003
    Location
    New Bern, North Carolina
    Posts
    670

    Default Re: Reminder on every other Friday

    You might try this:
    In ThisWorkbook paste

    Private Sub Workbook_Open()

    If XXX Then MsgBox "Your Message Here"

    End Sub
    Function XXX() As Boolean
    XXX = ((Date - #12/21/2007#) Mod 14) = 0
    End Function


    *Gee, I was late getting of the pot.
    Last edited by BrianM; Dec 20th, 2007 at 05:02 PM.
    Rush is the greatest band in the Universe...Dream Theater is a very close second (very close); man that's a close call.

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


DMCA.com