{quote}{login=VovaK}{date=05.07.2011 02:45}{thema=}{post}Почему вы считаете, что при использовании ActiveX Ваша задумка не выполнима?  
 
Наоборот. Формируете строку заказа посредством ComboBox, затем клик на кнопку Ok и сформированная строка копируется в форму заказа, и так до заполнения всего заказа.  
Оформить ComboBox лучше сверху вниз, так удобнее заполнять, потому что наше зрение лучше контролирует объекты по вертикали.{/post}{/quote}  
Впринципи, можно попробовать, спасибо Вам)

{quote}{login=Юрий М}{date=05.07.2011 02:33}{thema=}{post}Akin, Вы мой файл смотрели?{/post}{/quote}  
Все конечно хорошо, вот только в базу ничего не добавишь и не изменишь(((

{quote}{login=Юрий М}{date=05.07.2011 02:33}{thema=}{post}Akin, Вы мой файл смотрели?{/post}{/quote}  
Вот только сейчас открыл, изучаю макрос

{quote}{login=Andych}{date=05.07.2011 02:13}{thema=}{post}Что хотите получить в итоге?  
Сводные, случаем не подойдут?{/post}{/quote}  
В итоге хочу получить возможность формировать спецификации по своему усмотрению.  
Вот пример итога: см. приложенный файл диапазон A13:D17

{quote}{login=GIG_ant}{date=05.07.2011 01:46}{thema=}{post}Я бы посоветовал организовать выпадающие списки не проверкой данных, а Элементами (Поле со списком ActiveX). Как сделать связанные обсуждалось сдесь http://www.planetaexcel.ru/forum.php?thread_id=29132. А чтобы в выпадающих списках исключить дубликаты, можно использовать словари - Dictionary (код совсем не сложный - обсуждалось много раз){/post}{/quote}  
Я уже думал об этом, но, к сожаления, мне такой вариант не подходит, поскольку из выпадающих списков должна формироваться таблица, а это при использовании Поля со списком ActiveX невозможно.

{quote}{login=nerv}{date=05.07.2011 01:22}{thema=}{post}http://www.planetaexcel.ru/tip.php?aid=34{/post}{/quote}  
Информацию по данной ссылке я прекрасно знаю. К делу это отношения не имеет.

Реального файла пока нету, я обдумываю принципы). Допустим, файл post_238627.xlsx и есть реальный.

Юрий М, Вы не до конца поняли ситуацию. Если Вы сейчас откройте файл post_238627.xlsx, то увидеть, что в ячейке B13 существует выпадающий список со значениями:  
 
 Весы платформенные  
 Весы платформенные  
 Весы платформенные  
 Весы платформенные  
 Весы монорельсные  
 
а должно быть:  
 
 Весы платформенные  
 Весы монорельсные  
 
И вот как это сделать, понятия не имею.  
Впринципи, додумался, как сделать этот список уникальных значений с помощью формулы и автозаполнения на другом листе, но если добавить или удалить строку в БД, то все ссылки летят(((

У Вас, господин Spare, все равно все завязано на списке уникальных значений $J$2:$J$4, а такого быть не должно. Нужно просматривать БД и объединять одинаковые значения в одно.

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

Пишешь формулу в начальную ячейку заполнения: "=ЕСЛИ(C1="";"";$A$5)" и растягиваешь на нужный диапазон

Допустим, есть БД в экселе с повторяющимися значениями. Как сделать, чтобы в выпадающем списке эти значения занимали одну позицию?  
Прилагаю файл, проблема в ячейке B13

Учусь в техническом вузе. Делаю расчёт валов на усталостное напряжение для кафедры. Для построения эпюр изгибающих моментов использовал диаграммы с областями.  
Расчет величины изгибающего момента ведется на каждый миллиметр длины вала. Значит и диапазон выделения ячеек диаграммы идет от 0 мм до конечной длинны вала. Но длина вала у всех разная, значит и конечная ячейка будет плавающая.  
Написал макрос, который при нажатии кнопки автоматически выделяет нужный диапазон ячеек. Все работало нормально, пока я не доделал всю программу, и не пришло время защищать листы.  
При нажатии на кнопку выдает ошибку:  
"Run-time error '1004'  
Application-defined or objeck-defined error"  
 
Вот текст макроса:  
Sub Построение_Диаграмм_Тихоход_ЧР()  
Dim a As Integer  
a = Application.Range("'Калькуляционный Лист'!D40") + 3  
 
   ActiveSheet.ChartObjects("Диаграмма 3").Activate  
   ActiveChart.PlotArea.Select  
   ActiveChart.SetSourceData Source:=Sheets("Калькуляционный Лист").Range( _  
       "K3:K" & a)  
     
       Range("A101").Select  
End Sub  
 
Помогите, пожалуйста, решить проблему.