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.



My Own Work

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 455 Downloads 81