перенос листа с сортировкой по признаку

[IgorGO]

во вложении вариант на формулах (для одного листа, для второго можете сделать самостоятельно, собственно, необходимо только исправить условия отбора в формулах столбца 9).
начальник как откроет, так все время все видно.
в 9, 10 столбце определяется какая строка должна быть показана и в каком виде.

[EducatedFool]

но может статься так, что начальство откроет таблицу, но не запустит макрос, и на листах 50-70% и 71-100% будет отображаться старая информация

Добавил в код процедуру, которая перед каждым сохранением книги производит пересчёт листов. Теперь при открытии файла Вы всегда будете видеть свежую информацию.

А вот, собственно, что требовалось добавить:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Main
End Sub

Поменял код, как Вы писали в сообщении №4.
На листе с верояностями 50-70% все просто великоллепно, на 71-100% не считает сумму на этом листе, буду пробовать дальше!!

Смотрите код из файла, прикреплённого к сообщению #9
Туда уже внесены все изменения.

чтоб при запуске всплывала окошко "запусти макрос" и кнопка "ОК".

Теперь это уже не требуется.

[nadenenko_s]

IgorGO, EducatedFool,
большое Вам спасибо за помощь!!!
Всё работает!!!
EducatedFool, остановился на Вашем варианте!

[nadenenko_s]

EducatedFool,
я не совсем понимаю почему так...я добавил пару позиций (выделено красным шрифтом), но они не переносятся на листы с вероятностями

[EducatedFool]

строка IsBlank = (Len(Trim$(ro.Cells(1))) = 0) And (Len(Trim$(ro.Cells(2))) = 0 And (Len(Trim$(ro.Cells(4)))) = 0)
определяет пустые строки.

Раньше было так - если в первом и втором столбце пусто, строка считается пустой.

Теперь (см. строку выше) назначено условие: строка считается пустой, если в первом , во втором и в четвёртом столбце пусто.

Я изначально просто подумал, что товар по каталогу - обязательная к заполнению ячейка...

Теперь всё вроде работает как надо.

Найдёте недоработки - обращайтесь, исправим


PS: вышеприведённую строку правильно было бы написать так:
IsBlank = (Len(Trim$(ro.Cells(1))) = 0) And (Len(Trim$(ro.Cells(2))) = 0) And (Len(Trim$(ro.Cells(4))) = 0)

В спешке напутал со скобками...
Исправьте в коде, там 2 таких строки.

[nadenenko_s]

Спасибо Вам за помощь и разъяснения!!!!
Теперь действительно все работает просто СУПЕР!!!

[EducatedFool]

Вот более корректный вариант макроса.

Устранена проблема с неправильной установкой высоты отдельных строк

[nadenenko_s]

Еще раз спасибо!!

EducatedFool, неудобно Вас напрягать, но к вопросу об информационном окне.
Меня не покидает мысль, что кто то из многочисленных сотрудников начнет корректировать скажем не тот лист, а потом будут непонятки почему не работает...
Вобщем то конечно можно просто написать инстукцию по пользованию, но боюсь ее не все прочитают..
Можно всеж придумать какое то всплывающее при запуске окно, я б там обозначил, что корректировки надо вносить в токой-то лист. обновление наступает после закрытия файла?

[EducatedFool]

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

В тот же модуль, где у Вас находится код

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Main
End Sub


добавьте процедуру, срабатывающую каждый раз при открытии файла.

Например, так:

Private Sub Workbook_Open()
    MsgBox "Убедительная просьба вносить изменения только в лист с названием    'Прогноз оптимистичный'." _
           & vbCrLf & vbCrLf & "Изменения во всех остальных листах на имеют смысла," & vbCrLf & _
           "так как информация на этих листах формируется автоматически при сохранении файла.", 48, "Внимание! Важная информация!"
    On Error Resume Next: ThisWorkbook.Worksheets(3).Activate
End Sub

обновление наступает после закрытия файла?

Обновление происходит ПЕРЕД СОХРАНЕНИЕМ файла.

Можно запускать обновление по самым разным событиям Excel (например, даже после выделения очередной ячейки). Но, мне кажется, это уже лишнее.

Можно вывести кнопочку на панель инструментов для ручного запуска макроса.

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

Можете поставить защиту на листы, которые не требуется изменять.
Макрос будет снимать эту защиту перед копированием, и устанавливать вновь после завершения обработки листов.

[EducatedFool]

Для удобства при формировании своего сообщения можете воспользоваться программой MsgBox Generator