How do get rid of characters on the right hand side of a cell??

[dkflameboy]

Help, I have many, many cells that have a date and time in them like this

02.08.2018 - 10am

I want to remove the - 10am section

How do I do this please?

 

[My Aswer Is This]

Give us a few more examples.

Would the last character you want always be 8

And where are the dates?

Are they always in column 1 ?

 

[dkflameboy]

Yes, the last character will always be 8, in the infinite wisdom of some, they have entered the date as a free text field either using the full 2018 or 18.

They are all in the format of either 02.08.2018 or 02.08.18 (although the day and month vary on each cell, and there are 250 plus of them)

They are all in column I first one starting at I2.

 

[WaterGypsy]

It depends on why that is what you are seeing ..... it's possible that the cells are formatted to appear like that, in which case simply change the formatting.

If the cells are textual and contain the time you might want to look at how they are generated and alter that.

If it is data that arrives in that format then you could fix it with a macro that does something like:

range("a1").value = left(range("a1").value, 10)

obviously the range "a1" needs to be different

 

[WaterGypsy]

Ah this might be better.

Dim iI As Integer
For Each c In Range("i2:i999")
If c.Value <> "" Then
    iI = InStr(1, c.Value, "-", 1)
    c.Value = Left(c.Value, iI - 2)
End If
Next c