How to create Drop Down List with Multiple Selections or Values in Excel
In this video, You will learn How to create Drop Down List with Multiple Selections in Excel
VBA Code:
Private Sub Worksheet_Change ( ByVal Target As Range )
Dim xRng As Range
Dim xValue1 As String
Dim xValue2 As String
If Target.Count > 1 Then Exit Sub
On Error Resume Next
Set xRng = Cells.SpecialCells ( xlCellTypeAllValidation )
If xRng Is Nothing Then Exit Sub
Application.EnableEvents = False
If Not Application.Intersect ( Target, xRng ) Is Nothing Then
xValue2 = Target.Value
Application.Undo
xValue1 = Target.Value
Target.Value = xValue2
If xValue1 <> "" Then
If xValue2 <> "" Then
If xValue1 = xValue2 Or _
InStr ( 1, xValue1, ", " & xValue2 ) Or _
InStr ( 1, xValue1, xValue2 & "," ) Then
Target.Value = xValue1
Else
Target.Value = xValue1 & ", " & xValue2
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
No comments