Frm6 - ANmaMultiSelect

Give users ability to multi-select from list of items into cells with separator.
When you double-click any cell in that column, Multi-Select will be displayed allowing users to select multiple items in cell.
Cell then will have list of selected separated by comma.
Items are expected to be listed in column A in sheet named "Lists".
You may change list col, sheet, workbook as well as list separator in the call.

CodeFunctionName
What is this?

Public

Tested

Original Work

To use...
    > Add Frm6 in your project
    > Paste below in a sheet where you want to allow multi-select
    > Change "D" to the column where you want to allow user to double-click, like "K" or "AA"
    > When you double-click any cell in that column, Multi-Select will be displayed allowing users to select multiple items in cell
    > Cell then will have list of selected separated by comma
    > Items are expected to be listed in column A in sheet named "Lists"
    > You may change list col, sheet, workbook as well as list separator in the call
        Frm6.ANmaMultiSelect(, "Lists")
        Frm6.ANmaMultiSelect("E", "Lists","Book1.xlsx", "|")
        Frm6.ANmaMultiSelect(List column, ListSheet, Workbook, Separator)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = Range("D" & 1).Column Then
        RetList = Frm6.ANmaMultiSelect(, "Lists")
        If RetList = "ANmaMultiSelect-Clear" Then
            Target.Value = ""
        ElseIf RetList > "" Then
            Target.Value = RetList
        End If
        Cancel = True
    End If
End Sub

List column, ListSheet, Workbook, Separater

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = Range("D" & 1).Column Then
        RetList = Frm6.ANmaMultiSelect(, "Lists")
        If RetList = "ANmaMultiSelect-Clear" Then
            Target.Value = ""
        ElseIf RetList > "" Then
            Target.Value = RetList
        End If
        Cancel = True
    End If
End Sub

Views 543

Downloads 120

CodeID
DB ID