Продвинутый фильтр с автопростановкой на VBA

[DiemonStar]

ну, тогда делайте через словари:

Set Dict = CreateObject("Scripting.Dictionary")

запускайте перебор прайса по строкам

For Each Rw In Range("ваша область данных").Rows

получаете для строки уникальное обозначение продукта:

S = Rw.Cells(1, НомерСтолбцаНазвания) & "_" & Rw.Cells(1, НомерСтолбцаДиаметра) ' и т.д.

Проверяете словарь:

If Dict.Exists(S) Then
  Rw.Cells(1, СтолбецЦены) = CDbl(Dict(S))
Else
  Dict(S) = Rw.Cells(1, СтолбецЦены)
End If

и в общем-то все... единственно - на каждый изменяемый столбец потребуется отдельный словарь.

[Lamo]

А что такое словари? Я думал можно реализовать через поиск одинакового значения ячейки. Или что-то не понимаю?
Вопрос. Как привязать чекбокс к столбцу?

[DiemonStar]

А что такое словари?

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

Я думал можно реализовать через поиск одинакового значения ячейки.

Поиск по словарю работает быстрее, чем поиск по ячейкам...

Вопрос. Как привязать чекбокс к столбцу?

Можно через массив. Но это по-любому уже придется обрабатывать руками.

[Lamo]

Вопрос:
В каком разделе прописывать этот код? В модуле?
Форма юзера у меня готова(во всяком случае внешний вид ).
Как связать форму юзера с модулем?

Если вместо "СтолбецЦены" прописать ActiveCell.Column код будет работать?

If Dict.Exists(S) Then
  Rw.Cells(1, СтолбецЦены) = CDbl(Dict(S))
Else
  Dict(S) = Rw.Cells(1, СтолбецЦены)
End If

По-моему, так должно быть, чтобы передавалось значение столбца активной ячейки. Или я не прав?

[DiemonStar]

По-моему, так должно быть, чтобы передавалось значение столбца активной ячейки. Или я не прав?

К активной ячейке претензий нет. Только активная ячейка не обязательно находится в столбце цены. По-сути столбец цены - фиксированное значение. Там хватит простой константы.

[Lamo]

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

К активной ячейке претензий нет. Только активная ячейка не обязательно находится в столбце цены. По-сути столбец цены - фиксированное значение. Там хватит простой константы.

Просто автоматическую простановку хочу сделать не только на столбец Цены, но и на все остальные, для гибкости поиска выставил столько чекбоксов. Или я Вас не понял?