Remove part of string

Can you explain in plain English what you are trying to do and exactly how your data are set out?

I am trying to remove anything after the "/" in a string, then replace that string with another string, which will be hard-coded.
So, if original data is:
123/567
and hard coded in the code is that 123 should be replaced by "John".
the above line should become John.

This helps, but what exactly does the >1 mean?

Originally Posted by VBA Noob

See if this gives you any ideas

Please Login or Register  to view this content.

VBA Noob

for testing I am assuming your range is B1:b10, then the code is

Private Sub CommandButton1_Click()
For Each ce In Range("b1:b10")
If InStr(ce.Value, "/") <> 0 Then
Select Case Left(ce.Value, InStr(ce.Value, "/") - 1)
Case "123"
ce.Value = "john"
Case "234"
ce.Value = "smith"
Case "1234"
ce.Value = "ashok"
End Select
End If
Next
End Sub

I have hardcoded 123>john, 234>smith,1234>ashok. you can add as many and change as many as you want.

A V Veerkar

Thank you A V Veerkar, that is exactly what I wanted.

Originally Posted by avveerkar

for testing I am assuming your range is B1:b10, then the code is



I have hardcoded 123>john, 234>smith,1234>ashok. you can add as many and change as many as you want.

A V Veerkar