Есть желание сделать в таблице следующее.
При изменении значения ячейки в столбце 18 с "пусто" на значение даты. Изменять значение ячейки в столбце "H" в этой же строке.
Покурил форумы. И получился некий код. Что-то даже получилось. Но! Почему-то изменения в столбце "H" происходят только в случае если после нажатия Enter, вернуться обратно в только что отредактированную ячейку. Далее моих знаний не хватает ))
Прошу помощи.
При изменении значения ячейки в столбце 18 с "пусто" на значение даты. Изменять значение ячейки в столбце "H" в этой же строке.
Покурил форумы. И получился некий код. Что-то даже получилось. Но! Почему-то изменения в столбце "H" происходят только в случае если после нажатия Enter, вернуться обратно в только что отредактированную ячейку. Далее моих знаний не хватает ))
Прошу помощи.
| Код |
|---|
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("R:R")) Is Nothing Then
If Target.Column = 18 And Target.Value <> "" Then
Application.EnableEvents = False '
With Target.Offset(0, -10)
.Value = "Оплачена"
End With
Application.EnableEvents = True
End If
End If
End Sub
|
