Data Validation similar to the userform Combobox

[S P P]

Data Validation similar to the userform Combobox Example

 

[p45cal]

Attached

 

[S P P]

Thank you for your collaboration

It is not the same as the Userform

If validation has no letter selected
A
B
C
D
If the validation is with the Letter
A
Only with option to select
B
Or Viceverse
If the validation is with the Letter
C
Only with option to select
D
Or Viceverse
If Delete will display
A
B
C
D

OFFICE 2019

 

[S P P]

Sorry, I transferred it to another spreadsheet and it worked.

 

[S P P]

When protecting is not working.
If you unprotect and delete it, it works again

 

[p45cal]

Don't know. When you delete a cell on a protected sheet, the data validation seems to be deleted too, but not on an unprotected sheet.

 

[p45cal]

Maybe:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DVCells As Range
Set DVCells = Intersect(Target, Range("Tabela13[Status]"))
If Not DVCells Is Nothing Then
  On Error Resume Next
  Me.Unprotect
  For Each cll In DVCells
    Select Case cll.Value
    Case "A": VD = "B"
    Case "B": VD = "A"
    Case "C": VD = "D"
    Case "D": VD = "C"
    Case Else: VD = "A,B,C,D"
    End Select
    With cll.Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=VD
    End With
  Next cll
  Me.Protect
End If
End Sub

 

[S P P]

Unprotected works normally

 

[S P P]

Now it is working.
Thank you for your availability