Choosing Multiple items from Data Validation Lists

  • Thread starter Thread starter Alex
  • Start date Start date
A

Alex

I have the following code that allows users to pick multiple choices from a
data validation list. The problem with the code is that users can pick
multiple choices from all the lists in the worksheet and not just F, J, V, O.
How can I change this to only allow users to choose multiple items in those
columns? Thanks.

If Application.Intersect(Target, Range("F2:F25,U2:U25,V2:V25,02:025")) Is
Nothing Then Exit Sub

For Each cell In Target
Application.EnableEvents = False
On Error GoTo exitHandler
newVal = cell.Value
Application.Undo
oldVal = cell.Value
cell.Value = newVal

If oldVal = "" Then
'do nothing
Else
If newVal = "" Then
'do nothing
Else
cell.Value = oldVal _
& ";# " & newVal
End If
End If



Next cell

exitHandler:
Application.EnableEvents = True
 
Hi Alex,

Alex" said:
I have the following code that allows users to pick multiple choices from a
data validation list. The problem with the code is that users can pick
multiple choices from all the lists in the worksheet and not just F, J, V, O.
How can I change this to only allow users to choose multiple items in those
columns? Thanks.

If Application.Intersect(Target, Range("F2:F25,U2:U25,V2:V25,02:025")) Is
Nothing Then Exit Sub
Click to expand...

in the Range 02:025 you use the number 0 instead of the letter O.
This should work for you:

If Application.Intersect(Target, Range("F2:F25,U2:U25,V2:V25,O2:O25")) _
Is Nothing Then Exit Sub


Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -
 
Back
Top