Yordi Toro

Adriel Ortiz Mangia respondió: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Application.Intersect(Target, Target.Parent.Range("A:A")) Is Nothing Then Target.Offset(, 1) = "" Application.EnableEvents = False Target.Offset(, 1) = Now...