Ik zou gebruik maken van codes/afkortingen ipv een compleet beschrijvende tekst in kolom K. Daarnaast natuurlijk ook gegevensvalidatie. Misschien is het ook even goed om naar de opzet van het bestand te kijken. Kolom 9 krijgt al een waarde als je iets wijzigt in kolom 11. Maar goed.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Application.EnableEvents = False
With Target
Select Case .Column
Case 9
.Offset(, -1) = "Ik doe maar wat"
Case 11
.Offset(, 1) = CDate(Now)
.Offset(, 4).Resize(, 2) = "v"
.Offset(, 8).Resize(, 2) = Array("v", Format(Date, "ww"))
.Offset(, 11) = .Offset(, 11) + 1
If InStr("BetaaltermijnGeen opdrachtGeen voorraadConcurrentOfferte klopte nietTe duurTe oudAlternatief niet okniet opgevolgdgeen opdrachtgeen voorraadconcurrentofferte klopte niet te duurte oudalternatief niet okniet opgevolgd", .Value) Then
.Offset(, -3).Resize(, 2) = Split("Ja Vervallen")
Else
.Offset(, 2) = "Nee"
End If
End Select
End With
Application.EnableEvents = True
End Sub
Laatst bewerkt: