Userform has a ComboBox called StartTime and allows the user to select a time for example, 08:04. The TextBox called Mins shows a value of 00:08 which has been added from Text Box Properties, Text. I want to add StartTime to Mins and show result in EndTime ie. 08:12. I have put this code in both the StartTime and Mins Private Sub but only get a value of 00:00 in EndTime
Private Sub StartTime_Change()
Me.StartTime.Value = Format(Me.StartTime.Value, "hh:mm")
EndTime.Value = Val(StartTime.Value) + Val(Mins.Value)
Private Sub Mins_Change()
Me.Mins.Value = Format(Me.Mins.Value, "hh:mm")
EndTime.Value = Val(StartTime.Value) + Val(Mins.Value)
Thanks
Bookmarks