Datum automatisch laten invoeren bij wijziging in rij...

[jok078]

Hoi,

Eerder (in eerdere vraag) ging ik op zoek naar de code welke me helpen kon inzake het invoeren van de datum. Het liep echter een beetje in het 100... x aantal cellen opzij gaan werkte niet omdat x variabel was...

Intussen (na veel gedenk) kan ik mijn vraag best eenvoudiger stellen. Hoop (verwacht) komen we er nu wel!

In kolom D heb ik een reeks met datums staan. Dit zijn de data waarop de cellen (in het hele document, per rij) laatst gewijzigd zijn. Graag ook had ik hier een korte notatie dwz. bijv. 31/12 - Dat was het, in één zin

Wanneer er nu in rij x (=onbepaald) een inhoudswijziging gebeurt verandert de inhoud van de cel in kolom D, rij x

Ps. m'n vorige vraag mag gewist worden, daar we niet echt tot een goei resultaat kwamen

Hoop is mijn vraag hierbij eenvoudiger...
Vast danks!!
j.

 

[Spiesse]

hier ga je zeker iets mee kunnen doen (wel nog aanpassen aan de nodige range)

Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A10000")) Is Nothing Then
        Target.Offset(, 9).Value = format(Date,"dd/MM")
    End If

uw range dus nog aanpassen, en uw target.offset