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

[valerij]

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

А насчет алгоритма - надо разобраться.

Попробуй, пожалуйста, попробуй!

[VictorM]

valerij

Попробуй, пожалуйста, попробуй!

да я тут уже просмотрел, то что выкладывал - удаление1.xls
.
Если Вы ничего не модифицировали, виснуть там нечему.
Да и алгоритм быстрее и проще чем Вы предлагаете.
Вообще-то, в таких случаях, сложный макрос нужно разбить на части и "обкатывать" каждую процедуру отдельно. А потом уже "собирать" их под "одну кнопочку".
1. Собирает сумму отрицательных чисел

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

2. Копирует все ячейки накладных на лист НАКЛ. (Здесь присутствуют незначительные тормоза из-за Sheets("НАКЛ").Activate и Sheets(iList.Index).Activate)

 For i = 1 To 31
        Range(ActiveCell, ActiveCell.Offset(5, 0)).Copy
        ActiveCell.Offset(48, 0).Activate
        Sheets("НАКЛ").Activate
        ActiveSheet.Paste
        ActiveCell.Offset(6, 0).Activate
        Sheets(iList.Index).Activate
    Next i

3. Удаление пустых ячеек на листе НАКЛ.

Range("A2:A3000").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

Не видя Ваш конкретный вариант не могу сказать, что там у Вас происходит.

[valerij]

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

[Не видя Ваш конкретный вариант не могу сказать, что там у Вас происходит.

Да все без изменений как в удаление1.xls

А че мой вариант, он сразу копирует, ничего не очищает, ни чего не сдвигает, так же просматривает диапазон, причем не весь, а только, до первого нуля ибо после нуля нет смысла просматривать

Я вообще не могу понять "поведение" Вашего макроса, на моем 2-яд. -первый запуск -5 мин., второй запуск - 20 сек, третий запуск 35 сек., секундомером замерял.

В офисе, тот же файл, первый запуск 2,5 мин., второй -тоже.
Ввожу еще 84 №-ра, все, как зациклелся, вот бы индикатор какой нибудь, хотя бы временно.

Вот я изменл, только один лист
iListNames = Array("ЛЕН")
Запуск -44 сек и 78 № скопировал в НАКЛ

[VictorM]

Я вообще не могу понять "поведение" Вашего макроса

да вроде ж уже все разжевано.

Я повторно выкладываю файл, у меня макрос работает ровно 4 сек.

[valerij]

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

да вроде ж уже все разжевано.

Ни чего не понимаю, вот, попробуй, в НАКЛ, кн. ПОИСК, и засекай время.

[VictorM]

Что ж Вы батенька голову морочите.
Говорим об одном, делаете другое.
У Вас кнопкой запускаются две процедуры. Не разобрался пока, что делает CompData, но для начала поменяйте местами запуск. (Кстати, чтобы разобраться где трабла, позапускайте их поотдельности).Сначала Run "CompData", затем Run "ВыбратьНакладные".
Это по поводу

он сразу копирует, ничего не очищает, ни чего не сдвигает

Затем, работа поотдельности:
Run "CompData" - 3-4 сек.
Run "ВыбратьНакладные" - 4-5 сек.
Все вместе - 7-8 сек. Время чисто по часам, поэтому конечно неточно. Но это уже не принципиально. У меня кстати тоже 2-х ядерник.
***
Проверил еще сейчас на 1.8 ГГ обычный
работа поотдельности:
Run "CompData" - 8-9 сек.
Run "ВыбратьНакладные" - 12-15 сек.
Все вместе - 22-25 сек.

[valerij]

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

У Вас кнопкой запускаются две процедуры. Не разобрался пока, что делает CompData, но для начала поменяйте местами запуск.

Местами их менять нельзя ибо CompData сверяет в листе НАКЛ, столбец А с С, а что бы в А были данные сначала запускаю Ваш макрос.

Пробовал так ничего не менял в "удаление1", но заполнил все даты, получилось 1181 строка и время 2 мин 30 сек

[VictorM]

Местами их менять нельзя ибо CompData сверяет в листе НАКЛ, столбец А с С, а что бы в А были данные сначала запускаю Ваш макрос.

тогда нужно подредактировать CompData (это по поводу форматирования, очистки и заливки). Когда запускаете два макроса подряд надо смотреть, что и как. Ща некогда разбираться.

время 2 мин 30 сек

чёт не то, долго.

[VictorM]

Значит так. Поверил еще раз Ваш файл М.
Все нормально работает. Чтобы очистить заливку столбца А, допишите в самом конце CompData Range("A2:A3000").Interior.ColorInd ex = xlNone 'очистить заливку'.
Вы говорили "не очищает" - все он очищает, только этого не видно. У Вас же для этого записано Application.ScreenUpdating = False. Кстати в конце нужно дописать Application.ScreenUpdating = True
Время работы макросов в файле М - 8-10 сек.

[valerij]

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

тогда нужно подредактировать CompData (это по поводу форматирования, очистки и заливки). Когда запускаете два макроса подряд надо смотреть, что и как. Ща некогда разбираться..

CompData работает Супер, что на офисном,.... А как два подряд?
Сначала один, потом пауза, MsgBox, а затем только второй, модули то разные.

чёт не то, долго.

Давай попробуем мой алгоритм, сотворить!