Запуск макроса при изменении ячеек в диапазоне

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

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

Запуск макроса при изменении ячеек в диапазоне (Формулы/Formulas)

petrruso

Дата: Воскресенье, 27.07.2014, 12:25 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2007

Доброе время суток.
Стоит задача. При изменении данных в массиве или диапазоне необходимо осуществить запуск макроса, который отправлял бы измененный файл по электронной почте. С макросом отправки я разобрался, а вот ни как не могу привязать запуск макроса к изменению ячеек D(2:1000)
У меня получилось:
[vba]

Код

Sub ОтправкаПисьма ()
ActiveWorkbook.SendMail "petrruso@list.ru", "Изменение в учете"
End Sub

[/vba]
Отправка проходит на ура, но при мануальном запуске. Хотелось бы мучить адресата письмами без человеческого фактора, т.е. автоматически
Заранее благодарен за помощь. Спасибо

Сообщение отредактировал Serge_007 - Воскресенье, 27.07.2014, 12:39

Ответить

petrruso

Дата: Воскресенье, 27.07.2014, 15:23 | Сообщение № 2

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2007

petrruso, Господа Спасибо что поправили мое неточное опубликование.
Подумав я оформил так и все заработало
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("A1:C10")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

ActiveWorkbook.SendMail "petrruso@list.ru", "Изменение в учете"

End If
End Sub

[/vba]

А теперь дайте мне еще замечаний что бы втоптать меня в грязь и загнать под плинтус. Все спасибо