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

Есть Лист с данными, а также лист с диаграммой и формой списка.  
Задача состоит в следующем. Пользователь в листе с диаграммой выберает через форму списка необходимую дату, при этот диаграмма отображает данные из этой даты. Остальная работа с листами пользователю запрещена.  
Пример прилагаю.  
 
И второй вопрос. Есть небольшой запрос который как раз и выберает данные из базы, в том виде с которыми диаграмма и работает.  
Так вот нужно что бы макрос брал данные из запроса(который выполнился), открывал файл с диаграммой, определял конец списка дат с данными и добавлял строку с новой датой и данными.  
Как это можно организовать???

Всем доброго дня!!!  
 
Столкнулся с такой проблемой.  
Достаточно часто делаю SQL запросы, но для того что бы не писать оболочку в delphi под конкретный запрос для юзера, хотелось бы этот запрос просто размещать в макросе.  
Небольшие запросы нормально отрабатываются и выводят пользователям читабельные и оформленные данные, НО большие запросы ни в какую не хотят выполнятся. Как можно выполнять запросы в которых как минимум 50 срок кода?  
Может кто знает - подскажите плиз.

Всем добрый день!  
Возникла задача, но вот с решением как то туго, если есть желающие помочь - буду очень благодарен.  
Суть задачи:  
Имеется прайс-лист с кодами по товару, необходимо сделать скидки на определенный товар (скидки все разные но группируются по производителю)  
Есть макрос который выполняет пересчет по всему прайсу - что явно не подходит  
Лично я представляю себе так - есть массив с кодами на товар, крутица цикл с условием, который проверяет в массиве есть ли такое значение или нет, если есть - добавляем скидку, если нет.....  
Но на словах вроде все понятно, как реализовать в макросе  
На данный момент используется цикл с условием такого вида:  
   For i = 2 To LastRow Step 1  
     If Cells(i, 9).Value = "Нет" Then Cells(i, 5).Value = Cells(i, 5).Value * 0.985  
      Cells(i, 5).NumberFormat = "#,##0.000"  
   Next i  
Вообщем как и где сделать массив и как вставить в цикл (тот что есть) проверку значений из массива.  
 
Заранее спасибо!!!!!!!!!!!!!!!