How do I subtract 2 days in VBA?

[thardin]

Here is a copy and paste VBA code I currently use at work.

However, I am trying to add an IF and THEN statement because on Mondays I have to open and copy from a file with Saturdays date (where highlighted) instead of today's current date.

How would you recommend doing this?

Thanks.

Sub Grab_OBSB158_Data()

'

' Grab_DOB_Data Macro

'

' Keyboard Shortcut: Ctrl+h

'

Dim strYearShort As String, strMonthShort As String, strMonthLong As String, strDay As String, strYearLong As String

Dim strFullDate As String

Dim Drive As String

Dim strOpenPath As String

Dim strDestinationFileName As String

Dim OpenFile As String

Dim PasteFile As String



strYearShort = Format(Now, "yy")

strYearLong = Format(Now, "yyyy")

strMonthShort = Format(Now, "mm")

strMonthLong = Format(Now, "mmmm")

strDay = Format(Now, "DD")

strFullDate = strYearLong & strMonthShort & strDay

strMonthFolder = strMonthShort & "-" & strMonthLong

strFullDate2 = strMonthShort & "." & strDay & "." & strYearShort



'file location to open & grab

Drive = "X:"

strOpenPath = "\shareholder_accounting\529 C Share Restriction Controls\Fund Held\Delivered to Fund\EPM_output\"

strOpenPath = strOpenPath & strYearLong & "\" & strMonthFolder & "\"

OpenFile = "OBSB158_Delivered_to_Fund_" & strFullDate & ".xlsx"



strOpenPath = Drive & strOpenPath & OpenFile



'Name of file to paste

PasteFile = strFullDate2 & " Del to Fund Violations.xlsx"







'Open workbook:

Workbooks.Open strOpenPath



'grab Data And Copy

Sheets("Sheet1").Activate

Range("A:N").Select



Selection.Copy



'spot to paste data

Workbooks(PasteFile).Activate

Worksheets("Violations").Activate

Range("A1").Select



'paste data

ActiveSheet.Paste



End Sub

 

[Fluff]

Duplicate to: How do I subtract 2 days in VBA.

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread. If you do not receive a response, you can "bump" it by replying to it yourself, though we advise you to wait 24 hours before doing so, and not to bump a thread more than once a day.