Новости:

Подпишитесь на рассылку новых сообщений форума через службу рассылок: Subscribe.ru

Главное меню

Копировать при условии

Автор alexstrel, 22.08.2012, 16:30

« назад - далее »

alexstrel

Хочу написать код но не получается.
Если в любую ячейку столбца A введен любой символ, то ячейки C-E той строки в которую введен или удален этот символ должны быть скопированы в ячейки при K-L.
Может кто-нибудь подскажет как это сделать?

nilem

В модуль листа
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
Cells(Target.Row, 11).Resize(, 3).Value = Cells(Target.Row, 3).Resize(, 3).Value
Application.EnableEvents = True
End Sub