|
|
VB NEEDED TO SHIFT INITIALS FROM BEGINING OF THE NAME TO END OF THE NAME |
|
Author |
Message |
c70070540NO_SPAM
|
Posted: 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
|
Posted: 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
|
Posted: 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
|
Posted: 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
|
Posted: 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.
> >
>
>
>
|
|
|
|
|
|
|