Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Макрос для подсчета суммы ячеек по условию цвета
 
Доброго времени суток! Помогите составить макрос, который бы шел по строкам вниз проверяя цвет ячейки, и если ячейка бесцветная, то нужно сложить все, что идет под ней до следующей бесцветной ячейки, а если бесцветные ячейки подряд, то вэлью оставлял прежним.
Я предполагаю должно работать с "If ActiveCell.Interior.ColorIndex = xlNone Then" но не знаю как зациклить дальше.
Убрать лишнее в макросе
 
Доброго времени суток! Подскажите,  вот есть рабочий код для вставки из конкретной книги конкретные ячейки (книги на выбор, ячейки везде статичны). Первое вхождение в строке происходит через newRow а дальше от последней активной. Как быть с:

1)при выполнении кода, затираются данные последних ячеек в строке, а там формулы, от чего не происходит их перерасчет;
2)можно ли сделать цикл из повторяющихся инсертов?
Если будут советы по упрощению кода - прислушаюсь (присмотрюсь) обязательно!
Страницы: 1
Наверх