VB NEEDED TO SHIFT INITIALS FROM BEGINING OF THE NAME TO END OF THE NAME
 

DAER ALL
I have 3 thou odd names in excel97. The names are entered like
A.S.R.CHARLIE; P.K.WHITE; M.PETER and so on.

Can u pls sugest VB code so that I can run through each cell and take
these initials and attach it at the end of the name after
giving a space or two like
CHARLIE A.S.R; PETER M. and so on.
Pls help. This is posted again as my first one did not get posted.

VB NEEDED TO SHIFT INITIALS FROM BEGINING OF THE NAME TO END OF TH
 

Please check your previous posts. This has already been asnwered...
--
HTH...

Jim Thomlinson


"CAPTGNVR" wrote:

DAER ALL
I have 3 thou odd names in excel97. The names are entered like
A.S.R.CHARLIE; P.K.WHITE; M.PETER and so on.

Can u pls sugest VB code so that I can run through each cell and take
these initials and attach it at the end of the name after
giving a space or two like
CHARLIE A.S.R; PETER M. and so on.
Pls help. This is posted again as my first one did not get posted.

VB NEEDED TO SHIFT INITIALS FROM BEGINING OF THE NAME TO END O
 

Google Groups is now only 6-8 hours behind so the multiple posts should start
slowing down.

"Jim Thomlinson" wrote:

Please check your previous posts. This has already been asnwered...
--
HTH...

VB NEEDED TO SHIFT INITIALS FROM BEGINING OF THE NAME TO END OF THE NAME
 

For "Pete's sake" this guy needs prog. help not a history of post or
post/post postings statistics.....

Hope this helps......or puts you on the right path mate.


Put names in column A

Sub Name_IT_Back()

Cell = Cells(Rows.Count, 1).End(xlUp).Address
While Range(Cell).Row < 1
Posi = Trim(Len(Range(Cell).Value) - InStrRev(Range(Cell).Value, "."))
Range(Cell).Offset(0, 1).Value = Right(Range(Cell).Value, Posi) & " " & _
Left(Range(Cell).Value, Len(Range(Cell).Value) - Posi)
Cell = Range(Cell).Offset(-1, 0).Address
Wend
End Sub


"CAPTGNVR" wrote in message
ps.com...
DAER ALL
I have 3 thou odd names in excel97. The names are entered like
A.S.R.CHARLIE; P.K.WHITE; M.PETER and so on.

Can u pls sugest VB code so that I can run through each cell and take
these initials and attach it at the end of the name after
giving a space or two like
CHARLIE A.S.R; PETER M. and so on.
Pls help. This is posted again as my first one did not get posted.

VB NEEDED TO SHIFT INITIALS FROM BEGINING OF THE NAME TO END O
 

D/Mike
lol, You really very understanding. The problem was I was checking on
google and it never showed up till Peter Richardson sent me an email to see
in msoffice directly.

Well I tried your code but gives compile error for """"InStrRev"""".
Pls note I am using excel 97.

And also have two names like P.V.R.ALEX MATHEWS AND SO ON.



"Mike" wrote:

For "Pete's sake" this guy needs prog. help not a history of post or
post/post postings statistics.....

Hope this helps......or puts you on the right path mate.


Put names in column A

Sub Name_IT_Back()

Cell = Cells(Rows.Count, 1).End(xlUp).Address
While Range(Cell).Row < 1
Posi = Trim(Len(Range(Cell).Value) - InStrRev(Range(Cell).Value, "."))
Range(Cell).Offset(0, 1).Value = Right(Range(Cell).Value, Posi) & " " & _
Left(Range(Cell).Value, Len(Range(Cell).Value) - Posi)
Cell = Range(Cell).Offset(-1, 0).Address
Wend
End Sub


"CAPTGNVR" wrote in message
ps.com...
DAER ALL
I have 3 thou odd names in excel97. The names are entered like
A.S.R.CHARLIE; P.K.WHITE; M.PETER and so on.

Can u pls sugest VB code so that I can run through each cell and take
these initials and attach it at the end of the name after
giving a space or two like
CHARLIE A.S.R; PETER M. and so on.
Pls help. This is posted again as my first one did not get posted.