Цикл для просмотра диапазона и выбора нужных ячеек.

[Dorvir]

Привет всем!

Помогите пожалуйста решить небольшую задачу: выбор определенных ячеек из диапазона (подробное описание в приложенном файле).

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

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

Вот даже сейчас не могу понятнее обьяснить, надо смотреть файл, там на 1 листе описание того что должно происходить...

Спасибо всем за помощь!

[Dorvir]

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

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

Помогите это исправить пожалуйста!

[Serge_Bliznykov]

Dorvir, замените в модуле TotalVolumeSuppliers2
код:

        Set rgPastTotalVolume = ThisWorkbook.Worksheets("Контейнеры").Range("A2:I2")

на код

        Dim IMax As Integer, OutAddress As String
        
        IMax = ThisWorkbook.Worksheets("Контейнеры").Cells(ActiveSheet.UsedRange.Rows.Count, "A").End(xlUp).Row
        IMax = IMax + 1
        OutAddress = "A" & Trim(Str(IMax)) & ":" & "I" & Trim(Str(IMax))
        Set rgPastTotalVolume = ThisWorkbook.Worksheets("Контейнеры"). _
          Range(OutAddress)

p.s. возможно в будущем Вам потребуется очистка листа "Контейнеры" - т.е. теперь записи всегда будут добавляться в конец листа

[Dorvir]

Спасибо! Очень интересный ход! Мне правда не требуется смещение диапазона вниз, после каждой вставки! Но в будущем наверняка такое нужно будет!

[Dorvir]

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

[Dorvir]

Но у меня уже это само получилось. Если кому интересно, можете посмотреть файл. На каждой неделе расчета бюджета (лист ПОТРЕБНОСТИ) можно посмотреть объем по каждому поставщику.
Для этого нужно встать на столбец Приход и нажать кнопку Volume2.
В картинке данные по объему обновятся.

[Dorvir]

Кстати может кто-нибудь подскажет как сделать так чтобы данные копировались с ссылками.

Сейчас написан такой код:

rgTotalVolume.Copy
rgPastTotalVolume.PasteSpecial Paste:=xlValues

При попытке заменить его на:

rgTotalVolume.Copy
rgPastTotalVolume.Select
Worksheets("Контейнеры").Paste Link:=True

Выдается ошибка:

Run-time error '1004':
Метод Select из класса Range завершен неверно

[valerij]

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

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

Ищет по 13 листам в диапазоне [I31:I36] и вставляет все найденное на отдельный лист в один столбец, устроит?

[SAS888]

А зачем при этом применять специальную вставку? если просто скопировать (все) и вставить, то ссылка также скопируется. Например, пусть в ячейке "A1" имеется ссылка. Выполнив

[A1].Copy [B1]

в ячейке "B1" получим и значение ячейки "A1" и такую же ссылку.