ExcelExcellence
Gebruiker
- Lid geworden
- 3 sep 2020
- Berichten
- 22
Een paar dagen geleden via dit forum deze code verkregen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5:A4000")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
With Target.Offset(0, 24)
.Value = IIf(Target.Value = "", "", Now)
End With
End If
End Sub
Als ik een waarde in het bereik A5:A4000 invul wordt in de gelijknummerige cell in kolom 24 oftewel kolom Y de huidige tijd en datum ingevuld!
Als ik de waarde in het bereik A5:A4000 'delete' wordt de gelijknummerige cell in kolom 24 oftewel kolom Y 'gedelete' of schoongeveegd. Werkt toppie!
Nu had ik heel graag nog de volgende aanvulling gehad:
In kolom V (i.g.v. offset nr. 21) staat een 'datum en tijd' "dd-mmm-yy hh:mm" in een formule.
De waarde hiervan moet als 'harde waarde' gekopieerd worden naar kolom X (i.g.v. offset nr. 23) indien de gelijknummerige cell in kolom A wordt 'aangepast'.... en insgelijks als ik kolom A delete moet de waarde in kolom X gedelete worden.
Hoop dat dit duidelijk is.
Heb zelf wat liggen klooien maar tot nu toe wil het niet lukken...
Zou heel fijn zijn als iemand hulp kan bieden....
b.v.d. grts Jo
ps: jpg proberen toe te voegen ter verduidelijking... maar dat wil niet lukken
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5:A4000")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
With Target.Offset(0, 24)
.Value = IIf(Target.Value = "", "", Now)
End With
End If
End Sub
Als ik een waarde in het bereik A5:A4000 invul wordt in de gelijknummerige cell in kolom 24 oftewel kolom Y de huidige tijd en datum ingevuld!
Als ik de waarde in het bereik A5:A4000 'delete' wordt de gelijknummerige cell in kolom 24 oftewel kolom Y 'gedelete' of schoongeveegd. Werkt toppie!
Nu had ik heel graag nog de volgende aanvulling gehad:
In kolom V (i.g.v. offset nr. 21) staat een 'datum en tijd' "dd-mmm-yy hh:mm" in een formule.
De waarde hiervan moet als 'harde waarde' gekopieerd worden naar kolom X (i.g.v. offset nr. 23) indien de gelijknummerige cell in kolom A wordt 'aangepast'.... en insgelijks als ik kolom A delete moet de waarde in kolom X gedelete worden.
Hoop dat dit duidelijk is.
Heb zelf wat liggen klooien maar tot nu toe wil het niet lukken...
Zou heel fijn zijn als iemand hulp kan bieden....
b.v.d. grts Jo
ps: jpg proberen toe te voegen ter verduidelijking... maar dat wil niet lukken