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

[valerij]

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

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

А если под туже кнопку, "Выбрать накладные", было бы здорово?

[VictorM]

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

дубликаты, в уже готовом списке накладных, можно "отловить" тем же условным форматированием. В ячейке А2 - условное форматирование
Формула и вводим =СЧЁТЕСЛИ($A:$A;A2)>1
и размножаем на весь диапазон

[VictorM]

А если под туже кнопку, "Выбрать накладные", было бы здорово?

с одной кнопочкой

[valerij]

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

не знаю, посмотреть надо

А еще лучше, на каждом листе есть же кнопка "Поиск", к ней!!
Уже сделал, все класс!
Завтра в офисе гляну, отпишусь

[VictorM]

А еще лучше, на каждом листе есть же кнопка "Поиск", к ней!!

тогда вставьте вышеопубликованный код в макрос Sum в самом конце
Next
'вставить здесь код суммы отрицательных чисел
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

[valerij]

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

тогда вставьте

Я вот так сделал, правильно?

Sub Minus()
With Application
.EnableEvents = False
.ScreenUpdating = False
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
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

[VictorM]

если запускать отдельно - правильно.
Если же в теле другой процедуры (одной кнопкой), то выделенное красным - лишнее. Это там уже присутствует.

[valerij]

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

если запускать отдельно - правильно.
Если же в теле другой процедуры (одной кнопкой), то выделенное красным - лишнее. Это там уже присутствует.

Понял, сей час попробую!
ОК!

Мало того, я привязал все к кн. "Поиск" на листе "НАКЛ", минуя кн. "Выбрать накладные", т. е. сначала идет выбор накладных и тут же сверка, вобщем вариантов теперь у меня, море, учится, учится и учится!!

З. Ы.
Блин, Спасибо, забыл

VictorM!!
С П А С И Б О

[valerij]

VictorM!
Сегодня пробовал на офисном ПК, добавилось 84 №-ра, нажавши кн. "Выбрать накладные", стал ждать, но так и не дождался, более 30 мин, слышу вентилятор проца завывает, загрузка проца 100%, не стал рисковать, завершил процесс. Что -то не так.

Вот у меня "родился" алгоритм для этой задачи, но реализовать его, я не знаю как, с синтаксисом, пока не дружу.

Вот он:

Сделаем одно условие, всегда, ввод № -ра накладной, будет начинается с первой строки и подряд

Алгоритм для 1-го дня
x=1 где х, счетчик совпадений строк

Если I31 = 0, то перейти на I(31+48), иначе, x=x+1, копировать в Лист "НАКЛ" в столбец А(х)
Если I32 = 0, то перейти на I(31+48), иначе, x=x+1, копировать в Лист "НАКЛ" в столбец А(х)
Если I33 = 0, то перейти на I(31+48), иначе, x=x+1, копировать в Лист "НАКЛ" в столбец А(х)
Если I34 = 0, то перейти на I(31+48), иначе, x=x+1, копировать в Лист "НАКЛ" в столбец А(х)
Если I35 = 0, то перейти на I(31+48), иначе, x=x+1, копировать в Лист "НАКЛ" в столбец А(х)
Если I36 = 0, то перейти на I(31+48), иначе, x=x+1, копировать в Лист "НАКЛ" в столбец А(х)

для 2-го дня

Если I79 = 0, то перейти на I(79+48), иначе, x=x+1, копировать в Лист "НАКЛ" в столбец А(х)
Если I80 = 0, то перейти на I(79+48), иначе, x=x+1, копировать в Лист "НАКЛ" в столбец А(х)
Если I81 = 0, то перейти на I(79+48), иначе, x=x+1, копировать в Лист "НАКЛ" в столбец А(х)
Если I82 = 0, то перейти на I(79+48), иначе, x=x+1, копировать в Лист "НАКЛ" в столбец А(х)
Если I83 = 0, то перейти на I(79+48), иначе, x=x+1, копировать в Лист "НАКЛ" в столбец А(х)
Если I84 = 0, то перейти на I(79+48), иначе, x=x+1, копировать в Лист "НАКЛ" в столбец А(х)

И так далее

[VictorM]

ИМХО зависнуть из-за работы этого макроса система не могла.
А насчет алгоритма - надо разобраться.