Add the time value of two comboboxes

[Stratfordoaks]

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

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Thanks

[Norie]

Try this.

Please Login or Register  to view this content.

Oh, and put the code in the Exit event of Mins.

[Stratfordoaks]

Sorry Norie I changed the code, ran it, but debug came back to the code.

[Norie]

Where did you put the code?

You shouldn't put it in the change event, that's triggered every time you type in the textbox.

[Stratfordoaks]

Norrie could you tell me how to use the 'Exit' event please

[Norie]

Here's the exit event for Mins.

Please Login or Register  to view this content.

[Stratfordoaks]

I have added the Exit Sub and removed the code from the Mins_Change() Sub. But it debugs to the StartTime code I have added

[Norie]

Can you upload an example workbook?

Click on GO ADVANCED and use the paperclip icon to open the upload window.

[Stratfordoaks]

Sorry for the delay Norie. I have attached my workbook. It is easier to tell you exactly what I am trying to achieve as you may think that there is a simlper solution. I am trying to get an EndTime value to populate the EndTime Text Box based upon enties in PlayingIn, LastYear, StartTime and Times Allocated, StartTime and Mins.

EndTime = TimesAllocated x 8minutes +StartTime + 8 minutes

(This is how I get the correct value using a formula in the spreadsheet that is populated by the form).