Datum en tijd automatisch plaatsen wanneer regel ingevuld wordt

[HJ25]

Hallo,

is er een manier waarbij ik in cel A2 de datum en tijd kan laten plaatsen wanneer er in C2 t/m L2 iets geplaatst wordt? De datum en tijd die er dan komen te staan mogen, wanneer er in cel B2 t/m L2 iets wijzigt niet meer veranderen!!

En op welke manier kan ik in cel B2 de datum en tijd plaatsen van de laatste wijziging in cel C2 t/m L2?

 

[ReneDirks]

De volgende code aan de sheet hangen:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 2 Then
        If Target.Column >= 3 And Target.Column <= 12 Then
            If ActiveSheet.Cells(1, 2) = "" Then
                ActiveSheet.Cells(1, 2) = Now()
            End If
        End If
    End If
End Sub

 

[spaarie]

Moet het niet over het gehele blad ipv alleen je 2e regel?

Private Sub Worksheet_Change(ByVal target As Range)
    With ActiveSheet
        If Not Intersect(target, .Range("C2", .Range("C2").SpecialCells(xlLastCell))) Is Nothing Then
            If .Cells(target.Row, 1) = "" Then
                .Cells(target.Row, 1) = Now
            Else
                .Cells(target.Row, 2) = Now
            End If
        End If
    End With
End Sub

 

[ReneDirks]

En het tweede deel van je vraag (sorry, even gemist)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 2 Then
        If Target.Column >= 3 And Target.Column <= 12 Then
            If ActiveSheet.Cells(1, 2) = "" Then
                ActiveSheet.Cells(1, 2) = Now()
            Else
                ActiveSheet.Cells(2, 2) = Now()
            End If
        End If
    End If
End Sub

 

[HJ25]

Ow ****! Het was inderdaad de bedoeling dat het voor alles vanaf de tweede regel werkt! Sorry ReneDirks!! Toch bedankt! En Spaarie ook bedankt!

Uh Spaarie die code die jij gegeven hebt is alleen voor het plaatsen toch? Welke code moet ik dan gebruiken die aangeeft wanneer het voor het laatst gewijzigd is?

 

[spaarie]

Is aangepast in post 3

 

[HJ25]

Perfect! Thanks!

Wil ik hem vandaag weer gebruiken en geeft hij steeds aan dat er een fout is... Volgens de foutcontrole zit er een fout in het onderstreepte deel...

Private Sub Worksheet_Change(ByVal target As Range)
With ActiveSheet
       [B][U]     If Not Intersect(target, .Range("C2", .Range("C2").SpecialCells(xlLastCell))) Is Nothing Then[/U][/B]
            If .Cells(target.Row, 1) = "" Then
                .Cells(target.Row, 1) = Now
            Else
                .Cells(target.Row, 2) = Now
            End If
        End If
    End With

End Sub