Autocomplete in Combobox for Mac

OldGuy52

New Member
Joined
Apr 27, 2017
Messages
2
I have a userform combobox that draws its list from a column, then eliminates the duplicates, then alphabetizes the list. I am writing the code in the Office 2013 for windows version of Excel. The application is being used on a Mac, Excel 2011. Everything works great, except when you begin typing the name in the combobox, it only brings up the first character, and then starts typing the rest of the word beginning at the 2nd character. In other words, the autocomplete feature does not work like it does in windows. I'm looking for some help (code examples) to force the combobox to accept multiple character autocomplete.
 

Excel Facts

Which came first: VisiCalc or Lotus 1-2-3?
Dan Bricklin and Bob Frankston debuted VisiCalc in 1979 as a Visible Calculator. Lotus 1-2-3 debuted in the early 1980's, from Mitch Kapor.
Here is the code I have so far. All of this works both in Windows and OS X, but on the Mac I cannot autocomplete as I type.

Code:
Dim MyRow As Long
MyRow = Sheets("Ledger").Range("A5:A62000").End(xlDown).Row

                                     'COMBOBOXT1
Dim rngItems As Range
Dim rngAccts As Range
' Get initial list for ComboboxT1
    Set rngItems = Sheets("Ledger").Range("C6:C" & MyRow)
    ComboBoxT1.List = WorksheetFunction.Transpose(Range(rngItems.Address))
Call RemoveDuplicates(1)
Call SortComboBoxT1(1)

Public Sub RemoveDuplicates(x)
'Remove Duplicates
Dim i As Long
Dim j As Long
i = 0
With ComboBoxT1
    For i = 0 To .ListCount + 1
        For j = .ListCount - 1 To (i + 1) Step -1
            If .List(j) = .List(i) Then
                .RemoveItem j
            End If
        Next
    Next
End With
End Sub

Public Sub RemoveDuplicates4(x)
'Remove Duplicates
Dim i As Long
Dim j As Long
i = 0
With ComboBoxT4
    For i = 0 To .ListCount + 1
        For j = .ListCount - 1 To (i + 1) Step -1
            If .List(j) = .List(i) Then
                .RemoveItem j
            End If
        Next
    Next
End With
End Sub
 
Upvote 0

Forum statistics

Threads
1,223,886
Messages
6,175,191
Members
452,616
Latest member
intern444

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top