Запуск макроса по событию

[tim13]

Подскажите по проще как запустить макрос по значению в ячейке (А1=1)?

[nemoomen]

Код разместить в модуле листа.

Private Sub Worksheet_Change(ByVal Target As Range)
   
     If Target.Address = "$A$1" Then
     If IsEmpty(Target) Then Exit Sub
        IF Range("A1") = 1 THEN 
	CALL "Название запускаемого макроса" 'или сам код
     End If     
       
End Sub

Можно в коде заменить(и добавить) и ячейку и условие.

[tim13]

Сообщение от nemoomen

Код разместить в модуле листа.

Private Sub Worksheet_Change(ByVal Target As Range)
   
     If Target.Address = "$A$1" Then
     If IsEmpty(Target) Then Exit Sub
        IF Range("A1") = 1 THEN 
	CALL "Название запускаемого макроса" 'или сам код
     End If     
       
End Sub

Можно в коде заменить(и добавить) и ячейку и условие.

Большое спасибо. Забыли End If еще раз прописать.
А если два условия когда А1=1 или А1=2?
Да и еще ответьте новичку что означают эти строчки
If Target.Address = "$A$1" Then
If IsEmpty(Target) Then Exit Sub

[nemoomen]

Я не совсем уверен, что это обозначает
посмотри здесь http://programmersforum.ru/showthread.php?t=41590
Главное, что работает.

Вторая (и много других) проверка делается так:

Private Sub Worksheet_Change(ByVal Target As Range)
   
     If Target.Address = "$A$1" Then
     If IsEmpty(Target) Then Exit Sub
        IF Range("A1") = УСЛОВИЕ THEN 
	CALL "Название запускаемого макроса" 'или сам код
     End If

     If Target.Address = "$В$1" Then
     If IsEmpty(Target) Then Exit Sub
        IF Range("B1") = УСЛОВИЕ THEN 
	CALL "Название запускаемого макроса" 'или сам код
     End If 
       
End Sub

И так далее.....

Кстати, еще END IF не нужно! Код у меня работает именно в таком виде

[The_Prist]

Сообщение от tim13

что означают эти строчки
If Target.Address = "$A$1" Then
If IsEmpty(Target) Then Exit Sub

If Target.Address = "$A$1" Then

Условие будет выполняться, только если выделена ячейка А1.

If IsEmpty(Target) Then Exit Sub

Если ячейка пуста, то выполнение процедуры прекратится. Завершение процедуры внутри кода(до ключевой End Sub), выполняется посредством Exit Sub

[The_Prist]

Сообщение от tim13

А если два условия когда А1=1 или А1=2?

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address <> "$A$1" Then Exit Sub
     If Target = 1 or Target = 2 Then CALL "Название запускаемого макроса" 'или сам код      
End Sub