"Трудная" таблица с ее строками и списками

[Trimbl]

Форумчане, здравствуйте!
Не откажите в решении возникших проблем.
Опись их (проблем) многословна, поэтому посмотрите пожалуйста вложение. Рабочий лист-(Справка), образец желаемого -лист (Результат)
Благодарю за внимание.

[Trimbl]

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

Форумчане, здравствуйте!
Не откажите в решении возникших проблем.
Опись их (проблем) многословна, поэтому посмотрите пожалуйста вложение. Рабочий лист-(Справка), образец желаемого -лист (Результат)
Благодарю за внимание.

51 просмотр, а результат - 0
Возможно это не решаемо в Excel, в чем я сильно сомневаюсь.
Возможно, -это глобально, -возможно, но может быть хоть кто нибудь подскажет с чего начать, чтобы размотать этот клубок. Буду весьма признателен за любой совет(наколку).

[IgorGO]

сложного ничего нет, уж больно геморройно...
понимаете одно дело когда ответ занимает 2-5-10 минут - это как производственная гимнастика. и другое дело Ваша задачка - от нескольких часов до полдня, + ее решение не добавит в моей копилке ни новых знаний, ни приемов.
не знаю как другие, я обломился столько времени убить...

[OlegVE]

Здравствуйте

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

51 просмотр, а результат - 0...

Ждите, когда все установят Excel 2007 или выше
До свидания

[vikttur]

С чего начать?
1. Сидеть и ждать добрых самаритян. Запамятовал: кто-то из великих мудрецов советовал "сидеть на пороге своего дома и ждать, пока врага пронесут мимо дома на кладбище".
1. Обратиться за платной помощью.
2. Если все-таки хочется даром, но самому, техзадание (а вопросы так и выглядят) нужно разбить на небольшие задачи, которые пытаться решать самому. Если не получается, составить небольшой пример, обрисовывающий проблему, и задать конкретный вопрос.

[Trimbl]

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

С чего начать?
1. Сидеть и ждать добрых самаритян. Запамятовал: кто-то из великих мудрецов советовал "сидеть на пороге своего дома и ждать, пока врага пронесут мимо дома на кладбище".
1. Обратиться за платной помощью.
2. Если все-таки хочется даром, но самому, техзадание (а вопросы так и выглядят) нужно разбить на небольшие задачи, которые пытаться решать самому. Если не получается, составить небольшой пример, обрисовывающий проблему, и задать конкретный вопрос.

vikttur, здравствуйте!
Благодарен всем за ответы - истинно по мужски, прямо без словоблудия.
Это совсем не техзадание(как могло показаться), просто мой проффессиональный профиль ооочень далек от VBA, горняк я и очевидно не понимая всех тонкостей - перемудрил с вопросом.
Изречение мудреца великолепно, надо запомнить.

А,не могли-бы Вы подсказать как в моем примере сделать так, чтобы при вставке нового участка(Лот) именованый список(диапазон) штабелей(D14) соответствовал названию участка.

[IgorGO]

настроить проверку данных:

Sub SetValid()
    With Range("D14").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=ДВССЫЛ($B$14)"
    End With
End Sub

"Если долго сидеть на берегу реки, то можно увидеть, как по ней проплывет труп твоего врага." Сунь Цзы "Искусство войны".

по непроверенным данным начальная мысль звучит так:
"Если кто-то поступил с тобой несправедливо, не спеши мстить, выйди на берег реки, забей трубку табаком и раньше, чем ты вытряхнешь пепел, труп твоего обидчика проплывет мимо тебя."

[Trimbl]

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

настроить проверку данных:

Sub SetValid()
    With Range("D14").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=ДВССЫЛ($B$14)"
    End With
End Sub

"Если долго сидеть на берегу реки, то можно увидеть, как по ней проплывет труп твоего врага." Сунь Цзы "Искусство войны".

по непроверенным данным начальная мысль звучит так:
"Если кто-то поступил с тобой несправедливо, не спеши мстить, выйди на берег реки, забей трубку табаком и раньше, чем ты вытряхнешь пепел, труп твоего обидчика проплывет мимо тебя."

Вот это интнллллект! IgorGO, спасибо за код и Сунь Цзы. Будем "рыть".

[vikttur]

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

А,не могли-бы Вы подсказать как в моем примере сделать так, чтобы при вставке нового участка(Лот) именованый список(диапазон) штабелей(D14) соответствовал названию участка.

В D7 формула в Проверку_данных

=ДВССЫЛ(ИНДЕКС($B$7:B7;ПОИСКПОЗ("яя";$B$7:B7;1)))

Можно копировать ниже.

[Trimbl]

Пока я "бодался" с Range, пришло Ваше решение. Действительно все гениальное -просто.
vikttur, спасибо, Ваш код работает как часы.