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

[nadenenko_s]

Уважаемые форумчене, доброе время суток!

Прошу Вашей помощи!
Есть таблица с заказами по регионам. Уже третий день ломаю голову, не могу реализовать задумку: автоматически переносить данные с основного листа на другие. Перенос должен осуществляться по признаку вероятности. При этом долна сохраняться разбивка по регонам (важно!).
Не могли б направить на путь истинный. Может где то описывался похожий случай, или какими функциями надо пользоваться.

Прошу не судить строго!

Заранее спасибо за помощь.

С уважением.

[IgorGO]

несколько вопросов:
1. куда относить 70% к 50-70 или 70-100?
2. на какой лист нести 30% или просто проигнорировать

[nadenenko_s]

Спасибо за желание помочь
1. 70 относим на оба листа, т.е. оба листа включают крайние значения.
2. 30 % игнорируем, они остануться на общем листе заказов

[EducatedFool]

Вот один из вариантов решения задачи:

Запустите макрос Main

Только кое-что я не учёл...

В формулах указаны ссылки типа =СУММ(R[-13]C:R[-1]C)

После удаления отдельных строк вычисления происходили некорректно,
поэтому я копировал всё, кроме формул.

Но, если подправить формулы (в формулах я совсем не разбираюсь, так что это не ко мне), можно будет заменить код

    sh_main.UsedRange.Copy
    sh_70.Range("a1").PasteSpecial xlPasteFormats
    sh_70.Range("a1").PasteSpecial xlPasteColumnWidths
    sh_70.Range("a1").PasteSpecial xlPasteValuesAndNumberFormats

    sh_100.Range("a1").PasteSpecial xlPasteFormats
    sh_100.Range("a1").PasteSpecial xlPasteColumnWidths
    sh_100.Range("a1").PasteSpecial xlPasteValuesAndNumberFormats

на код

 
    sh_main.UsedRange.Copy
    sh_70.Range("a1").PasteSpecial xlPasteAll
    sh_100.Range("a1").PasteSpecial xlPasteAll

и на сформированных листах будут верные значения сумм.

[nadenenko_s]

УРАА!!!!
Огромное спасибо!!
Это то что надо!!!.

Есть еще один маленький вопросик!
Можно ли как то сделатьтак, чтоб при запуске файла всплывало информативное окно. (дело в том, что эта таблица будет лежать в сети, и ей будут пользоваться много людей)

[nadenenko_s]

Спасибо за предложенное решение!!!
Скажите, а можно как то реализовать, чтоб на листах с вероятностью считало именно то, что отсеяно?
И еще, почему то послередактирования основного листа, и запуска макроса, листы с вероятностями не обновляются и остаются со старыми данными. Это как то можно вылечить?

[EducatedFool]

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

Можно.

Только я представления не имею, каким должно быть это так называемое информативное окно .

Если Вы подробно распишите, что это окно должно из себя преставлять, и на основе каких данных формироваться, - сделаем.

[EducatedFool]

И еще, почему то послередактирования основного листа, и запуска макроса, листы с вероятностями не обновляются и остаются со старыми данными. Это как то можно вылечить?

Почему не обновляются? Проверил, обновляются.

При запуске макроса происходит полное удаление данных с листа.
Для этого предусмотрена строка sh_70.UsedRange.Clear: sh_100.Cells.Clear

После этого происходит повторное заполнение листов.

Скажите, а можно как то реализовать, чтоб на листах с вероятностью считало именно то, что отсеяно?

Можно. Например, назначить имена диапазонам ячеек, и вместо суммы диапазона (R[-13]C:R[-1]C) считать суммы именованных диапазонов.

Наверняка, есть несколько других, более простых вариантов.
Но это вопрос к специалисту по формулам - IgorGO

[EducatedFool]

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

Вот теперь всё корректно считается:

[nadenenko_s]

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

По поводу всплывающего окна:
Идея такова.
Таблища будет лежать в сети, ее заполняют сотрудники отдела, каждый вносит свои изменения и сохраняет, но может статься так, что начальство откроет таблицу, но не запустит макрос, и на листах 50-70% и 71-100% будет отображаться старая информация.
Хотелось сделать, чтоб при запуске всплывала окошко "запусти макрос" и кнопка "ОК".