The below procedure will create a list of current Work-Week-Date
in one-ColumnRange (6 cells) starting at the active cell
Sub ListOfWorkWeekDate()
Dim dtLastSunday As Date
Dim i As Byte
dtLastSunday = Date - Weekday(Date) + 1
For i = 1 To 6
ActiveCell(i, 1) = dtLastSunday + i
Next
End Sub
On Apr 23, 3:38 pm, Sundarvelan N <nsund...@gmail.com> wrote:
> Hi Friends,
>
> The below code is to return the date from last monday to saturday.
>
> Dim dtWeekAgo As Date
> Dim dtWeekAgoMonday As Date
> Dim dtLastSunday As Date
> Dim dayOfWorkWeek As Integer
>
> dtWeekAgo = Date - 7
> dayOfWorkWeek = Application.Weekday(dtWeekAgo, 3)
> dtWeekAgoMonday = dtWeekAgo - dayOfWorkWeek
> dtLastSunday = dtWeekAgoMonday + 5
>
> I need the code to be altered to give date from last Sunday To Saturday
>
> Please help me
>
> Thanks,
> N.Sundarvelan
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
