Hoe kan ik de onderstaande code aanpassen?
De onderstaande code werkt perfect met het volgende:
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. Als de status verloop is verschijnt automatisch een 0 in cel C waarin je Ja of Nee kan selecteren.
Nieuwe wijziging
Er is nu de volgende wijziging plaats gevonden waardoor de code niet meer werkt:
Kolom A is nu kolom G geworden
Kolom B is nu kolom I geworden
Kolom C is nu kolom L geworden
Mijn vraag is hoe kan ik nu de onderstaande code aanpassen op basis van nieuwe wijziging.
Alvast bedankt
Leo
De onderstaande code werkt perfect met het volgende:
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. Als de status verloop is verschijnt automatisch een 0 in cel C waarin je Ja of Nee kan selecteren.
Nieuwe wijziging
Er is nu de volgende wijziging plaats gevonden waardoor de code niet meer werkt:
Kolom A is nu kolom G geworden
Kolom B is nu kolom I geworden
Kolom C is nu kolom L geworden
Mijn vraag is hoe kan ik nu de onderstaande code aanpassen op basis van nieuwe wijziging.
Code:
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 SubAlvast bedankt
Leo
