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.
--
Patricia

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.

--
Regards,
Tom Ogilvy


"Patricia" wrote:

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.
--
Patricia

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)

"Patricia" wrote in message
...
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.
--
Patricia

so I would have to save a calendar of holidays. I think this will work. Thank
you.
--
Patricia


"Bob Phillips" wrote:

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)

"Patricia" wrote in message
...
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.
--
Patricia

Thank you, Tom.
--
Patricia


"Tom Ogilvy" wrote:

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.

--
Regards,
Tom Ogilvy


"Patricia" wrote:

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.
--
Patricia