Cell cropping with a Macro or VB

I need to be able via a macro to copy only a portion of a cells contents to a
different part of the sheet. What I have is like below:-

"CLOBMIDDLETON PBL" or "CLOBDIDCOT PBL"

I need to get ride of the "PBL" part and as you can see the first part of
the cell varies in length. Is there any way to tell excel to copy till the
space?

Thanks............. Alastair.

couldn't you just use edit>replace>PBL>""

--
Don Guillett
SalesAid Software
dguillett1@austin.rr.com
"Alastair79" <Alastair79@discussions.microsoft.com> wrote in message
news:1EB95589-B229-4C82-842A-64F707BAF590@microsoft.com...
>I need to be able via a macro to copy only a portion of a cells contents to
>a
> different part of the sheet. What I have is like below:-
>
> "CLOBMIDDLETON PBL" or "CLOBDIDCOT PBL"
>
> I need to get ride of the "PBL" part and as you can see the first part of
> the cell varies in length. Is there any way to tell excel to copy till the
> space?
>
> Thanks............. Alastair.

iloc = Instr(1,activecell," ",vbTextcompare)
s = left(activecell,iloc-1)
activecell.offset(0,5).Value = s

if the part to remove is always 3 characters and a space

s = left(activecell,len(activecell)-4)
activecell.offset(0,5).value = s

--
Regards,
Tom Ogilvy


"Alastair79" wrote:

> I need to be able via a macro to copy only a portion of a cells contents to a
> different part of the sheet. What I have is like below:-
>
> "CLOBMIDDLETON PBL" or "CLOBDIDCOT PBL"
>
> I need to get ride of the "PBL" part and as you can see the first part of
> the cell varies in length. Is there any way to tell excel to copy till the
> space?
>
> Thanks............. Alastair.

If PBL is always at the end of the string and preceded by a blank:

in B1 put:

=LEFT(A1,LEN(A1)-4)


and copy down.

You can then copy (Col B)/pastespecial/values into col A.

"Alastair79" wrote:

> I need to be able via a macro to copy only a portion of a cells contents to a
> different part of the sheet. What I have is like below:-
>
> "CLOBMIDDLETON PBL" or "CLOBDIDCOT PBL"
>
> I need to get ride of the "PBL" part and as you can see the first part of
> the cell varies in length. Is there any way to tell excel to copy till the
> space?
>
> Thanks............. Alastair.

Hello
No real need for a macro there but anyway:
Either
Left(Range("A1").Value, Len(Range("A1").Value) - 4)
Or
MID(Range("A1").Value),1,FIND("" "",Range("A1").Value,1)-1)

will return the text without the " PBL" part.

HTH
Cordially
Pascal


"Alastair79" <Alastair79@discussions.microsoft.com> a écrit dans le message
de news: 1EB95589-B229-4C82-842A-64F707BAF590@microsoft.com...
>I need to be able via a macro to copy only a portion of a cells contents to
>a
> different part of the sheet. What I have is like below:-
>
> "CLOBMIDDLETON PBL" or "CLOBDIDCOT PBL"
>
> I need to get ride of the "PBL" part and as you can see the first part of
> the cell varies in length. Is there any way to tell excel to copy till the
> space?
>
> Thanks............. Alastair.