Есть файл (вложение) Есть макрос (знаю, что не правильный)
PrivateSub Worksheet_Change(ByVal Target As Range)
a = ActiveCell.Row
b = 5
c = 11
d = 14
If Cells(a, b).Value = "Нет"Then Cells(a, b + 6).Select If Cells(a, c).Value = "Нет"Then Cells(a, c + 3).Select If Cells(a, d).Value = "Нет"Then Cells(a, d + 5).Select
EndSub
Суть дела следующая: Если в определенном столбце (выделены желтым) появляется текст "Нет" то курсор нужно переместить в след. желтый столбец (показано стрелками в примере) но если там будет другой текст, например "Да" то перемещать курсор как обычно!! Но курсор зацикливается на одной ячейке, как я понял потому, что он в данной строке проверяет условие для "Нет" и видит его как True Помогите написать так, чтобы он проверял "Нет" только в текущей редактируемой ячейке а не во всей строке!! Чтобы не зацикливался!! Ато получается если в строке есть хоть одно значение "Нет" то он ровняется на него а нам это уже не нужно!! Фух... попытался объяснить понятно!
Буду благодарен за любую помощь
Есть файл (вложение) Есть макрос (знаю, что не правильный)
PrivateSub Worksheet_Change(ByVal Target As Range)
a = ActiveCell.Row
b = 5
c = 11
d = 14
If Cells(a, b).Value = "Нет"Then Cells(a, b + 6).Select If Cells(a, c).Value = "Нет"Then Cells(a, c + 3).Select If Cells(a, d).Value = "Нет"Then Cells(a, d + 5).Select
EndSub
Суть дела следующая: Если в определенном столбце (выделены желтым) появляется текст "Нет" то курсор нужно переместить в след. желтый столбец (показано стрелками в примере) но если там будет другой текст, например "Да" то перемещать курсор как обычно!! Но курсор зацикливается на одной ячейке, как я понял потому, что он в данной строке проверяет условие для "Нет" и видит его как True Помогите написать так, чтобы он проверял "Нет" только в текущей редактируемой ячейке а не во всей строке!! Чтобы не зацикливался!! Ато получается если в строке есть хоть одно значение "Нет" то он ровняется на него а нам это уже не нужно!! Фух... попытался объяснить понятно!