The data:
Report for the month of february 08
day intakes exits dns
2/1/2008 3 0 1
2/2/2008 1 5 0
2/3/2008 3 0 1
2/4/2008 1 5 0
2/5/2008 3 0 1
2/6/2008 1 5 0
2/7/2008 3 0 1
2/8/2008 3 0 1
2/9/2008 1 5 0
2/10/2008 3 0 1
2/11/2008 3 0 1
2/12/2008 1 5 0
2/13/2008 3 0 1
2/14/2008 3 0 1
2/15/2008 1 5 0
2/16/2008 3 0 1
2/17/2008 3 0 1
2/18/2008 1 5 0
2/19/2008 3 0 1
2/20/2008 3 0 1
2/21/2008 1 5 0
2/22/2008 3 0 1
2/23/2008 3 0 1
2/24/2008 1 5 0
2/25/2008 3 0 1
2/26/2008 3 0 1
2/27/2008 1 5 0
2/28/2008 3 0 1
2/29/2008 3 0 1
The code:
Sub Macro1()
Range("A4").Select
n = 1
Do Until ActiveCell.Value = ""
ThisDay = Weekday(ActiveCell.Value)
Select Case ThisDay
Case 1 To 5
wkintake = wkintake + ActiveCell.Offset(0, 1).Value
wkexits = wkexits + ActiveCell.Offset(0, 2).Value
wkdns = wkdns + ActiveCell.Offset(0, 3).Value
Case 6
wkintake = wkintake + ActiveCell.Offset(0, 1).Value
wkexits = wkexits + ActiveCell.Offset(0, 2).Value
wkdns = wkdns + ActiveCell.Offset(0, 3).Value
If ThisDay = 6 Then
Select Case n
Case 1
wkintake1 = wkintake
wkexits1 = wkexits
wkdns1 = wkdns
wkintake = 0
wkexits = 0
wkdns = 0
n = n + 1
Case 2
wkintake2 = wkintake
wkexits2 = wkexits
wkdns2 = wkdns
wkintake = 0
wkexits = 0
wkdns = 0
n = n + 1
Case 3
wkintake3 = wkintake
wkexits3 = wkexits
wkdns3 = wkdns
wkintake = 0
wkexits = 0
wkdns = 0
n = n + 1
Case 4
wkintake4 = wkintake
wkexits4 = wkexits
wkdns4 = wkdns
wkintake = 0
wkexits = 0
wkdns = 0
n = n + 1
Case 5
wkintake5 = wkintake
wkexits5 = wkexits
wkdns5 = wkdns
wkintake = 0
wkexits = 0
wkdns = 0
n = n + 1
End Select
End If
Case 7
wkintake = wkintake + ActiveCell.Offset(0, 1).Value
wkexits = wkexits + ActiveCell.Offset(0, 2).Value
wkdns = wkdns + ActiveCell.Offset(0, 3).Value
Case Else
Debug.Print "Check the date"
End Select
ActiveCell.Offset(1, 0).Select
Loop
End Sub
The results are in these variables:
wkintake1
wkexits1
wkdns1
wkintake2
wkexits2
wkdns2
Etc. 3 through 5
wkintake# Etc. 3 through 5
wkexits# Etc. 3 through 5
wkdns# Etc. 3 through 5
It is assumed you will have a Date under Day column A and it, the Data, will
start on Row 4. It will fail if you have no data on the last day of the
period (Friday.)
Hope it helps.
David
"Hernan" wrote:
Hi David,
I see. Then it ends on Fridays.
Hernan
"David" wrote:
Hi Again,
I think the start of the week is not important. It is the last day of the
week that is important, it is the cut off date and could even stand alone. If
your week ends on Friday, Feb 2008, week1 could have one day only. If it ends
on Sat. then Feb 08, week2 has two days, if it end on Sun, then Feb 08, week
1 has 3 days.
So what day does your week end on?
David
"Hernan" wrote:
Hello Rick,
Yes, weekends are considered. So the 1st of the month could any day of the
week. That's why I have wek 1 thru 5, that as a matter of fact, it should be
6 weeks, for example the month in course. March 08.
"Rick Rothstein (MVP - VB)" wrote:
Then if, for example, Day 1 of the month were on a Thursday, your Week1
summation would contain only Day1, Day2 and, if weekends are included, Day3
(and, depending on whether the week is considered to start on Sunday or
Monday, possibly Day4), right? If so, clarify for us if weekends are counted
or not. If not, I guess Day1 could be the 2nd or 3rd day of the month if the
month starts on a Saturday or Sunday, right?
Rick
"Hernan" wrote in message
...
Hello Rick,
Thanks for replying.
That is why I have 5 weeks in it rpresented, because day one not always
start on a Monday or Sunday etc...
And no I don't have a rule for week 1 except that once the date has been
retrieved and the month determined, then day 1 can be pinpointed and acted
upon.
Sorry for the malrepresentation pf my sheet. Formatting goes down the
tube,
even if it is ascii only? Well I am assuming I am writing in ascii... :/
TIA
"Rick Rothstein (MVP - VB)" wrote:
In any given month, what constitutes "Week1"? Is it always the first 7
days
of the month (Day1 though Day7) or is it the physical calendar week
(Sunday
through Saturday)? If the latter, do you have any rules about where in
the
week the 1st of the month must occur?
Rick
"Hernan" wrote in message
...
Hello,
I have a sheet that looks like this:
A B C D
1 Report for the month of february 08
2
3 day intakes exits dns
4 1 3 0 1
5 2 1 5 0
. .
. .
. .
totals 4 5 1
and so on to the 31st day. days 30th and 31st will have nothing for the
current report.
on the side I have:
F G H I
1 totals
2 intakes exits dns
3 week1
4 week2
5 week3
6 week4
7 week5
All of this is in a protected sheet
Is there a way to get the date from the system clock and from there
calculate the totals for intakes, exits and dns for each week. All I
have
to
do at the beginning of each month is to change the name of the month in
course and enter the individual number of intakes, exits and dns.
Thank you in advanced.
Hernan