sort names based on alphabet doesn't work

[leap out]

hi
I have this macro doesn't work in cells a1 is dropdown I would sort based alphabet for instance if the list contains asd1,asd2,asd3 bbd,bdd1,bbb2 ,cdd,ccd,ccc
so should the list like this
asd1
asd2
asd3
bbb2
bbd1
bdd1
ccc
ccd
cdd
another thing I would when write in cells a1 manually for instance asd1 then show list
asd1
asd2
asd3

Sub Sort_B()
    With Sheets("sort").UsedRange
        .Sort Key1:=.Range("a1"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    End With
End Sub

note: if is possible do the macro without button automatically

 

[leap out]

@Dossfm0q the problem still continues as in post#11

 

[leap out]

@Akuini your file is very great , may you adjust making the combobox doesn't show any item is repeated ,please?

 

[Akuini]

may you adjust making the combobox doesn't show any item is repeated ,please?

Try this one:

deCombobox - sheet,1 cell, searchable,filter,sort,unique - example 1

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

The code;

Option Explicit
'=============== YOU MAY NEED TO ADJUST THE CODE IN THIS PART: ===================================

'sheet's name where the list (for combobox) is located. [in the sample: sheet "deList"]
Private Const sList As String = "deList"

'cell where the list start [in the sample: cell A2 in sheet "deList" ]
Private Const sCell As String = "A2"

'the linked cell (cell that link to the combobox)
Private Const xCell As String = "B3"

Private d As Object
Private c As Range

Private Sub ComboBox1_Change()
Dim z, ary

With ComboBox1
    If .Value <> "" And IsError(Application.Match(.Value, d.keys, 0)) Then
            ary = Application.Transpose(Application.Transpose(d.keys))
                For Each z In Split(.Value, " ")
                    ary = Filter(ary, z, True, vbTextCompare)
                Next
           
           .List = ary
           .DropDown
    
    ElseIf Not IsError(Application.Match(.Value, d.keys, 0)) Then
        Range(xCell) = .Value
    
    Else
        Range(xCell) = .Value
        .List = d.keys
    End If
End With
End Sub


Private Sub ComboBox1_GotFocus()
Dim va, x
With Sheets(sList)
    Set c = .Range(sCell, .Cells(.Rows.Count, .Range(sCell).Column).End(xlUp))
    c.Sort Key1:=.Range(sCell), Order1:=xlAscending, Header:=xlNo 'sort the range to sort the list
    va = c

    Set d = CreateObject("scripting.dictionary")
    d.CompareMode = vbTextCompare
    
    'create unique list
    For Each x In va
        d(x) = Empty
    Next
    
End With

    ComboBox1.MatchEntry = fmMatchEntryNone
    ComboBox1.Value = ""
    'ComboBox1.ListRows = 10 'to show how many item
End Sub

 

[leap out]

@Akuini thanks very much for your file and assistance

 

[Akuini]

You're welcome, glad to help, & thanks for the feedback.

 

[Dossfm0q]

as a Reference and lesson learn this is because of version level


I tested it with 2013 and found
.Sort.SortFields.Add2 Key:=KyRng
to be
.Sort.SortFields.Add Key:=KyRng

 

[leap out]

@Dossfm0q thanks for your effort ,now there is no error , but the dropdown in column b is empty there is no items

 

[Dossfm0q]

sort_names_based_on_alphabet

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[leap out]

@Dossfm0q many thanks for your file and I appreciate your efforts to solve my post