You mention that you got the copy/sort piece working.
Can you tell us how you are doing that now, and maybe we can see if we can help you build on that?
Also, are you opposed to a VBA solution, if we were to offer that?
And do you have any issue if we re-sort the original list alphabetically, or does it need to stay the way that it is?
A VBA solution would be perfect. It's what I have been building this on, but first time and slow learner. Realized what I needed was basically a program for a phone or address book, found a YouTube video on how to, and have been building on that as I learn. This is the Macro I'm using to copy the original list to another range and sort it alphabetically. Just haven't figured out how to break it up into groups from there.
Sub Copy_Last_Name_3()
'
' Copy_Last_Name Macro
'
Sheets("phonelist").Select
Range("BQ8:BW233").Select
Selection.Copy
Range("CA8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("CB8").Select
ActiveWorkbook.Worksheets("phonelist").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("phonelist").Sort.SortFields.Add Key:=Range( _
"CB9:CB233"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("phonelist").Sort
.SetRange Range("CB8:CG233")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("BT8").Select
End Sub
I have been able to use a search where I can get a group using the < or > sign before a letter. But I can't use both to get the groups in the middle. Here is that formula
Private Sub cmdContact_Click()
On Error GoTo errhandler:
Sheet1.Unprotect
Set DataSH = Sheet1
DataSH.Range("W8") = Me.cboSelect.Value
DataSH.Range("W9") = Me.txtSearch.Text
DataSH.Range("B8").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("phonelist!Criteria"), CopyToRange:=Range("phonelist!Extract"), Unique:=False
ListBox1.RowSource = Sheet1.Range("outdata").Address(External:=True)
Exit Sub
errhandler:
MsgBox "No Data Found. Please Try Again"
Sheet1.Protect
End Sub
I know some things aren't labeled correctly, but it what I learned from the video and I'm still trying to learn the proper syntax. Thanks for any help.