MID macro
Man, I hope someone can help me out with this one. I'm trying to isolate
part of some cells using the MID function. This works fine manually in a
cell (D14):
=MID(C14;1;FIND("/";C14;1)-1)
The value in D14 will be "Full Metal Jacket"
if C14 = "Full Metal Jacket / Fullscreen Edition"
I've tried to work this into a macro like so (so that the original value is
trimmed and overwritten):
Sub MIDTEST()
intTotalPos = 14
Range("c" & intTotalPos).Select
Do
Range("c" & intTotalPos).Select
ActiveCell = Mid(ActiveCell, 1, .Find("/", ActiveCell, 1) - 1)
Range("c" & intTotalPos).Select
Loop Until ActiveCell = ""
End Sub
It's obviously this line that screws the whole thing up:
ActiveCell = Mid(ActiveCell, 1, .Find("/", ActiveCell, 1) - 1)
I've tried messing about with it, but I'm lost. Can anyone help, please ?
(c:
Rasmus
|