Очистить содержимое ячейки на основе другой ячейки для каждой строки

Question

Как очистить ячейку на основе изменения другой ячейки, но для каждой строки отдельно?Скажем, я меняю AI5, и он очищает AQ5, я меняю AI17, он очищает AQ17?

У меня есть этот код:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("AI5")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range("AQ5").ClearContents
Application.EnableEvents = True
End Sub

И он работает только для ячеек в коде.Если я изменю оба значения на диапазон столбца, он очищает все столбцы AQ, а это не то, что мне нужно.

Спасибо

Answer 1

Как это:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("AI" & Target.Row)) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Range("AQ" & Target.Row).ClearContents
    Application.EnableEvents = True

End Sub

Вы должны указать Excel, какая строка, и строка будет такой же, как Target.Row, чтобы вы могли использовать это.