Здравствуйте форумчане!
Столкнулся с необходимостью добавления новой строки при определенном условии.
В столбце "К" от "К2" до "К100" располагается формула "ЕЧИСЛО", соответственно в каждой ячейке записано "ИСТИНА/ЛОЖЬ".
Требуется выполнить: если "К2"=ИСТИНА то под "К2" следует добавить пустую строку. (Для того чтобы в последствии продублировать значения в строке) и так далее до тех пор пока в очередной ячейке "К" либо не будет "ЛОЖЬ" либо пока все ячейки диапазона не проверятся на это условие.
Что-то типа такого (только у меня при такой записи если ключевая ячейка не пустая, условие выполняется):
Столкнулся с необходимостью добавления новой строки при определенном условии.
В столбце "К" от "К2" до "К100" располагается формула "ЕЧИСЛО", соответственно в каждой ячейке записано "ИСТИНА/ЛОЖЬ".
Требуется выполнить: если "К2"=ИСТИНА то под "К2" следует добавить пустую строку. (Для того чтобы в последствии продублировать значения в строке) и так далее до тех пор пока в очередной ячейке "К" либо не будет "ЛОЖЬ" либо пока все ячейки диапазона не проверятся на это условие.
Что-то типа такого (только у меня при такой записи если ключевая ячейка не пустая, условие выполняется):
Код |
---|
Range("K2").Select If activcell = ИСТИНА Then Range("K3").Select Selection.EntireRow.Insert |