Sanja,спасибо большое!
Всё не так и страшно как оказывается.

Единственное что печалит.
Перенес код на новый лист, при проверке выдает ошибку ссылаясь на ListBox1.
Как понимаю его нужно самому прорисовать?

Доброе время суток.
Понадобилась функция с выпадающим списком с поиском по части слова или по одной букве.
Нашел на просторах код. Все подходит.
Единственное не могу разобраться:
-  как изменить столбец в выпадающим списком (вроде TextBox, стоит первый, хочу изменить что бы выпадал второй или еще какой)
- и как изменить столбец с данными (имена, тоже берет данные из первого столбца).
Так же может есть вариант как с помощью клавиш перейти на выпадающие подсказки (ListBox, в данном коде работает только с мышкой), выбрать вариант и ENTER'ом внести его в ячейку.

Прошу прощения. Файл был в переименован и сохранен в xls. В формате csv нам присылает поставщик.

К сожалению данным файлом пользуются несколько человек, поэтому локально использовать не получится.

Файлы приложил. Первый это расчет проекта, второй - файл с ценами. Он подрезан, т.к. оригинал весит 90 мб. Файл с ценами лежит в локалке. Сеть стабильная и широкая.

Больше интересует вопрос.
Если я повешу файл с цена на SQL, как можно будет осуществить запрос данных из Excel? Только через VBA или можно будет штатными средствами?

Доброе время суток формучане.

Есть файл с ценами в котором 2 столбца - артикул и цена. В файле порядка 440 000 строк.
Задача такая. Конструктора скидывают файл в котором проставлена комплектация с кол-во и артикулами, мы рассчитываем стоимость проекта.
Сперва считали с помощью ВПР, собирая данные из файла с ценами. Что бы проставить цены на 10 позиций, уходило порядка 40 мин.
Затем я видоизменил формулу:
=ЕСЛИ(ИНДЕКС('\\srv\общая_2\_Oтдел ПТК\Price\PriceETM\[priceETM_Inet.xlsx]price'!$B$1:$B$440000;ПОИСКПОЗ(СЖПРОБЕЛЫ(D33);'\\srv\общая_2\_Oтдел ПТК\Price\PriceETM\[priceETM_Inet.xlsx]price'!$B$1:$B$440000;0))=СЖПРОБЕЛЫ(D33);ИНДЕКС('\\srv\общая_2\_Oтдел ПТК\Price\PriceETM\[priceETM_Inet.xlsx]price'!$C$1:$C$440000;ПОИСКПОЗ(СЖПРОБЕЛЫ(D33);'\\srv\общая_2\_Oтдел ПТК\Price\PriceETM\[priceETM_Inet.xlsx]price'!$B$1:$B$440000;0));НД())

Работа пошла напорядок быстрее. Однако когда в проекте 100 строк для просчета, ситуацию новая формула не спасает.

Какие еще есть варианты ускорения расчета, может нужно смотреть в сторону VBA, Acces или SQL?

От предыдущего внесения информации.

А просто прописать очистку ячеек через сутки в макрос не получиться?!

А как можно узнать время изменения ячейки?

П.С. образец приложил.

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

Нашел макрос подходящий, но не знаю как прикрутить очистку цвета через сутки или двое.


Option Explicit
Dim vValue
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count > 1 Then Exit Sub
   If Target <> vValue Then Target.Interior.Color = vbRed
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Count = 1 Then vValue = Target
End Sub

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