поиск данных по двум значениям

[robbe]

SAS888, спасибо Вам! Ваш код еще короче... Я бы очень хотела сама научиться писать такие коды. Читаешь, все понятно, и кажется так просто. Не подскажете, какую хорошую литературу можно изучить, чтобы в короткие сроки начать писать нечто подоное этой задачи. Спасибо.

[SAS888]

Не подскажете, какую хорошую литературу...

1. Воспользуйтесь поиском по форуму. В этом топике неоднократно выкладывались ссылки на литературу по VBA Excel.
2. Для обычных задач, без освоения которых не возможно более глубокое изучение, вполне достаточно Help-а, имеющегося в Excel.

[robbe]

Спасибо большое.
А не ответите еще на несколько простых вопросов: строка в Вашем коде
Set x = Sheets("обороты").[A:A].Find(what:=Cells(i, 1), LookAt:=xlWhole)
означает присвоить переменной x значение ячейки (i,1), найденное на листе обороты в колонке A?
Что конкретно означает .[A:A]. и LookAt:=xlWhole (смотреть по всему листу)?
И в строке Cells(i, 5) = x.Offset(, 5) что означает пропущенный симвоол (, 5)?

[SAS888]

Set x = Sheets("обороты").[A:A].Find(what:=Cells(i, 1), LookAt:=xlWhole)
Это означает: найти на листе "обороты" в столбце "A" ([A:A] - это укороченная запись Columns("A")) значение ячейки Cells(i, 1) активного листа и присвоить объекту x (обратите внимание, что x As Range) найденную ячейку. Доступны все свойства ячейки (.Row, .Column, .Address и т.п.) свойство .Value - по умолчанию. Опция LookAt метода Find указывает, как искать. Доступные константы: xlWhole - полное совпадение и xlPart - частичное.
Все, что я сейчас написал, есть в Help-е по VBA Excel. При чем, более подробно. Читайте. Изучайте. Переписывать весь Help в ответе никто не будет.

что означает пропущенный симвоол (, 5)?

Пропущен 0. Опять же только из-за того, что так короче и это "понимает" компилятор.

[robbe]

Еще раз огромное спасибо, SAS888!