Nogmaals datum

[Knuffelbeer]

Bekijk bijlage Inschrijvingen2.xlsVorige week hebben jullie me flink opweg geholpen helaas net niet genoeg, of beter mijn kennis stopt te vroeg.
Ik probeer wat in kolom 1 lukt ook in de andere kolommen door te trekken.

 

[oeldere]

@knuffelbeer

Ik zou het op deze manier hebben opgelost (zie bijlage).

Op deze manier zien de gegevens straks eenvoudig op te halen / bewerken.

De oranje cellen zijn een data-validatie.

Dit voorkomt een verkeerde invoer van gegevens.

Heb je hier vragen of opmerkingen over, laat het gewoon even weten.

 

[Cobbe]

Anders kan je deze aangepaste code nog gebruiken:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Or Target.Column = 7 Or Target.Column = 10 Or Target.Column = 13 Then
If Target.Value > 0 Then 'verander indien nodig
Application.EnableEvents = False
Cells(Target.Row, [COLOR="red"][B]Target.Column - 1[/B][/COLOR]).Value = Now
Application.EnableEvents = True
End If
End If
End Sub

 

[huijb]

Wanneer je eerder gestelde vraag nog niet is opgelost is het voor de overzichtelijkheid verstandiger om in je originele vraag te blijven, mits het binnen de gestelde houdbaarheid blijft. Deze dus http://www.helpmij.nl/forum/showthread.php/675621-Datums-vastzetten