если ячейка пуста, очистить содержимое кода другой ячейки в VBA

Question

На моем листе, когда я обновляю столбец Ячейки в D, в столбце Ячейка C будет отображаться дата обновления, теперь мне нужно, если я удалю информацию в ячейке D, чтобы удалить информацию в ячейке C, а не как формулу, как код VBA. Код ниже:

 `Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 4 Then Exit Sub
  If Target.Cells.Count > 1 Then Exit Sub
   With Target.Offset(0, -1)
    .Value = Now
     .NumberFormat = " MM/DD/YY hh:mm Am/PM"
  End With

   Dim RangeA As Range
   Set RangeA = Range("D10:D10000")
    If Application.CountBlank(RangeA) = RangeA.Cells.Count Then
    Range("C10:C10000").ClearContents
     End If
     End Sub`

Answer 1

Я бы порекомендовал добавить if-statement для поддержки вашей деятельности, например:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 4 Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Value <> "" then
        With Target.Offset(0, -1) 
            .Value = Now
            .NumberFormat = " MM/DD/YY hh:mm Am/PM"
        End With
    Else
        Target.Offset(,-1).ClearContents
    End If
End Sub