при вводе значения, это значение транслируется на соседние ячейки

[скорпи]

Гуру, добрый день!
Очень прошу помощи, задача элементарная, но к сожалению не соображается.

Задача такая: Если в любой ячейке столбца B  ставим значение, то это значение транслируется на соседние ячейки строки. Но проблема в том, что не во все ячейки, а только которые принадлежат таблицам.

Пример:
В ячейку B5 пишем "нет" - автоматически (желательно, но можно и при нажатии доп.кнопки) "нет" проставляется в ячейках С5, D5, F5-K5, M5-T5

Надеюсь по-русски написала. Пример во вложении.
Спасибо.

[kuklp]

В модуль листа:

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [a1].CurrentRegion.Offset(1), [b:b]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Intersect(Target.EntireRow, [F:K,c:D,M:T]) = Target
End Sub

[скорпи]

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

И если не очень сложно не могли бы вы дать маленькие комментарии по коду, где мы просматриваем наличие слова "нет" (а если это слово будет другое?) в столбце B?

Сама написала макрос "по-колхозному", через копирование ячейки из столбца B при соблюдении условия.

[kuklp]

Ну, держите. На Вашем файле. Четко по Вашему заданию:"Если в любой ячейке столбца B  ставим значение, то это значение транслируется на соседние ячейки строки. Но проблема в том, что не во все ячейки, а только которые принадлежат таблицам."

[скорпи]

Вау!!!! Супер!!!! Спасибо огромнейшее!