code

[Leo22]

Wie kan mij helpen?

In kolom A kan je producten selecteren en na de selectie verschijnt automatisch de status van het product in kolom B. En in kolom C kan je zelfkiezen of je het product wilt bestellen of niet. Ik wil als de status verloop is moet automatisch 0 verschijnen in cel C waarin je Ja of Nee kan selecteren, en er moet niet meer mogelijk zijn om Ja of Nee te kiezen. Hoe kan ik dit in vba doen?



Alvast bedankt

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Offset(, 1).Value = "Verloop" Then
    With Target.Offset(, 2)
        .Validation.Delete
        .Value = 0
   End With
   Exit Sub
Else
    On Error Resume Next
    If IsEmpty(Target.Offset(, 2).Validation.Type) Then
        With Target.Offset(, 2).Validation
            .Delete
            .Add xlValidateList, xlValidAlertStop, xlBetween, "=Lijst"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    End If
End If
End Sub

PS Vergeet niet ergens op je werkblad een bereik te maken met de naam Lijst die beide mogelijkheden voor de validatie bevat

 

[Leo22]

Heel erg bedankt,