Deleting text from a range of cells

[cavesy]

I am trying to delete some text from end of a range of cells. Sounds easy but brain fade has set in!
This is the contents of some of the cells

xyzabc/1.0.0.1/xyzabc/xyzabc.osd
abc/abc/2.0.0.12/abc/abc.osd
defghijk/1.2.11.21/defghijk/defghijk.osd

I want to delete the text after the last number. ie the last /*/*.osd, thus leaving

xyzabc/1.0.0.1
abc/abc/2.0.0.12
defghijk/1.2.11.21

I've tried using Find & Replace but can't find the key to doing it this way. Can't find any of the functions that may help me so I'm a bit stumped.

Any help would be appreciated
Thanks
Cavesy

 

[zilpher]

I think this does what you want, don't like the looping, there will be a better way, but hey, it works! Please tell me if it doesn't work.

I refrained from using InStrRev as I don't know what excel version you are using.

*************
Sub RemoveNumerics()
Dim rng As Range
Dim i As Integer

If TypeName(Selection) <> "Range" Then Exit Sub

For Each rng In Selection
Do While Not i = Len(rng.Value)
If IsNumeric(Mid(rng.Value, Len(rng.Value) - i, 1)) Then
rng.Value = Left(rng.Value, Len(rng.Value) - i)
Exit Do
Else
i = i + 1
End If
Loop
Next

End Sub
*************

Z

btw you'll need to select the cells you want to modify

 

[Cbrine]

A formula that will do this is

=LEFT(A2,FIND("/",RIGHT(A2,LEN(A2)-FIND("/",A2)))+FIND("/",A2)-1)

This assumes your data is A2, if not you will need to update all the A2 references.