Excel Non VBA change year

CheepBeerSux

New Member
Joined
Aug 23, 2022
Messages
3
Office Version
  1. 365
Platform
  1. Windows
Hi,

This is my first post so I hope I explain myself correctly. I am building a "notes due" database by the following rules. A person is admitted on a date, then a nursing assessment note is due every 7 days for 8 weeks. Following that they are monthly. The problem is that the time increments are based on the admission date, but some patient's notes end up being years ago in the sequence and only one year is on the spreadsheet. I would like to make the admission dates that are over 365 days auto update to this year. i.e. 10-23-1998 would become 10-23-2022 so I'm not looking at dates that say 1999. No formulas are associated with the admission dates, those cells are open to programming. Thank you in advance.

Weekly Monthly Notes Due2.xlsx
BCDEFGHIJKL
1AdmissionNursing Part 1Nursing Part 2Note 1Note 2Note 3Note 4Note 5Note 6Note 7Note 8
212/8/201912/8/201912/9/201912/15/201912/22/201912/29/20191/5/20201/12/20201/19/20201/26/20202/2/2020
35/20/20225/20/20225/21/20225/27/20226/3/20226/10/20226/17/20226/24/20227/1/20227/8/20227/15/2022
47/7/20227/7/20227/8/20227/14/20227/21/20227/28/20228/4/20228/11/20228/18/20228/25/20229/1/2022
53/24/20063/24/20063/25/20063/31/20064/7/20064/14/20064/21/20064/28/20065/5/20065/12/20065/19/2006
61/5/20171/5/20171/6/20171/12/20171/19/20171/26/20172/2/20172/9/20172/16/20172/23/20173/2/2017
79/7/20219/7/20219/8/20219/14/20219/21/20219/28/202110/5/202110/12/202110/19/202110/26/202111/2/2021
82/24/20222/24/20222/25/20223/3/20223/10/20223/17/20223/24/20223/31/20224/7/20224/14/20224/21/2022
911/8/201711/8/201711/9/201711/15/201711/22/201711/29/201712/6/201712/13/201712/20/201712/27/20171/3/2018
1012/1/202012/1/202012/2/202012/8/202012/15/202012/22/202012/29/20201/5/20211/12/20211/19/20211/26/2021
112/10/20222/10/20222/11/20222/17/20222/24/20223/3/20223/10/20223/17/20223/24/20223/31/20224/7/2022
125/25/20215/25/20215/26/20216/1/20216/8/20216/15/20216/22/20216/29/20217/6/20217/13/20217/20/2021
134/13/20174/13/20174/14/20174/20/20174/27/20175/4/20175/11/20175/18/20175/25/20176/1/20176/8/2017
1410/1/200910/1/200910/2/200910/8/200910/15/200910/22/200910/29/200911/5/200911/12/200911/19/200911/26/2009
1510/30/201810/30/201810/31/201811/6/201811/13/201811/20/201811/27/201812/4/201812/11/201812/18/201812/25/2018
163/5/20203/5/20203/6/20203/12/20203/19/20203/26/20204/2/20204/9/20204/16/20204/23/20204/30/2020
172/12/20132/12/20132/13/20132/19/20132/26/20133/5/20133/12/20133/19/20133/26/20134/2/20134/9/2013
182/13/20182/13/20182/14/20182/20/20182/27/20183/6/20183/13/20183/20/20183/27/20184/3/20184/10/2018
194/9/20144/9/20144/10/20144/16/20144/23/20144/30/20145/7/20145/14/20145/21/20145/28/20146/4/2014
2012/29/202112/29/202112/30/20211/5/20221/12/20221/19/20221/26/20222/2/20222/9/20222/16/20222/23/2022
2112/2/201612/2/201612/3/201612/9/201612/16/201612/23/201612/30/20161/6/20171/13/20171/20/20171/27/2017
225/19/20225/19/20225/20/20225/26/20226/2/20226/9/20226/16/20226/23/20226/30/20227/7/20227/14/2022
236/16/20226/16/20226/17/20226/23/20226/30/20227/7/20227/14/20227/21/20227/28/20228/4/20228/11/2022
241/16/20201/16/20201/17/20201/23/20201/30/20202/6/20202/13/20202/20/20202/27/20203/5/20203/12/2020
258/25/20108/25/20108/26/20109/1/20109/8/20109/15/20109/22/20109/29/201010/6/201010/13/201010/20/2010
267/19/20227/19/20227/20/20227/26/20228/2/20228/9/20228/16/20228/23/20228/30/20229/6/20229/13/2022
276/24/20226/24/20226/25/20227/1/20227/8/20227/15/20227/22/20227/29/20228/5/20228/12/20228/19/2022
288/5/20228/5/20228/6/20228/12/20228/19/20228/26/20229/2/20229/9/20229/16/20229/23/20229/30/2022
29          
30          
31          
32     
33Today + 2dThis weekToday
34ALL PAST NOTES SHOULD BE COMMENTED AS COMPLETED OR ADDRESSED
35
GTS
Cells with Conditional Formatting
CellConditionCell FormatStop If True
A28:O28,Q28:XFD28Cell Value=TODAY()textNO
A28:O28,Q28:XFD28Dates Occurringthis weektextNO
A28:O28,Q28:XFD28Cell Valuebetween TODAY() and TODAY()+2textNO
29:29Cell Value=TODAY()textNO
29:29Dates Occurringthis weektextNO
29:29Cell Valuebetween TODAY() and TODAY()+2textNO
B30:G32Cell Value=TODAY()textNO
B30:G32Dates Occurringthis weektextNO
B30:G32Cell Valuebetween TODAY() and TODAY()+2textNO
E33:J33,D33:D34Cell Value=TODAY()textNO
E33:J33,D33:D34Dates Occurringthis weektextNO
E33:J33,D33:D34Cell Valuebetween TODAY() and TODAY()+2textNO
Q1:XFD1,A37,A33:C34,K33:N33,K32:M32,A38:N1048576,C37:N37,A35:N36,L34:N34,Q2:AC27,AE2:XFD27,A1:N27,A30:A32,H30:N31,AE30:XFD1048576,Q30:AC1048576Cell Value=TODAY()textNO
Q1:XFD1,A37,A33:C34,K33:N33,K32:M32,A38:N1048576,C37:N37,A35:N36,L34:N34,Q2:AC27,AE2:XFD27,A1:N27,A30:A32,H30:N31,AE30:XFD1048576,Q30:AC1048576Dates Occurringthis weektextNO
Q1:XFD1,A37,A33:C34,K33:N33,K32:M32,A38:N1048576,C37:N37,A35:N36,L34:N34,Q2:AC27,AE2:XFD27,A1:N27,A30:A32,H30:N31,AE30:XFD1048576,Q30:AC1048576Cell Valuebetween TODAY() and TODAY()+2textNO
 

Excel Facts

Copy PDF to Excel
Select data in PDF. Paste to Microsoft Word. Copy from Word and paste to Excel.
You can a helper column after Column B to change year as below. I have changed dates to number to create uniformity among different ways of writing dates.

You check formula in C2, if that works for you.

Book1
BC
1AdmissionYear Changed
243,68944,785
344,70144,701
444,74944,749
538,80044,644
642,85644,682
744,38644,751
844,61644,616
942,95844,784
1043,84244,573
1144,83644,836
1244,34144,706
1342,83844,664
1439,82344,571
1543,40344,864
1643,95444,684
1741,61044,897
1843,14444,605
1941,88644,808
2044,55944,924
2142,41244,604
2244,70044,700
2344,60844,608
2443,84644,577
2540,41544,798
2644,76144,761
2744,73644,736
2844,68944,689
Sheet1
Cell Formulas
RangeFormula
C2:C28C2=DATE(2022,MONTH(B2),DAY(B2))


Book1
BC
1AdmissionYear Changed
28/12/198/12/22
35/20/225/20/22
47/7/227/7/22
53/24/063/24/22
65/1/175/1/22
77/9/217/9/22
82/24/222/24/22
98/11/178/11/22
101/12/201/12/22
1110/2/2210/2/22
125/25/215/25/22
134/13/174/13/22
141/10/091/10/22
1510/30/1810/30/22
165/3/205/3/22
1712/2/1312/2/22
182/13/182/13/22
199/4/149/4/22
2012/29/2112/29/22
212/12/162/12/22
225/19/225/19/22
232/16/222/16/22
241/16/201/16/22
258/25/108/25/22
267/19/227/19/22
276/24/226/24/22
285/8/225/8/22
Sheet1
Cell Formulas
RangeFormula
C2:C28C2=DATE(2022,MONTH(B2),DAY(B2))
 
Upvote 0
Solution

Forum statistics

Threads
1,223,893
Messages
6,175,239
Members
452,621
Latest member
Laura_PinksBTHFT

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