Hi Nelson.
Here is the next code version:
Here: ( Post 27 )
http://www.excelfox.com/forum/showth...0101#post10101
and here: ( Post 28 )
http://www.excelfox.com/forum/showth...0102#post10102
It is all one code ( I had to split it due to post character size restrictions )
You need to copy the second ´part directly under the first part in the same code module
_.........
The code takes your Before like these:
http://www.excelfox.com/forum/showth...0096#post10096
http://www.excelfox.com/forum/showth...0097#post10097
After running_..
Sub IJAdjust_LAdd_AbsentKAdd_TotalsFormulas_AllWorkshe etsCode4()
_.. you should get like:
http://www.excelfox.com/forum/showth...0098#post10098
http://www.excelfox.com/forum/showth...0099#post10099
http://www.excelfox.com/forum/showth...0100#post10100
_.....
Here is just a small sample of what the code does:
Before:
Using Excel 2007 32 bit
28.Dec.16 7:00 18:00 11:00 9:00 2:00 29.Dec.16 30.Dec.16 31.Dec.16 1.Jan.17 7:00 18:00 11:00 9:00 2:00 Worksheet: Post22Before121
12.Jan.17 7:00 18:00 11:00 9:00 2:00 13.Jan.17 7:00 18:00 11:00 9:00 2:00 14.Jan.17 7:30 17:30 10:00 9:00 1:00
After:
28.Dec.16 7:00 18:00 11:00 9:00 2:00N 29.Dec.16ABSENT N 30.Dec.16ABSENT 31.Dec.16ABSENT N 1.Jan.17 7:00 18:00 11:00 9:00 2:00N
9.Jan.17ABSENT N 10.Jan.17 7:00 18:00 11:00 9:00 2:00N 11.Jan.17 7:00 18:00 11:00 9:00 2:00N 12.Jan.17 7:00 18:00 11:00 9:00 2:00N 13.Jan.17 7:00 18:00 11:00 10:00H 14.Jan.17 7:30 17:30 10:00 9:00 1:00N
Row\Col B C D E F G H I J 34TOTAL NO. OF DAYS -----> 25 Normal Overtime ----->39 Holiday Overtime ----->18
Row\Col B C D E F G H I J 34TOTAL NO. OF DAYS -----> =30-COUNTIF(K1:K31,"ABSENT") Normal Overtime ----->=SUMIF(L1:L31,"N",J1:J31)*24 Holiday Overtime ----->=SUMIF(L1:L31,"H",J1:J31)*24
Alan
Bookmarks