Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA to find next Monday
What is the best way to find the date for next monday, and return the value
in as part of the file name when saving? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA to find next Monday
Hello Byron, Here is a VBA macro to Return the next Monday from today. Code: -------------------- Public Function NextMonday() As Date Dim D As Integer Dim N As Date D = Weekday(Now) N = Now() + (9 - D) NextMonday = N End Function -------------------- Sincerely, Leith Ross -- Leith Ross ------------------------------------------------------------------------ Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465 View this thread: http://www.excelforum.com/showthread...hreadid=484594 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA to find next Monday
I'm not sure just how you wanted to incorporate the date into the file name
for the saved workbook but something like this might get you close. Sub NameAsNextMon() Dim K As Integer Dim dteMon As Date Dim tempName As Variant K = Weekday(Now) dteMon = Now() + (9 - K) tempName = Year(dteMon) & "-" & Month(dteMon) & "-" & Day(dteMon) & ".xls" Do fName = Application.GetSaveAsFilename(tempName) Loop Until fName < False ActiveWorkbook.SaveAs Filename:=fName End Sub Steve Yandl "Byron" wrote in message ... What is the best way to find the date for next monday, and return the value in as part of the file name when saving? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
First Monday | Excel Discussion (Misc queries) | |||
Find date of first Monday of each month | Excel Discussion (Misc queries) | |||
Date calculation for Monday of one month to the Monday of the next | Excel Discussion (Misc queries) | |||
Find First Monday in May | Excel Worksheet Functions | |||
Find the date for monday prior to May 25th | Excel Worksheet Functions |