Reversing names and sorting

J

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
 
J

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top