Приветствую! Есть процедура на листе, которая проводит аналогичные действия после заполнения ячеек в столбце 7 и 17. Мне нужно добавить 1 действие копирования значения с другого листа после заполнения только столбца 17, т.е 2 действия дл них общие, а 1 только для 17. Процедуру скопировала здесь на форуме.
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = 0
For i = 1 To Target.Count
If Target(i).Column = 7 Or Target(i).Column = 17 Then
If Target(i).Value <> "" Then
Target(i).Offset(, -2) = Date
Target(i).Offset(, -1) = Time
Else
Target(i).Offset(, -2).ClearContents
Target(i).Offset(, -1).ClearContents
End If
End If
Next i
Application.EnableEvents = 1
End Sub
[/vba]
[moder]Код следует оформлять тегами (кнопка #). На первый раз исправила[/moder]