Здравствуйте, помогите с кодом. Нужно чтобы при изменении значения в определённой ячейки в диапазоне срабатывал определённый макрос, и так же чтобы макрос срабатывал когда значение в ячейке удаляется delete-ом.
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Union(Cells(2, 37), Range(Cells(4, 38), Cells(16, 38)))) Is Nothing Then
Select Case Range
Case Cells(2, 37)
Call Макрос1
Case Cells(4, 38)
Call Макрос2
Case Cells(5, 38)
Call Макрос3
Case Cells(6, 38)
Call Макрос4
End Select
End If
End Sub
|