Работа макроса только на выделенной строке

[Андрей456]

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

Код (vb) Выделить Развернуть

SUB макрос_1()
If range("j4") = 0 then
Range("b4:i4").clearcontents
End if
Задача чтобы этот макрос срабатывал на любой выбранной строке листа. Подскажите пожалуйста как решить.

[admin]Коды оформляйте тегами VBCode. п.п. 4.25 Правил форума[/admin]

[Дмитрий Щербаков(The_Prist)]

Свои коды оформляйте тегами VBCode. п.п. 4.25 Правил форума

Код (vb) Выделить Развернуть

If ActiveCell.Value = 0 then
Range("b" & ActiveCell.Row & ":i" & ActiveCell.Row).clearcontents
End if

[Андрей456]

За код спасибо. На счёт оформления учту.

[Андрей456]

А можно ещё добавить проверку пустая ячейка или нет если пустая, макрос не работает.

[Дмитрий Щербаков(The_Prist)]

Вообще непонятно теперь, что Вам надо. Вы же проверяете, чтобы в ней был нуль. А нуль и пусто разные вещи. Проверка на пусто уже лишняя, от слова совсем. Если в ячейке нуль - значит она не может быть пустой. А если нет нуля - то код и на сработает. Поэтому напишите точнее, что должна делать эта проверка.

[Андрей456]

Да все сам дошел до этого когда в документ все прописал. Спасибо за помощь