He creado una lista de validación de datos y he agregado el código VB (a continuación) para permitir que el usuario seleccione más de una de las opciones en la lista. El usuario puede elegir de la lista o ingresar datos (si ninguna de las opciones de la lista encaja). Pero, si el usuario elige de la lista e ingresa nuevos datos, las opciones se repiten.

Por ejemplo, la lista contiene estas opciones: A, B, C, D, E. El usuario debe elegir A, B y Z, así que eligen A y B e ingresan Z, pero luego se ve así: A, B , Z, A, B

If Intersect(Target, rngDV) Is Nothing Then
   'do nothing
Else
  Application.EnableEvents = False
  newVal = Target.Value
  Application.Undo
  oldVal = Target.Value
  Target.Value = newVal

  If Target.Column = 7 Or Target.Column = 14 Then
    If oldVal = "" Then
      'do nothing

    Else
      If newVal = "" Then
      'do nothing

    Else
      Target.Value = oldVal _
        & ", " & newVal
      End If
    End If
  End If
End If

exitHandler:
  Application.EnableEvents = True
End Sub

¿Ayuda?

Julie
fuente