Помощь нужна в объединении макросов и запуске.
Благодарю всех заинтересованы
Благодарю всех заинтересованы
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub On Error Resume Next If Not Intersect(Target, Range("AF3:AS2000")) Is Nothing Then ' здесь работа одного макроса End If Dim NewCellValue$, OldComment$ Dim cell As Range 'если ячейка не в отслеживаемом диапазоне, то выходим If Intersect(Target, Range("AA2:AA2000")) Is Nothing Then Exit Sub ' здесь работа другого макроса End Sub |