Поле обновления VBA excel, только если следующее поле столбца пусто

Question

Код ниже автоматически вводит дату в столбце J, если в столбце I записано какое-либо значение, как мы можем добавить условие: если J уже имеет значение, ничего не делать?

Private Sub Worksheet_Change(ByVal Target As Range)


If Not Intersect(Target, Range("I:I")) Is Nothing Then
      Range("J" & Target.Row).Value = Now

End If

End Sub

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng as Range, c As Range
    Set rng = Application.Intersect(Target, Me.Range("I:I"))
    If Not rng Is Nothing Then
        for each c in rng.cells
            with c.offset(0, 1)
                if len(.value) = 0 then .value = now
            end with
        next c
    End If   

End Sub