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

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

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

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Запуск макроса при изменении ячеек в диапазоне (Формулы/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]

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

Ответить

Alex_ST

Дата: Воскресенье, 27.07.2014, 20:06 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3209

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

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

2003

Цитата petrruso, 27.07.2014 в 15:23, в сообщении № 2

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

Ну, если Вы просите, то:
Почему Вы создали топик в "других приложениях", а не в "Вопросах по VBA" если он явно относится к Excel'ю?

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

Страница 1 из 1
1