Reversing names and sorting
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 |
Reversing names and sorting
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 |
All times are GMT +1. The time now is 11:14 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com