VB NEEDED TO SHIFT INITIALS FROM BEGINING OF THE NAME TO END OF THE NAME  
Author Message
c70070540NO_SPAM





PostPosted: Thu Jul 19 12:54:01 CDT 2007 Top

Excel Programming >> 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.

Excel510  
 
 
James_Thomlinson





PostPosted: Thu Jul 19 12:54:01 CDT 2007 Top

Excel Programming >> VB NEEDED TO SHIFT INITIALS FROM BEGINING OF THE NAME TO END OF THE NAME Please check your previous posts. This has already been asnwered...
--
HTH...

Jim Thomlinson




> 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.
>
>
 
 
barnabel





PostPosted: Thu Jul 19 14:24:02 CDT 2007 Top

Excel Programming >> VB NEEDED TO SHIFT INITIALS FROM BEGINING OF THE NAME TO END OF THE NAME Google Groups is now only 6-8 hours behind so the multiple posts should start
slowing down.



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

 
 
Mike





PostPosted: Thu Jul 19 16:26:47 CDT 2007 Top

Excel Programming >> 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




> 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.
>


 
 
CAPTGNVR





PostPosted: Fri Jul 20 10:18:02 CDT 2007 Top

Excel Programming >> VB NEEDED TO SHIFT INITIALS FROM BEGINING OF THE NAME TO END OF THE NAME 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.





> 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
>
>


> > 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.
> >
>
>
>