View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
ADG ADG is offline
external usenet poster
 
Posts: 76
Default Split out info in a Cell

Hi
The below puts Qualifications in A3

Dim x, y As Long
x = InStr(1, Worksheets("Sheet1").Cells(1, 1).Value,
Worksheets("Sheet1").Cells(2, 1).Value)
y = Len(Worksheets("Sheet1").Cells(2, 1).Value)
Worksheets("Sheet1").Cells(3, 1).Value =
Right$(Worksheets("Sheet1").Cells(1, 1).Value,
Len(Worksheets("Sheet1").Cells(1, 1).Value) - x - y)

HTHs
--
Tony Green


"Stuartf" wrote:


Hi,

I Have

A1=Mr J A Tatman EngTech MIET
A2=Tatman

I need to split out the Qualification Affixes from the name into its
own cell, I need to use the surname to do this(Unique to every row) as
the amount of affixes isn't the same I cant just split out each word to
a cell.

So I need to Use the surname as a pointer to difine where i split the
cell

can any1 help??

thanks


--
Stuartf
------------------------------------------------------------------------
Stuartf's Profile: http://www.excelforum.com/member.php...o&userid=34535
View this thread: http://www.excelforum.com/showthread...hreadid=567980