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

 

[Fluff]

It needs to be like this

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

 

[Guzzlr]

It needs to be like this

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

Oh...I thought I had to define what the last row was.

 

[Fluff]

Nope, that's done here

For Each cl In Range("C7", [COLOR=#ff0000]Range("C" & Rows.Count).End(xlUp)[/COLOR])

 

[Guzzlr]

Nope, that's done here

For Each cl In Range("C7", [COLOR=#ff0000]Range("C" & Rows.Count).End(xlUp)[/COLOR])

Ohh yea...

So I'm trying the same type of code:

For Each cl In Range("D7", Range("D" & Rows.Count).End(xlUp))
   cl.Value = Split(cl.Value, "TCTO ")(0)
Next cl

It is finding "TCTO ". However, it's deleting the entire cell.
For example: TCTO 1695-2(G) is cleared so the cell is blank, instead of leaving 1695-2(G)?

I tried messing around with the (0) but that brought on an error. So, I'm not seeing the difference here from your previous code that found the " /"

 

[Fluff]

In the first request you wanted everything BEFORE the split value, now you want everything AFTER. That's why it's returning nothing.
Change the (0) to (1)

 

[Guzzlr]

In the first request you wanted everything BEFORE the split value, now you want everything AFTER. That's why it's returning nothing.
Change the (0) to (1)

I had tried this, and it gives me an error "Subscript out of range"
Thanks for the help

 

[Fluff]

Do you have any cells in the range that do not contain "TCTO "?

 

[Guzzlr]

Do you have any cells in the range that do not contain "TCTO "?

Yes, not all cells have TCTO, just the majority

 

[Guzzlr]

For Each cl In Range("D7", Range("D" & Rows.Count).End(xlUp))
If cl.Value = "TCTO " Then
   cl.Value = Split(cl.Value, "TCTO ")(1)
   End If
Next cl

I tried putting an IF statement in, but it didn't work.

 

[Fluff]

Try

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