Validação de dados do Excel com múltiplas opções e texto livre

1

Eu criei uma lista de validação de dados e adicionei o código VB (abaixo) para permitir que o usuário selecione mais de uma das opções na lista. O usuário pode escolher na lista ou inserir dados (se nenhuma das opções da lista se encaixar). Mas, se o usuário escolher na lista e inserir novos dados, as opções serão repetidas.

Por exemplo, a lista contém estas opções: A, B, C, D, E. O usuário precisa escolher A, B e Z, então eles escolhem A e B e inserem Z, mas ele se parece com isto: 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

Ajuda?

    
por Julie 02.11.2012 / 19:10

0 respostas