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.
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
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 546
Downloads 121
CodeID
DB ID