Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.03.2012, 17:57   #1
strannick
Форумчанин
 
Регистрация: 21.10.2011
Сообщений: 433
По умолчанию Срабатывание разных макросов при изменении разных диапазонов на листе

Добрый день, уважаемые форумчане!
Тут такое дело. На лист импортируются данные из csv файла. Но столбцы А и Т заполняются вручную и в разное время. Как по изменению одного диапазона запустить макрос - понятно. А вот как при изменении второго диапазона запустить другой макрос - не въезжаю. Тут вот пытался накидать:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A3:A500,T3:T500")) Is Nothing Then Exit Sub
If Target.Column = 1 Then
Select Case Target.Value
Case 1
Sheets("PostReg").Select
Call SendmailTheBatReg
If Target.Column = 20 Then
Sheets("PostBest").Select
Call SendmailTheBatBest
End If
End If
End Sub

Запутался и решил пойти на родной форум. Короче, стою я на асфальте в лыжи обутый. Ну а дальше вы знаете...
strannick вне форума Ответить с цитированием
Старый 26.03.2012, 18:16   #2
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Код:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Select Case True
    Case Not Intersect(Target, Range("A3:A500")) Is Nothing
         Sheets("PostReg").Select
        Call SendmailTheBatReg
    Case Not Intersect(Target, Range("T3:T500")) Is Nothing
          Sheets("PostBest").Select
        Call SendmailTheBatBest
    Case Else
        Exit Sub
    End Select
End Sub
Case Else
Exit Sub
в общем уже и лишнее...
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 26.03.2012, 18:28   #3
strannick
Форумчанин
 
Регистрация: 21.10.2011
Сообщений: 433
По умолчанию

Спасибо. А Case я оставлял на случай если еще какой макрос подвесить по изменению.
strannick вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Транспонирование множества данных из разных книгах или из разных листов на 1 лист посредством макроса Тантана Microsoft Office Excel 6 18.12.2014 13:04
Срабатывание макросов в зависимости изменений в 2-х диапазонах strannick Microsoft Office Excel 4 07.01.2012 21:07
Сводная таблица разных ячеек из разных файлов vik74 Microsoft Office Excel 2 23.01.2011 20:53
Объединение данных из разных Файлов на разных листах одной книги Nikodim113 Microsoft Office Excel 20 12.01.2011 07:12
несколько разных строк из разных файлов сформировать в один Иван123456 Microsoft Office Excel 3 30.07.2009 17:05