Code Required to calculate number of days worked, normal overtime and holiday overtime

**DocAElstein** · 02-05-2017, 07:26 PM

Hi Nelson,
This is another solution separate to mine form posts 5 6 and 7

Here is a new Full code: Sub IJAdjustKAddTotalAllWorksheet()
Post #20
http://www.excelfox.com/forum/showth...0072#post10072

The check criteria is now the background color, ( as alternative to Friday as in the first code ) '3d) We need to check Interior color . I got it from this quick code

Code:

' Rem Ref '_-   http://www.excelfox.com/forum/showthread.php/2145-Excel-VBA-Interception-and-Implicit-Intersection-and-VLookUp?p=10062#post10062
'_-             http://www.excelfox.com/forum/showthread.php/2138-Understanding-VBA-Range-Object-Properties-and-referring-to-ranges-and-spreadsheet-cells?p=10012#post10012
Sub GetInteriorColor() '   https://msdn.microsoft.com/en-us/library/office/ff840499.aspx             http://www.excelfox.com/forum/showthread.php/2144-Code-Required-to-calculate-number-of-days-worked-normal-overtime-and-holiday-overtime?p=10070#post10070
Dim ObjColor As Object
 Set ObjColor = Range("E3").Interior: Debug.Print ObjColor.Color ' Looks Yellow is Double 65535 in Immedite window ( Ctrl+g )
 Set ObjColor = Range("E4").Interior: Debug.Print ObjColor.Color ' Looks like no color is Double 16777215
Dim RngDatesColors As Range ' Select RngDatesColors and hit Shift+F9 to get Range object in watch window. navigate by scrolling and opening with + signs the .Interor Object
 Set RngDatesColors = ThisWorkbook.Worksheets("121").Range("A1").Offset(0, 4).Resize(31, 1) ' .Interior shows only one value for the entire range which seems to be that for a cell with no background color as seen in the screenshot above  all the cells have a colour
End Sub

which, for the BEFORE worksheet “121” tells me that the yellow is an interior taken as a Double of 65535
InteriorColor.JPG http://imgur.com/MavnwLi
InteriorColor.JPG

I make an extra array, arrK() to take the string values for the helper column K, to hold “H” for Holiday hrs or “N” for normal hrs

I no longer take in a dates array to check for Friday. Instead, I take in an Array, arrDteClr(), of the dates interior color. This is a bit inefficient as there is no Interior colors array in the Excel Range object. ( .Interior property for a Range object shows only one value for the entire range which seems to be that as for no color as seen in the screenshot above unless all the cells have a colour, in which case it gives the color for that )
So I have to take in each value in a new loop, 'InnerLoop for dates background colors ( so I could just as well have checked the worksheet, but I made an array for consistency as I am predominantly using arrays in my code).

Code section '3e) from the first code is not now used to calculate totals. ( and neither are the variables NOHrsV2 and HOHrsV2 which were used for those totals

Code section ‘3f) is modified to paste out the formulas from Admin instead of the totals values

In section ‘3g) there is a line which pastes out that help column

So in next post is just the BEFORE ( “File1 Before.xlsx” ) data range for the first worksheet “121”.
(as in Post #6
http://www.excelfox.com/forum/showth...0068#post10068 )

Then in the final 2 couple of post is the Output ( AFTER ) for the new code for one of the Worksheets ( “121” ). The code works on the same Input ( BEFORE ) as in Post #6
http://www.excelfox.com/forum/showth...0068#post10068

**DocAElstein** · 02-05-2017, 07:27 PM

BEFORE ( “File1 Before.xlsx” ) data range for the first worksheet “121”.
(as in Post #6
http://www.excelfox.com/forum/showth...0068#post10068 )

Using Excel 2007 32 bit

_Row\^Col	A	B	C	D	E	F	G	H	I	J
1	SOVEL	JOY	121	TEAM LEADER	21.Dec.16	7:00	18:00	11:00	9:00	2:00
2	SOVEL	JOY	121	TEAM LEADER	22.Dec.16	7:00	18:00	11:00	9:00	2:00
3	SOVEL	JOY	121	TEAM LEADER	23.Dec.16	7:00	15:00	8:00	9:00	0:00
4	SOVEL	JOY	121	TEAM LEADER	24.Dec.16	7:00	18:00	11:00	9:00	2:00
5	SOVEL	JOY	121	TEAM LEADER	25.Dec.16	7:00	18:00	11:00	9:00	2:00
6	SOVEL	JOY	121	TEAM LEADER	26.Dec.16	7:00	18:00	11:00	9:00	2:00
7	SOVEL	JOY	121	TEAM LEADER	27.Dec.16	7:00	17:00	10:00	9:00	1:00
8	SOVEL	JOY	121	TEAM LEADER	28.Dec.16	7:00	18:00	11:00	9:00	2:00
9	SOVEL	JOY	121	TEAM LEADER	29.Dec.16	7:00	18:00	11:00	9:00	2:00
10	SOVEL	JOY	121	TEAM LEADER	30.Dec.16	7:00	18:00	11:00	9:00	2:00
11	SOVEL	JOY	121	TEAM LEADER	31.Dec.16	7:00	18:00	11:00	9:00	2:00
12	SOVEL	JOY	121	TEAM LEADER	1.Jan.17	7:00	18:00	11:00	9:00	2:00
13	SOVEL	JOY	121	TEAM LEADER	2.Jan.17	7:00	18:00	11:00	9:00	2:00
14	SOVEL	JOY	121	TEAM LEADER	3.Jan.17	7:00	18:00	11:00	9:00	2:00
15	SOVEL	JOY	121	TEAM LEADER	4.Jan.17	7:00	18:00	11:00	9:00	2:00
16	SOVEL	JOY	121	TEAM LEADER	5.Jan.17	7:00	18:00	11:00	9:00	2:00
17	SOVEL	JOY	121	TEAM LEADER	6.Jan.17
18	SOVEL	JOY	121	TEAM LEADER	7.Jan.17	7:00	18:00	11:00	9:00	2:00
19	SOVEL	JOY	121	TEAM LEADER	8.Jan.17	7:00	18:00	11:00	9:00	2:00
20	SOVEL	JOY	121	TEAM LEADER	9.Jan.17	7:00	18:00	11:00	9:00	2:00
21	SOVEL	JOY	121	TEAM LEADER	10.Jan.17	7:00	18:00	11:00	9:00	2:00
22	SOVEL	JOY	121	TEAM LEADER	11.Jan.17	7:00	18:00	11:00	9:00	2:00
23	SOVEL	JOY	121	TEAM LEADER	12.Jan.17	7:00	18:00	11:00	9:00	2:00
24	SOVEL	JOY	121	TEAM LEADER	13.Jan.17	7:00	18:00	11:00	9:00	2:00
25	SOVEL	JOY	121	TEAM LEADER	14.Jan.17	7:30	17:30	10:00	9:00	1:00
26	SOVEL	JOY	121	TEAM LEADER	15.Jan.17	7:30	17:30	10:00	9:00	1:00
27	SOVEL	JOY	121	TEAM LEADER	16.Jan.17	7:30	17:30	10:00	9:00	1:00
28	SOVEL	JOY	121	TEAM LEADER	17.Jan.17	7:30	17:30	10:00	9:00	1:00
29	SOVEL	JOY	121	TEAM LEADER	18.Jan.17	7:00	18:00	11:00	9:00	2:00
30	SOVEL	JOY	121	TEAM LEADER	19.Jan.17	7:00	18:00	11:00	9:00	2:00
31	SOVEL	JOY	121	TEAM LEADER	20.Jan.17

Worksheet: 121

**DocAElstein** · 02-05-2017, 07:30 PM

Output data range ( AFTER ) for worksheet “121” after running either of the codes
Sub IJAdjustTotalAllWorksheet()
Or
Sub IJAdjustKAddTotalAllWorksheet()

Using Excel 2007 32 bit

_Row\^Col	A	B	C	D	E	F	G	H	I	J	K
1	SOVEL	JOY	121	TEAM LEADER	21.Dec.16	7:00	18:00	11:00	9:00	2:00	N
2	SOVEL	JOY	121	TEAM LEADER	22.Dec.16	7:00	18:00	11:00	9:00	2:00	N
3	SOVEL	JOY	121	TEAM LEADER	23.Dec.16	7:00	15:00	8:00		8:00	H
4	SOVEL	JOY	121	TEAM LEADER	24.Dec.16	7:00	18:00	11:00	9:00	2:00	N
5	SOVEL	JOY	121	TEAM LEADER	25.Dec.16	7:00	18:00	11:00	9:00	2:00	N
6	SOVEL	JOY	121	TEAM LEADER	26.Dec.16	7:00	18:00	11:00	9:00	2:00	N
7	SOVEL	JOY	121	TEAM LEADER	27.Dec.16	7:00	17:00	10:00	9:00	1:00	N
8	SOVEL	JOY	121	TEAM LEADER	28.Dec.16	7:00	18:00	11:00	9:00	2:00	N
9	SOVEL	JOY	121	TEAM LEADER	29.Dec.16	7:00	18:00	11:00	9:00	2:00	N
10	SOVEL	JOY	121	TEAM LEADER	30.Dec.16	7:00	18:00	11:00		10:00	H
11	SOVEL	JOY	121	TEAM LEADER	31.Dec.16	7:00	18:00	11:00	9:00	2:00	N
12	SOVEL	JOY	121	TEAM LEADER	1.Jan.17	7:00	18:00	11:00	9:00	2:00	N
13	SOVEL	JOY	121	TEAM LEADER	2.Jan.17	7:00	18:00	11:00	9:00	2:00	N
14	SOVEL	JOY	121	TEAM LEADER	3.Jan.17	7:00	18:00	11:00	9:00	2:00	N
15	SOVEL	JOY	121	TEAM LEADER	4.Jan.17	7:00	18:00	11:00	9:00	2:00	N
16	SOVEL	JOY	121	TEAM LEADER	5.Jan.17	7:00	18:00	11:00	9:00	2:00	N
17	SOVEL	JOY	121	TEAM LEADER	6.Jan.17						H
18	SOVEL	JOY	121	TEAM LEADER	7.Jan.17	7:00	18:00	11:00	9:00	2:00	N
19	SOVEL	JOY	121	TEAM LEADER	8.Jan.17	7:00	18:00	11:00	9:00	2:00	N
20	SOVEL	JOY	121	TEAM LEADER	9.Jan.17	7:00	18:00	11:00	9:00	2:00	N
21	SOVEL	JOY	121	TEAM LEADER	10.Jan.17	7:00	18:00	11:00	9:00	2:00	N
22	SOVEL	JOY	121	TEAM LEADER	11.Jan.17	7:00	18:00	11:00	9:00	2:00	N
23	SOVEL	JOY	121	TEAM LEADER	12.Jan.17	7:00	18:00	11:00	9:00	2:00	N
24	SOVEL	JOY	121	TEAM LEADER	13.Jan.17	7:00	18:00	11:00		10:00	H
25	SOVEL	JOY	121	TEAM LEADER	14.Jan.17	7:30	17:30	10:00	9:00	1:00	N
26	SOVEL	JOY	121	TEAM LEADER	15.Jan.17	7:30	17:30	10:00	9:00	1:00	N
27	SOVEL	JOY	121	TEAM LEADER	16.Jan.17	7:30	17:30	10:00	9:00	1:00	N
28	SOVEL	JOY	121	TEAM LEADER	17.Jan.17	7:30	17:30	10:00	9:00	1:00	N
29	SOVEL	JOY	121	TEAM LEADER	18.Jan.17	7:00	18:00	11:00	9:00	2:00	N
30	SOVEL	JOY	121	TEAM LEADER	19.Jan.17	7:00	18:00	11:00	9:00	2:00	N
31	SOVEL	JOY	121	TEAM LEADER	20.Jan.17						H

Worksheet: 121

**DocAElstein** · 02-05-2017, 07:40 PM

Output values and formulas for output range for Worksheet "121" after running second code
Sub IJAdjustKAddTotalAllWorksheet()
( Second code is here: http://www.excelfox.com/forum/showth...0072#post10072

Output values as seen in the spreadsheet:Using Excel 2007 32 bit

_Row\^Col	B	C	F	G	I	J
33
34	TOTAL NO. OF DAYS ----->	30	Normal Overtime ----->		Holiday Overtime ----->
35				47		28
36
37	For all Month no. of days we take as 30 only

Worksheet: 121

Formula string values ( as seen in the Formula Bar ) :Using Excel 2007 32 bit

_Row\^Col	B	C	F	G	I	J
33
34	TOTAL NO. OF DAYS ----->	30	Normal Overtime ----->		Holiday Overtime ----->
35				=SUMIF(K1:K31,"N",J1:J31)*24		=SUMIF(K1:K31,"H",J1:J31)*24
36
37	For all Month no. of days we take as 30 only

Worksheet: 121

There you go

. lots for you to try

before you tell us you wanted something different !

वहाँ आप का प्रयास करने के लिए बहुत सारे हैं।

संभवत: आप कुछ अलग चाहते हो सकता है

Alan

**nelsondavid** · 02-06-2017, 07:12 AM

Dear Alan,

The code seems to be working fine

..i need normal OT and Holiday OT to appear exactly in cell G34 and J34
Can i use the same code for every month and if yes what changes i need to do from my end
I have around 800 sheets ...will the code work on all sheets in one go

Thanks,

Nelson

**DocAElstein** · 02-06-2017, 03:40 PM

Hi Nelson,

Originally Posted by nelsondavid

..i need normal OT and Holiday OT to appear exactly in cell G34 and J34 ...

I think you can see what part of the code determines where the output goes

Code:

'3f) Paste out final Totals and days to current Worksheet
     Let wsStear.Range("G34").Value = NOHrsV2 * 24 'Normal Overtime is held in Array as fraction of a day
     Let wsStear.Range("J34").Value = HOHrsV2 * 24 'Holiday Overtime is held in Array as fraction of a day
     Let wsStear.Range("C34").Value = TDays ' The constant value of Total days is simply added to cell C34
'3g) Normal   Hrs  ( Column I ) and Overtime Hrs ( Column J ) are  changed

Code:

'3f) Paste out final Totals formulas and days to current Worksheet
     Let wsStear.Range("G35").Value = "=SUMIF(K1:K" & lr & ",""N"",J1:J" & lr & ")*24"
     Let wsStear.Range("J35").Value = "=SUMIF(K1:K" & lr & ",""H"",J1:J" & lr & ")*24"
     Let wsStear.Range("C34").Value = TDays ' The constant value of Total days is simply added to cell C34
'3g) Normal   Hrs  ( Column I ) and Overtime Hrs ( Column J ) are  changed ' And can paste out help column if you like

I am sure you can understand how to modify to change which cells are used for where the total appear
_............................................

Originally Posted by nelsondavid

.... Can i use the same code for every month ...

Yes..

Originally Posted by nelsondavid

. if yes what changes i need to do from my end..

..The code is not in any way dependant on any month information......There is no reason that I can see to need to change anything..

Originally Posted by nelsondavid

....what changes i need to do from my end..

You should not need to change your end, leave it alone, at least as far as any effect on the Months are concerned
_................................................. .......

Originally Posted by nelsondavid

...I have around 800 sheets ...will the code work on all sheets in one go...

The code is designed to work on multiple worksheets.
Obviously I only tested it with two.
If I were you, I would test it first with a larger amount, 10, 30, 60, .100 .......etc.. then finally 800 etc.

_................................................. ...

In my opinion, it is very important that you try to understand the code...

Alan.

P.s.

Originally Posted by nelsondavid

..The code seems to be working fine..

We have given you 2 codes
From Alan
http://www.excelfox.com/forum/showth...age2#post10066

From Alan and Admin
http://www.excelfox.com/forum/showth...age2#post10072

**nelsondavid** · 02-06-2017, 09:55 PM

Dear Nelson,

The code working fine , but have two problems 1)It calculates the number of days worked as 30 even if the person absent for one or two days

2)I use column K for remarks which you are currently using to identify the days

Sample attached

Thanks,

Nelson