макрос

[kuk19]

помогите плизз. никак не пойму , как по полученному значению в ячейке запустить макрос . т.е. логика проста . не знаю как написать задачу : если в определенной ячейке значение соответствует условию >= какому-то числу , то запускается макрос (в данном случае макрос у меня на кнопке )

[VictorM]

пробуйте так
Sub Worksheet_SelectionChange(ByVal Target As Range)
если в определенной ячейке значение соответствует условию >= какому-то числу
то
запускается макрос
End Sub
конкретнее только с примером файла
p.s.
Код пишется в модуле рабочего листа

[kuk19]

Спасибо . попробую .. только я , сожалению , не программист . так что вот медленно взрываю себе мозг

[ikki_pf]

тоже хороший способ садомазохизма
всяко лучше, чем приложить ваш файл и получить решение для вашего случая.

[kuk19]

ээ, файл не могу , табу , блин горелый .. пытаюсь сделать так , что бы посвятить себя лени )

[kuk19]

короче , код неработоспособен

[kuklp]

Код работоспособен, только неча на зеркало пенять... Вам писали, приложите пример и описание. Не хотите - за Вас примеры рисовать желающих нет. Мы тут тоже любим "посвятить себя лени".

[kuk19]

я ни коем образом . не хочу кого-то обидеть , я не программист . ну вот за целый день ,с товарищами . перебрав кучу вариантов остановились на этом :
Private Sub Worksheet_Change(ByVal Target As Range)


Select Case Target.Address
Case "$F$21"
If Target.Value <= Range("F22").Value Then CommandButton2_Click
Case "$F$12"
If Target.Value >= Range("F13").Value Then CommandButton1_Click
End Select
End Sub

но и этот не вызывает функцию Комманд ... думать уже не знаю что .. извините . если кого задел за живое такое ощущение , что мой 2003 эксель наотрез отказывается выполнять логическое выражение , хотя когда жмешь на кнопки работает (ручной режим )

[kuklp]

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

я ни коем образом . не хочу кого-то обидеть...

Да Бога ради, никого Вы не обидели. Не хотите выкладывать пример - дело Ваше. Но как Вы уже успели убедиться, вместо Вас его рисовать никто желанием не горит. Вам лень, и нам тоже:-) Только нам-то оно не надо - надо Вам.

ну вот за целый день ,с товарищами . перебрав кучу вариантов

Удачи!

[VictorM]

но и этот не вызывает функцию Комманд .

все вызывает

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
    Case "$F$21"
        If Target.Value <= Range("F22").Value Then MsgBox ("CommandButton2_Click")
    Case "$F$12"
        If Target.Value >= Range("F13").Value Then MsgBox ("CommandButton1_Click")
    End Select
End Sub

ну а конкретно...я уже говорил выше