Thread: Automatically update user-inputted date after specified time range
View Single Post
 
Old 12-03-2019, 09:49 AM
NoSparks NoSparks is offline Windows 7 64bit Office 2010 64bit
Excel Hobbyist
  
Join Date: Nov 2013
Location: British Columbia, Canada
Posts: 831
NoSparks is just really niceNoSparks is just really niceNoSparks is just really niceNoSparks is just really niceNoSparks is just really nice
Default
Try changing
Code:
                cel = DateAdd("yyyy", 1, cel)
to
Code:
                cel = DateSerial(Year(Date), Month(cel.Value), Day(cel.Value))
Reply With Quote