Reversing a concatenation ...

[adambc]

I have a UserForm with two TextBoxes (txtReportedTimeHours & txtReportedTimeMins) which are written to a single column (Reported Time) when I Save the UserForm using ...

Cells(m + 1),10.value = txtReportedTimeHours & ":" & txtReportedTimeMins

... where the m in Cells(m + 1, 10) is the next row - THIS ALL WORKS FINE

I now want to read Reported Time back into the TextBoxes ie separating out HH:MM into HH & MM but can't work out how to read left of : into txtReportedTimeHours and righ of : into txtReportedTimeMins ...

Can anyone help please?

Thanks ...

 

[Joe4]

Here is a little example to show you how to do that:

Sub Test()

    Dim str As String
    Dim hr As String
    Dim min As String
    
    str = "10:43"
    
    hr = Left(str, InStr(str, ":") - 1)
    min = Mid(str, InStr(str, ":") + 1)
    
    MsgBox "Hour = " & hr & vbCrLf & "Min = " & min
    
End Sub

 

[Peter_SSs]

.. another way

Sub Test2()
    Dim str As String, hr As String, min As String
    
    str = "10:43"
    hr = Split(str, ":")(0)
    min = Split(str, ":")(1)
    MsgBox "Hour = " & hr & vbCrLf & "Min = " & min
End Sub

 

[adambc]

Unfortunately none of the suggestions worked, but I've changed the way "hh:mm" is created by using a single SpinButton writing to a single TextBox using ...

TextBox1 = Format(SpinButton1 / 24 / 60, "hh:mm")

... and then saving the result to my underlying table ...

However, when I read the record back in, TextBox1 is populated correctly, but when I use the SpinButton, it defaults to its Value as the start point rather than the value in TextBox1 ...

I've tried SpinButton1 = Textbox1 (with and without .Value) but I get a mismatch 13 error.

Hope that makes sense?

Any ideas?

Thanks ...

 

[adambc]

Unfortunately none of the suggestions worked, but I've changed the way "hh:mm" is created by using a single SpinButton writing to a single TextBox using ...

TextBox1 = Format(SpinButton1 / 24 / 60, "hh:mm")

... and then saving the result to my underlying table ...

However, when I read the record back in, TextBox1 is populated correctly, but when I use the SpinButton, it defaults to its Value as the start point rather than the value in TextBox1 ...

I've tried SpinButton1 = Textbox1 (with and without .Value) but I get a mismatch 13 error.

Hope that makes sense?

Any ideas?

Thanks ...

IGNORE ME - had the SpinButton property values set wrong - all good now!!!

 

[Peter_SSs]

all good now!!!

Good news. Glad you got it sorted.