automatische datum bij kopieren cellen

[WilM]

Goedemorgen,

Uit een vorig topic heb ik de volgende code gebruikt die ervoor zorgt dat automatisch de datum van vandaag wordt ingevoerd (in kolom C) nadat in kolom B een cel wordt aangepast:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Range("B" & Target.Row) = Date
End Sub


Enige probleem is dat wanneer ik meerdere cellen kopieer en plak of doortrek, dan wordt slechts bij één cel een datum genoteerd maar niet bij alle andere cellen.

Weet iemand of en hoe dit ondervangen kan worden? Met andere woorden: in het geval ik een cel doortrek of plak over meerdere rijen, dan wil ik dat de datum in deze rijen ook automatisch wordt aangepast.

Ik heb een voorbeeldbestand toegevoegd ter verduidelijking.

Alvast heel veel dank.

Gr, WilM

 

[HSV]

Misschien met deze?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
    Target.Offset(, 1) = Date
  End If
End Sub

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then Selection.Offset(, 1) = Date
End Sub

Op deze wijze werkt het voor doortrekken of kopieëren, maar voor 1 enkele cel moet je dan weer CTRL-Enter gebruiken

 

[WilM]

Misschien met deze?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
    Target.Offset(, 1) = Date
  End If
End Sub

Dit is precies wat ik zoek! Werkt perfect bij zowel handmatige invoer, doortrekken van cellen en kopieren van meerdere cellen.

Heel veel dank.

 

[Roncancio]

Dit is precies wat ik zoek! Werkt perfect bij zowel handmatige invoer, doortrekken van cellen en kopieren van meerdere cellen.

Heel veel dank.

Gaarne nog de vraag op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio