Hozzászólás: [Resolved] Utólagos rögzítés dátuma

Szia!

Ez a makró az első 6 oszlopot figyeli. Az A oszlophoz tartozó beviteli dátumot a G-be írja, a B dátumát a H-ba, és így tovább.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column < 7 Then
        Application.EnableEvents = False
        Cells(Target.Row, Target.Column + 6) = Date
        Application.EnableEvents = True
    End If
End Sub

Delila