Cel wordt leeg gemaakt na per ongeluk drukken op JA

[hoogteijling]

Hallo allemaal,

Kan iemand mij helpen met bijgevoegd bestand.
Het is ooit al grotendeels gemaakt met behulp van dit en een ander forum:
HIER en HIER
Nu loop ik tegen een probleempje aan bij reeds ingevulde regels.
Als ik dan per ongeluk weer JA kies in kolom C dan maakt ie de datum in kolom D leeg.
Is dat te voorkomen ?

Groeten Marcel
Bekijk bijlage Opschoon formulier.zip

 

[spaarie]

Zou dit kunnen?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
  ActiveSheet.Unprotect
    With Columns(3)
      If Target.Value = "Nee" Then
        Target.Offset(0, 1).Value = "=RC[-2]"
        Target.Offset(0, 1).Locked = True
        ActiveSheet.Protect
      Else
        ActiveSheet.Unprotect
        If Target.Offset(0, 1) <> "" Then
        Target.Offset(0, 1).Locked = False
        Else
        Target.Offset(0, 1).ClearContents
      End If
      End If
    End With
  ActiveSheet.Protect
 End If
End Sub

Tevens het volgende;
Als je een datasheet aanmaakt voor Ja en Nee zou ik dit bereik benamen. Nu trek je kolom C door en je verwijzingen staan niet goed meer of je moet $-tekens in je verwijzing gebruiken...
Je kan tevens bij alleen Ja en Nee ook ervoor kiezen via Gegevensvalidatie > Lijst > ipv een verwijzing Ja; Nee kunnen neerzetten.
Je gebruikt het toch alleen voor kolom C en die trek je door dus een verwijzing of benaming lijkt mij alleen maar extra werk...

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column & target.offset(,1)= "3" Then 
    Unprotect
    target.offset(,1)=iif(target="Nee",target.offset(,-1),"")
    Protect
  End If
End Sub

 

[hoogteijling]

@Spaarie:
Dit is precies wat ik zocht.

Ik heb je advies mbt het Ja Nee keuzelijstje gebruikt.
Ik heb het bereik benaamd.

@SNB:
Ook bedankt, grappig dat jouw veel kortere code precies hetzelfde resultaat heeft.
Ik heb dan ook nagenoeg geen kaas gegeten van VBA.

Groeten Marcel

 

[hoogteijling]

Is er nu ook nog iets aan te doen wanneer ik per ongeluk JA kies terwijl het NEE zou moeten zijn.
Dan wordt de datum namelijk niet meer overgenomen vanuit kolom B.

Groeten Marcel

 

[spaarie]

Maar neem aan dat je dit dan corrigeert naar NEE, zodra je deze kiest komt er sowieso weer een datum. Dus ik zie het probleem ff niet...

 

[hoogteijling]

Als ik NEE kies dan moet ie juist de datum overnemen uit B

Groeten Marcel