Private Sub Calendar1_Click() ActiveCell.NumberFormat = "m/d/yyyy" tbDateEnding.Value = Calendar1.Value Sheets("History Detail").Range("DateEndingInput").Value = Calendar1.Value End Sub
Private Sub tbDateEnding_Change() DaysAdjust.Value = Worksheets("Company Data").Range("LeadTimeDaysAdjustment").Value ActiveCell.NumberFormat = "m/d/yyyy" tbDateEnding.Value = (tbDateEnding.Value + DaysAdjust.Value) End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.