Данные из справочник при помощи VBA

[chib_sv]

Добрый день! Есть таблица, которая содержит общую информацию. Лист Поставщик1 и Поставщик2 копируется в табл. Все_поставщики. Необходимо заполнить лист Итоговый. Пробую решить задачу при помощи автофильтра, прописывая их макросом. Но т.к. справочник будет большой и наименование, код товара будет изменяться приходится постоянно менять в макросе. А так же как на листе Итоговый в поле Стоимость сумировалась стоимость по данному коду товара. Подскажите как решить проблему, упростив код. Заранее спасибо!

[Hugo121]

Расскажите коротенько как именно нужно заполнить - что-то лениво из файла/кода выколупывать логику.
Думаю тут работа для словаря.

[chib_sv]

Если коротко, то запускаю макрос и лист Итоговый заполняется, беря данные из листа Все_поставщики. В данном варианте лист Справочник роли не играет, т.к. код товара отдельно прописывается в макросе, это очень не удобно и не прававильно, т.к. наименований товара будет около двухсот (придется каждый раз менять в макросе). Задача в том чтобы при изменении наименований и кода товара не приходилось каждый раз прописывать в макросе, а данные (код и наименование товара) брались из справочника.

[Hugo121]

Попробуйте стандарно сделать сводную (в поиск "эксель сводная"). Можно её макросом обновить (хотя вручную проще).
Если сводная категорически не подходит - можно сделать макрос на словаре. Только непонятно, на кой там вообще справочник?

[chib_sv]

В том то и дело, что сейчас справочник не используется, а макросе (на автофильтре) отдельно прописывается код товара (.AutoFilter Field:=2, Criteria1:="001-1"). Код 001-1 соответствует ячейки B1 листа Спровочника. Вопрос как в макросе, вместо "001-1" прописать ячеку B1 листа Справочник.

[Hugo121]

Если писать нормальный макрос или использовать сводную - суммы по всем позициям, существующим в исходных данных, подтянутся автоматически. Т.е. справочник нужен только для того, чтоб из общей кучи выбрать только те позиции, которые есть в справочнике (ну или показать, что вот эти есть, а этих нет).
А если нужна сводная по существующим - справочник не нужен.

[chib_sv]

Не только чтобы показать из общей кучи только те позиции, которые есть в справочнике, но и скопировать их на лист Итоговый, каждый в соответсвующюю ячейку на листе Итоговый
With Sheets("все_поставщики").Range("b1" )
.AutoFilter
.AutoFilter Field:=2, Criteria1:="001-1" (заместо 001-1, была ячейка Справочник B1)
Sheets("все_поставщики").Range("a2: d1000").Copy
Worksheets("итоговый").Range("A2"). PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With

[Hugo121]

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

[chib_sv]

Не знаю я как это сделать, по этому и обратился за помощью))

[Hugo121]

Ну например:

Sub one()
Dim c As Range

        For Each c In Sheets("справочник").UsedRange.Columns(2).Cells
            With Sheets("все_поставщики").Range("b1")
                .AutoFilter
                .AutoFilter Field:=2, Criteria1:=c
                Sheets("все_поставщики").UsedRange.Offset(1).Copy
                Worksheets("итоговый").Cells(Rows.Count, "A").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                                                                         :=False, Transpose:=False
            End With
        Next

End Sub

Но это не сводная, это просто всё отфильтрованное. Делал максимально используя Ваш код - там что-то лишнее, что-то нужно бы ещё добавить...