Automatisch datum toevoegen als probleem is opgelost

[Bartjess]

Hallo Allemaal,

We gebruiken een lijst om problemen te noteren en de acties die daarop volgen op te volgen.
Nu zou ik graag, op het moment dat het probleem is opgelost, automatisch een datum toe te voegen aan de lijst zodat duidelijk is hoelang een probleem is opgelost.
Ik krijg dit zelf echter niet voor elkaar.
Hebben jullie een idee?
Bijgevoegd een snel in elkaar gezet bestand. Op het moment dat "probleem opgelost" op Y komt te staan zou de datum automatisch in de cel erlangs moeten komen staan. deze datum moet dus alleen komen als "probleem opgelost"op Y komt te staan.

Alvast bedankt

 

[AD1957]

Als je bekend bent met VBA:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 4 And Target = "y" And Target.Count = 1 Then Target.Offset(, 1) = Date
End Sub

 

[SjonR]

zo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Value = "y" And Target.Count = 1 Then
    Target.Offset(, 1) = Date
Else
    Target.Offset(, 1) = ""
End If
End Sub

 

[edmoor]

Deze in E3:

=ALS(D3="y";VANDAAG();"")

Wel even de cel eigenschap op Datum zetten.

 

[AD1957]

@edmoor,
Met deze formule wijzigt de datum toch per dag. ? , lijkt me niet de bedoeling.

 

[edmoor]

Helemaal waar inderdaad.

 

[Bartjess]

Hallo Allemaal,
Bedankt voor de snelle reactie.
Het is inderdaad niet de bedoeling dat de datum per dag veranderd.
Ik ga de andere optie eens proberen.
Dankjewel voor de voorbeelden

 

[alphamax]

Ga in de kolom "datum opgelost" staan.
En toets CTRL+: (huidige datum).

 

[AD1957]

Beste die van @Sjonr, bij de code van mij blijft de datum staan als je de y verwijdert of verandert.

 

[emields]

zoiets met enkele controles in.