Trying to make/have a PTO calendar that tracks 4 different work centers with different employees

Udub2180

New Member
Joined
Feb 1, 2022
Messages
4
Office Version
  1. 2016
Platform
  1. Windows
So I have got the calendar set up that I can change the months successfully to the end of the year and will populate the different employees in the work centers, I'm thinking I'll have to do VBA again to hide calendars for different work centers to be able to track everything correctly? Any help would be appreciated. I ultimately want to be able to put this on a ONEdrive to share it across my work

Excel Leave Tracker.xlsm
A
3Work Center 1
Leave Tracker
Cells with Data Validation
CellAllowCriteria
A3List=Sheet3!$J$1:$M$1


Excel Leave Tracker.xlsm
K
16
Sheet3
 
Excel Leave Tracker.xlsm
ABCDEFGHIJKLMNOPQRSTUVWXYZAAABACADAEAF
1
2Work Center
3Work Center 1
42025
5Quarter 1
6Week1111222222233333334444444555555
7DayWedThuFriSatSunMonTueWedThuFriSatSunMonTueWedThuFriSatSunMonTueWedThuFriSatSunMonTueWedThuFri
8Name01020304050607080910111213141516171819202122232425262728293031
9J
10F
11S
12V
13H
14S
15T
16W
17B
18N
Leave Tracker
Cell Formulas
RangeFormula
B5B5="Quarter "&ROUNDUP(MONTH(Sheet3!$G$2)/3,0)
B6:AF6B6=IF(B$8="","",WEEKNUM(DATE($A$4,XLOOKUP($A$1,Sheet3!$B$1:$B$12,Sheet3!$B$1:$B$12,""),COLUMNS($A$7:A7)),1))
B7:AF7B7=IF(B$8="","",VLOOKUP(WEEKDAY(DATE($A$4,$A$1,B8),2),Sheet3!$D$1:$E$7,2,0))
B8:AF8B8=IF(AND((COLUMN()-1)>31*($A$1-1),MONTH(DATE($A$4+INT(($A$1+1)/12),IF((INT((COLUMN()-1)/31.001)+1)>12,(INT((COLUMN()-1)/31.001)+1-12),INT((COLUMN()-1)/31.001)+1),ROUNDUP(MOD(COLUMN()-1,31.001),0)))=ROUNDUP(MOD(1+$A$1-1,12.01),0)),ROUNDUP(MOD(COLUMN()-1,31.001),0),"")
A9:A22A9=IF((XLOOKUP(A3,Sheet3!J1:M1,Sheet3!J2:M15," ",0)=0),"",XLOOKUP(A3,Sheet3!J1:M1,Sheet3!J2:M15," ",0))
Dynamic array formulas.
Cells with Conditional Formatting
CellConditionCell FormatStop If True
B7:NI7Expression=IF(VLOOKUP(B7,$NW$22:$NX$28,2,0)="No",TRUE,FALSE)textNO
B9:NI28Expression=AND(B$8<>"",VLOOKUP(B$7,$NW$22:$NX$28,2,0)<>"Yes")textYES
B9:NI28Expression=ISNUMBER(MATCH(DATE($A$4,$A$1,B$8),HolidayListNamedRange,0))textYES
B9:NI28Expression=OR(B9=$NX$9,B9=$NX$10,B9=$NX$11,B9=$NX$12,B9=$NX$13,B9=$NX$14,B9=$NX$15,B9=$NX$16)textNO
B9:NI28Expression=OR(B9=$NX$17,B9=$NX$18)textNO
Cells with Data Validation
CellAllowCriteria
B9:AF18Custom=B$7<>""
A3List=Sheet3!$J$1:$M$1


Excel Leave Tracker.xlsm
ABCDEFGHIJKLM
1January11MonJanuary 2025Work Center 1Work Center 2Workcenter 3aWorkcenter 3b
2February22TueJanuary 2025JUWL
3March33WedFJSM
4April44ThuSBXN
5May55FriVKCK
6June66SatHODI
7July77SunSTEU
8August8TFRJ
9September9WBFB
10October10BCVH
11November11NSBT
12December12BGD
13WTS
14HY
15YH
16
17
18
Sheet3
Cell Formulas
RangeFormula
G1G1=INDEX($A$1:$A$12,MATCH('Leave Tracker'!$A$1,Sheet3!$B$1:$B$12,0))&" "&'Leave Tracker'!$A$4
G2G2=INDEX($A$1:$A$12,MATCH(MONTH(DATE('Leave Tracker'!$A$4,'Leave Tracker'!$A$1,1)),$B$1:$B$12,0))&" "&YEAR(DATE('Leave Tracker'!$A$4,'Leave Tracker'!$A$1,1))
 
Upvote 0

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top