Deleting Portions of Data within a Cell

[Guzzlr]

Hello All...

I have an example, which I can't find any example of VBA to get a solution.
If I have a cell contents of: ACE-1D / F-R3. I'm trying to find code that will take away the "/F-R3" so just the "ACE-1D" remains.
This is one example, the next cell may have ACI-5 / 19...and so on.
So basically, I wish to keep everything to the left of the forward slash, and do away with everything else.
Thanks for the help

 

[Guzzlr]

Try

If InStr(1, Cl.Value, "TCTO ", 1) > 0 Then

This is really good stuff...and it's working nicely.
Thank you for the help

 

[Fluff]

You're welcome

 

[Guzzlr]

For Each cl In Range("C7", Range("C" & Rows.Count).End(xlUp))
   cl.Value = Split(cl.Value, " /")(0)
Next cl

So getting back to this topic, the above is working well. However, every once-in-a-while, there is not a space in fromt of the "/".
So I'm messing around with an ElseIf statement:

For Each cl In Range("E7", Range("E" & Rows.Count).End(xlUp))
    ElseIf cl.Value = "/" Then
    cl.Value = " /"
        Else InStr(1, cl.Value, " /", 0) > 0 Then
        cl.Value = Split(cl.Value, " /")(0)
    End If
Next cl

My thought is I'd search each cl, and if there is not a space in front of the "/", then change it for a space, and continue with the code.
It's not working...
So where am I going wrong on an ElseIf?
Thanks for the help

 

[Fluff]

Try

For Each Cl In Range("E7", Range("E" & Rows.Count).End(xlUp))
   Cl.Value = Trim(Split(Cl.Value, "/")(0))
Next Cl

 

[Guzzlr]

Try

For Each Cl In Range("E7", Range("E" & Rows.Count).End(xlUp))
   Cl.Value = Trim(Split(Cl.Value, "/")(0))
Next Cl

Oh...your are suggesting two loops, one if the cl.value has a space, and another loop for if the cl.value does not have a space...correct?

 

[Fluff]

No, just that one loop.
It will split on the / & then uses trim to remove any trailing spaces.

 

[Guzzlr]

Try

For Each Cl In Range("E7", Range("E" & Rows.Count).End(xlUp))
   Cl.Value = Trim(Split(Cl.Value, "/")(0))
Next Cl

OK, this is working nicely, thank you for your time

 

[Fluff]

You're welcome