Help a Newby Please!!

[Frenchie]

Hi,

This way be very simple, but I need a code that will delete the part
of a text in a cell. For example I have a cell that contains the
following "ZZ112: *:XYZ " I want to get ride of the anything before
the star and any spaces after the Z. I remember something about
cutting up strings back from my serious VB days, but I can't seem to
remember how to do it.

Thanks a lot

 

[Don Guillett]

This should do it
Sub deletetext()
For Each c In Selection
c.Value = Trim(Right(c, Len(c) - InStr(c, "*")))
Next
End Sub

 

[Frenchie]

Thanks

This should do it
Sub deletetext()
For Each c In Selection
c.Value = Trim(Right(c, Len(c) - InStr(c, "*")))
Next
End Sub

 

[Frenchie]

The command you wrote is way over my head even with the VBA help
Do you mind explaining what each part actualy does please so that I am
not just dumbly using someone elses code but understanding what I am
doing.
Many Thanks

 

[Don Guillett]

A look in VBA help for each of the segments would help. An easy way to do
this is to highlight the word such as instr and then touch the f1 key. Instr
looks for where in the string the value occurs and gives a number. len gives
the entire length of the string. and trim trims it. c could have been x or
mycell or joesbar or whatever you desired.

 

[Frenchie]

Thanks alot

A look in VBA help for each of the segments would help. An easy way to do
this is to highlight the word such as instr and then touch the f1 key. Instr
looks for where in the string the value occurs and gives a number. len gives
the entire length of the string. and trim trims it. c could have been x or
mycell or joesbar or whatever you desired.