Reversing names and sorting

[jonco]

I have a list of between 6 and 10 names that I regularly have to reverse
(display last name first) and sort.
They have corresponding data attached to each name that needs to be sorted
also.
For example:
First name would be in Row 44 let's say.....

Col L Col M Col N Col O Col
P Col Q Col R Col S Col T
Row Name Hours Gross Fed SS
Medicare State city Net
44 John Smith 39 457.60 81.10 13.66
7.25 6.95 4.57 365.00
45 Jane R. Doe 40 319.97 72.10 11.44
6.15 5.20 3.19 258.77
46 and so on......

Final result needs to be like this:
44 Smith, John 39 457.60 81.10
13.66 7.25 6.95 4.57 365.00
45 Doe, Jane R. 40 319.97 72.10 11.44
6.15 5.20 3.19 258.77
46 and so on......

Any and all help would be appreciated.
Jonco

[Jim Thomlinson]

Here is a function to reverse the name for you...

Public Function FormatName(ByVal InputName As String) As String
FormatName = Right(InputName, Len(InputName) - InStrRev(Trim(InputName),
" ")) & _
", " & Trim(Left(InputName, InStrRev(InputName, " ")))
End Function

You call it like this...

Sub test()
Dim x As String
x = FormatName("Dave P. Sloan")
End Sub

HTH

"jonco" wrote:

> I have a list of between 6 and 10 names that I regularly have to reverse
> (display last name first) and sort.
> They have corresponding data attached to each name that needs to be sorted
> also.
> For example:
> First name would be in Row 44 let's say.....
>
> Col L Col M Col N Col O Col
> P Col Q Col R Col S Col T
> Row Name Hours Gross Fed SS
> Medicare State city Net
> 44 John Smith 39 457.60 81.10 13.66
> 7.25 6.95 4.57 365.00
> 45 Jane R. Doe 40 319.97 72.10 11.44
> 6.15 5.20 3.19 258.77
> 46 and so on......
>
> Final result needs to be like this:
> 44 Smith, John 39 457.60 81.10
> 13.66 7.25 6.95 4.57 365.00
> 45 Doe, Jane R. 40 319.97 72.10 11.44
> 6.15 5.20 3.19 258.77
> 46 and so on......
>
> Any and all help would be appreciated.
> Jonco
>
>
>