Wat is er nu mis met deze code, ik kom er even niet uit, zal wel simpel zijn maar ik zie hem even niet
HTML:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 18 And Target.Value > 0 Then
With Target
.Offset(0, 4) = Date
.Offset(0, 5) = Time
If Target.Column = 24 And Target.Value > 0 Then
With Target
.Offset(0, 1) = Date
.Offset(0, 2) = Time
Application.DisplayAlerts = False
End With
End If
End Sub