Defragment a field that contains time data to morning and evening time

[aabonargis]

Hi
I have a spreadsheet in Excel that contains a C field for time-merged data
AM and PM in cell
I need to separate and insert the first time am in column D
And insert the last time PM in column E
using VBA Excel
thank you
i attach excel For Example

[Pepe Le Mokko]

Title more descriptive

[aabonargis]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however the thread title does not really convey what your request is about.

Please take a moment to amend your thread title. Make sure that the title properly explains your request. Your title should be explicit and not be generic (this includes function names used without an indication of what you are trying to achieve).

Please see Forum Rule #1 about proper thread titles and adjust accordingly. To edit the thread title, open the original post to edit and then click on Go Advanced (bottom right) to access the area where you can edit your title.

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

I do not know what is the appropriate name for my topic
Can you help me with the right name?

[Roel Jongman]

___________________________

I do not think you need VBA for this.
With a LEFT() and RIGHT() function you can also get the first and last part of a merged string.

please look at attached file for the formulas to use.

[aabonargis]

I do not think you need VBA for this.
With a LEFT() and RIGHT() function you can also get the first and last part of a merged string.

This is not the right solution
The appropriate solution is to display the AM time only in column D
The PM time is displayed only in column E
thanks

[aabonargis]

For UP

[Olly]

A small UDF should work:

Function ChooseTime( _
    ByVal TimeList As String, _
    ByVal Period As String, _
    Optional ByVal Delimiter As String)
    
    Dim sList() As String
    Dim s As Variant
    Dim t As Date
    Dim ts As Date
    
    If Delimiter = "" Then Delimiter = " "
    sList = Split(TimeList, Delimiter)
    For Each s In sList
        ts = TimeValue(s)
        Select Case Period
            Case "AM"
                If ts < TimeSerial(12, 0, 0) And (ts < t Or t = 0) Then t = ts
            Case "PM"
                If ts >= TimeSerial(12, 0, 0) And (ts > t Or t = 0) Then t = ts
        End Select
    Next s
    ChooseTime = IIf(t > 0, t, "")
End Function

In D2, enter:

=ChooseTime($C2,"AM"," ")

In E2, enter:

=ChooseTime($C2,"PM"," ")

Copy down.

[aabonargis]

thank you very match
thank you for help me

[Olly]

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. You may also 'Add Reputation' to those who helped. Thanks.