Run code if day of month is prior to specific day

[rjmdc]

I want to add code that says Call Send Messages if the day of the month is <=23
this way i can add that peice of code to my main process only if it the 23rd or before

 

[Joe4]

Pretty straightforward, something like this:

    If Day(Date) <= 23 Then
        MsgBox "Call Send Messages"
        'Call your code here
    End If

 

[rjmdc]

i got stuck
the code to run contains the following:
I dont want the ui interface when its part of the main large process
how do I disregard the ui interface when its part of thelarger process and not on its own?

Sub SendExpirationEmails()
    Dim RptPeriod           As Date:                RptPeriod = Application.WorksheetFunction.EoMonth(wsControl.Range("LastRptPeriod"), 0)
    Dim tbl                 As ListObject:    
'UI Confirm
    If MsgBox("Have you switched to Expense Reports Email Account?", vbYesNo, "Confirm Emails") = vbNo Then
        MsgBox "Process Aborted."
        Exit Sub
    End If
    
    If MsgBox("This process will send emails to all expiring budgets.  Are you sure you want to continue?", vbYesNo, "Confirm Emails") = vbNo Then
        MsgBox "Process Aborted."
        Exit Sub
    End If

 

[Joe4]

Try adding an input parameter to your SendExpirationEmails like this:

Sub SendExpirationEmails(UI_Confirm As Boolean)
    Dim RptPeriod           As Date:                RptPeriod = Application.WorksheetFunction.EoMonth(wsControl.Range("LastRptPeriod"), 0)
    Dim tbl                 As ListObject:

'UI Confirm
    If UI_Confirm = True Then
        
        If MsgBox("Have you switched to Expense Reports Email Account?", vbYesNo, "Confirm Emails") = vbNo Then
            MsgBox "Process Aborted."
            Exit Sub
        End If
    
        If MsgBox("This process will send emails to all expiring budgets.  Are you sure you want to continue?", vbYesNo, "Confirm Emails") = vbNo Then
            MsgBox "Process Aborted."
            Exit Sub
        End If
    
    End If

Then have your other code pass it a value of FALSE to skip that portion when called from your code like that, i.e.

    If Day(Date) <= 23 Then
        Call SendExpirationEmails(False)
    End If

 

[rjmdc]

amazing i will try that

 

[rjmdc]

I bumped into another error
since I have another sub it says argument not optional

Sub SendAllExpirationEmails()
    Call SendExpirationEmails
End Sub

 

[Joe4]

You will need to add that argument now to every call of that procedure in your code, as you need to tell it whether or not to ask those questions.
If you want it to ask those questions, just use True, i.e.

    Call SendExpirationEmails(True)

 

[rjmdc]

hi
thank you happy new year
no more debugs
I will try to run the beginnng of January to see if it calls the emails
I will report back

 

[rjmdc]

hi sorry another debg
process finishes with

MsgBox "Process Complete", vbInformation, "Email Process Complete"

this then needs an ok to proceed
how do i take that away so no messages or input if i run as part of the main process?

 

[Joe4]

Wrap that in another IF statement, like I showed you above with the original code, i.e.

    If UI_Confirm = True Then
        MsgBox "Process Complete", vbInformation, "Email Process Complete"
    End If