saving with a date

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Could anyone tell me how you can save a file with a date one day before
today's date but if it falls on a holiday to save it with the prior date.
Thank you.
 
Some pseudo code:

dt = Date - 1
for each cell in Range("Holidays")
if dt = cell then
dt = dt - 1
exit for
end if
Next
Activeworkbook.SaveAs "C:\ABC\BaseName" & format(dt,"yyyymmdd") & ".xls",
xlWorkbookNormal

if you consider a holiday to include weekends, then it would involve more
checking.
 
Assuming the holidays are stored in a named range

Dim SaveDate As Date

SaveDate = Date - 1
If Weekday(SaveDate) = 1 Then
SaveDate = SaveDate - 2
ElseIf Weekday(SaveDate) = 7 Then
SaveDate = SaveDate - 1
End If
If Not IsError(Application.Match(Range("holidays"), 0)) Then
SaveDate = SaveDate - 1
End If
ActiveWorkbook.SaveAs Filename:=Format(SaveDate, "yyyy-mm-dd")


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
Thank you, Tom.
--
Patricia


Tom Ogilvy said:
Some pseudo code:

dt = Date - 1
for each cell in Range("Holidays")
if dt = cell then
dt = dt - 1
exit for
end if
Next
Activeworkbook.SaveAs "C:\ABC\BaseName" & format(dt,"yyyymmdd") & ".xls",
xlWorkbookNormal

if you consider a holiday to include weekends, then it would involve more
checking.
Click to expand...
 
Back
Top