Поиск и перенос данных

[ruvster]

На первом листе в колонке «а» находятся наименования, в колонке «в» цифры. Например:
Вася 8
Петя 7
Коля 5
На втором листе наименования. Например:
Маша
Даша
Глаша

Задача:

Поиск, например, «Васи» и перенос (копирование) «8», например Глаше.
т.е. на втором листе должно быть:
Глаша 8
И т.д.

[uhm]

Есть такая функция самого Excel, называется ВПР (она же VLOOKUP). Очень подходит для этого случая, и никакие макросы не нужны - нужно только задать соответствие Вась Глашам.

[ruvster]

Нет. Нужен макрос

[uhm]

Зашибись. Всегда радовали такие ответы.

Ну тогда в чем вопрос?

[ruvster]

Вопрос прост. Я предполагаю, что нужен такой алгоритм:
1. Найти "Вася" и выделить эту ячейку.
2. ActiveCell.Offset(0, 1).Copy....
Вот тут и проблема.
Куда копировать то?
т.е. Надо выделить ячейку ActiveCell.Offset(0, 1) от "Глаши" туда и копировать.
Понимаю, что это все я тут по чайниковски усложнил.
Так вот и вопрос:
Как это примерно должно выглядеть в коде?

[GSerg]

Код: Выделить всё

worksheets(1).columns(1).find("Вася",,xlValues,xlWhole).offset(0,1).copy worksheets(2).columns(1).find("Глаша",,xlValues,xlWhole).offset(0,1)

[ruvster]

Спасибо. Все гениальное просто.
Дополнительный вопрос.
Что делать если Глаша будет стоять не в первом столбце?
Спасибо.

[uhm]

worksheets(2).columns(x).find("Глаша"...)

где x - номер колонки, около которой стоит Глаша.

[ruvster]

Да, да.
Прошу прощенье, хрень сморозил.

[ruvster]

Еще вопрос.
Что если Глаше нужна сумма от Васи и Пети
Спасибо.

[GSerg]

Гнать Глашу в шею тогда.


А что, сам не можешь на основании приведённого кода?

[ruvster]

Пробовал:
worksheets(1).columns(1).find("Вася",,xlValues,xlWhole).offset(0,1)+ worksheets(2).columns(1).find("Глаша",,xlValues,xlWhole).offset(0,1)).copy...
Не пролезает чегой-то.

[GSerg]

А должно?
Копируется не значение, а диапазон.
А значение присваивается. Оператором =.

[ruvster]

Да я уже бошку себе свернул и, знаю, что все окажется гороздо проще, чем я сейчас думаю, но будьте людьми напишите код. Не сообразить мне чтой-то никак.
Спасибо.

[GSerg]

worksheets(2).columns(1).find("Глаша",,xlValues,xlWhole).offset(0,1).value = worksheets(1).columns(1).find("Вася",,xlValues,xlWhole).offset(0,1).value + worksheets(1).columns(1).find("Петя",,xlValues,xlWhole).offset(0,1).value


Можно без ".value".

[ruvster]

Спасибо.
Самое-то печальное, что я так пытался сделать. И почему-то выдавало ошибку. Видать где-то просто опечатался.
Еще раз спасибо.