Concatenate option button with combobox values

[humboldtguy]

hi....i have the following code...

With WS
    .Cells(lRow, 5).Value = Me.Clients.Value
    .Cells(lRow, 1).Value = Me.LRHMonth.Value
    .Cells(lRow, 2).Value = Me.TIHOUR.Value & Me.TIMIN.Value
    .Cells(lRow, 3).Value = Me.TOHOUR.Value & Me.TOMIN.Value
    .Cells(lRow, 4).Value = Me.eventdetails.Value
        
    If AMSTARTOptionButton Then
            .Cells(lRow, 7).Value = "AM"
    ElseIf PMSTARTOptionButton Then
            .Cells(lRow, 7).Value = "PM"
    End If
    
    If AMENDOptionButton Then
            .Cells(lRow, 9).Value = "AM"
    ElseIf PMENDOptionButton Then
            .Cells(lRow, 9).Value = "PM"
    End If

End With

It works fine....however i would to concatenate this

.Cells(lRow, 2).Value = Me.TIHOUR.Value & Me.TIMIN.Value

with this

   If AMSTARTOptionButton Then
            .Cells(lRow, 7).Value = "AM"
    ElseIf PMSTARTOptionButton Then
            .Cells(lRow, 7).Value = "PM"

into the same cell....but I don't know how....can someone show me? Thanks in advance...you guys always have the answers

[Wizz]

Hi Humboldtguy
Just concatenate both of them at the end !

With WS
    .Cells(lRow, 5).Value = Me.Clients.Value
    .Cells(lRow, 1).Value = Me.LRHMonth.Value
    .Cells(lRow, 2).Value = Me.TIHOUR.Value & Me.TIMIN.Value
    .Cells(lRow, 2).Value = Me.TIHOUR.Value & ":" & Me.TIMIN.Value

    .Cells(lRow, 3).Value = Me.TOHOUR.Value & Me.TOMIN.Value
    .Cells(lRow, 4).Value = Me.eventdetails.Value
        
    If AMSTARTOptionButton Then
            .Cells(lRow, 7).Value = "AM"
    ElseIf PMSTARTOptionButton Then
            .Cells(lRow, 7).Value = "PM"
    End If
    
    If AMENDOptionButton Then
            .Cells(lRow, 9).Value = "AM"
    ElseIf PMENDOptionButton Then
            .Cells(lRow, 9).Value = "PM"
    End If

   'Add this line
   .Cells(lRow, 2).Value = .Cells(lRow, 2).Value & " " & .Cells(lRow, 9).Value 

End With

[humboldtguy]

Hi Wizz, thanks for the response....this opens up a whole new problem for me unfortunately.....

The thing that I am doing actually is combining an hour selection combobox, a minute selection combobox, and AM or PM from option buttons. After these 3 things are combined, the formatting ends up giving me a number like 0.33333 instead of say 7:00 AM. Is there any way to make this work without resorting to military time?

[Wizz]

For sure. There are 2 options.

1) Go to column "B" and change the cell format to Time.
2) use the 'TimeValue' code. Press F1 to get the full info.

Hope this does the trick!

[humboldtguy]

hi Wizz....i read the help on timevalue, but I really don't know how to use it....as for the cell formatting, it is already formatted as time.

[Wizz]

Can you upload the workbook (or a dummy)? So I can help you better !