Textbox Exit Event Cant not be trigger

Hi,

I have three text boxes on my worksheet.
They are for Start Time, End Time and Time Half Way between the start and end time.
I want the third text box to calculate the half time when both start time and end time are entered.

I tried the code below, but it won't tiger. Please help.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim startTime, endTime As Double
    
    startTime = TimeValue(TextBox1.Value)
    endTime = TimeValue(TextBox3.Value)
    
    
    TextBox4.Value = Left((endTime - startTime), 4)
    
End Sub

Thank you very much,

Hi Leith Ross,

Thank you for your help.
It only works when I click "run" in VBA.
It doesn't run automatically.
Am I missing something?
Also, I can not tab through or use enter to go to the next text box for some reason...

Thank you very much

If the end time is in textbox3, then use TextBox3_AfterUpdate event.

It tested this with good results

Private Sub TextBox2_AfterUpdate()
    
    startTime = TimeValue(CDate(TextBox1.Value))
    endTime = TimeValue(CDate(TextBox2.Value))
    
    TextBox3.Value = Format(CDate(startTime + (endTime - startTime) / 2), "hh:mm:ss")
    
End Sub

TextBox1 has the StartTime
TextBox2 has the EndTime
TextBox3 has the MiddleTime

Hi Dennis,

It only works when I click "run" in VBA.
It doesn't run automatically.
Am I missing something?


Thank you very much

Anyone? Help?