Действия после заполнения ячеек столбца 7 и столбца 17

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Действия после заполнения ячеек столбца 7 и столбца 17 (Макросы/Sub)

Marisa

Дата: Суббота, 07.11.2015, 12:52 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Приветствую! Есть процедура на листе, которая проводит аналогичные действия после заполнения ячеек в столбце 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]