Excel drop down menu - How do I allow multiple selections?

S

Sandy

I am interested in creating a drop down list that allows a person to select
more than one item? All ideas are welcome.
 
J

JB

Operator choice more than one item:

http://cjoint.com/?bluKcDUrl2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" And Target.Count = 1 Then
p = InStr(Target.Offset(0, 2), Target.Value)
If p > 0 Then
Target.Offset(0, 2) = Left(Target.Offset(0, 2), p - 1) & _
Mid(Target.Offset(0, 2), p + Len(Target.Value) + 1)
Else
Target.Offset(0, 2) = Target.Offset(0, 2) & Target.Value & " "
End If
End If
End Sub

Operator choice more than one item (colonne B is hidden):

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" And Target.Count = 1 Then
Application.EnableEvents = False
p = InStr(Target.Offset(0, -1), Target.Value)
If p > 0 Then
Target.Offset(0, -1) = Left(Target.Offset(0, -1), p - 1) & _
Mid(Target.Offset(0, -1), p + Len(Target.Value) + 1)
Else
Target.Offset(0, -1) = Target.Offset(0, -1) & Target.Value & " "
End If
Target.Value = Target.Offset(0, -1)
Application.EnableEvents = True
End If
End Sub

http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVPremieresLettresPlusieurs.xls
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVChoixSuccessifs3.xls


JB
http://boisgontierjacques.free.fr/
 
Top