Управление условным форматированием

[VictorM]

Немного прояснилось, попробую разобраться.
Неторопясь.

[valerij]

Сообщение от VictorM

Неторопясь.

Конечно, Конечно, не торопись, я так думаю, первая задача, не проста!

[VictorM]

valerij , посмотрите.
Где-то так. Если я опять правильно Вас понял.

[valerij]

Сообщение от VictorM

правильно понял.

VictorM!
Все ОК, конечно очень долго, это на моем, 2-ядерном!!
НО!
Технология такова, вводятся № накладных, во всех листах за два, три дня, т. е. ввел №, нажал на "Выбрать накладные"....
Или каждый нажим кнопки, приводит к копированию опять, всего, с самого начала?

А серый фон, нельзя что бы не копировался?
Кнопку "Выбрать накладные", надо перенести в лист "НАКЛ"

Другого пока не заметил, потестирую дальше

[VictorM]

Все ОК, конечно очень долго, это на моем, 2-ядерном!!

долго удаляются пустые ячейки, может кто предложит что-либо другое?

Или каждый нажим кнопки, приводит к копированию опять, всего, с самого начала?

да, так проще, чтобы не выбирать "а что же тут новенького?"

А серый фон, нельзя что бы не копировался?

в конце процедуры, выше .EnableEvents = True допишите строку
Range("A2:A3000").Interior.ColorInd ex = xlNone 'очистить заливку'новая строка

Кнопку "Выбрать накладные", надо перенести в лист "НАКЛ"

так перенесите, это же только пример. Вырежте из листа ЛЕН и вставьте на лист НАКЛ.

[valerij]

Сообщение от VictorM

так перенесите, это же только пример.

VictorM!
Да без обид, конечно, так и сделаю, уж это я умею.
А скорость, ну ничего, подожду, спешить не куда, главное, РАБОТАЕТ.
Я чуть освобожусь и продолжу тестирование с рекомендованными исправлениями.

VictorM!
Сложная задача?

[VictorM]

Ради Бога, какие могут быть обиды :-)

Сложная задача?

да нет, обычная.
p.s.
файл с изменениями

[VictorM]

valerij, переделал удаление.
Работает значительно быстрее, посмотрите.

[valerij]

Сообщение от VictorM

да нет, обычная.

Как я "Завидую", в хорошем смысле!
Класс и скорость увеличилась, теперь щас проверю(наверно это у меня ошибка, дубликат одного № нашел).

VictorM!
А компот!!!
(Задача № 2)

Да, моя ошибка, один № в двух листах!!!

[VictorM]

Сообщение от valerij

А компот!!!
(Задача № 2)

не знаю как это сделать формулами, с VBA можно сделать так.
Располагаете на каждом листе кнопочку и "цепляете" на неё один макрос для всех.

Sub Сумма()
Range("I38").Select
zSum = 0
    For i = 1 To 30
        iSum = ActiveCell.Value
        If iSum < 0 Then zSum = zSum + iSum
        ActiveCell.Offset(48, 0).Activate
    Next i
 Range("I1500").Value = zSum
 Range("I1500").Activate
End Sub