Аналог формулы СУММЕСЛИ на VBA

[bud-dy]

Добрый день.
Есть два листа.

На листе2 введены данные, например:
ячейка а1 558 ячейка в1 100
ячейка а2 557 ячейка в2 200
ячейка а3 558 ячейка в3 300
На листе1 при вводе в ячейку а1 значения 558 в ячейке в1 должна отобразиться сумма из столбца "в" Лист2 по признаку в столбце "а", т.е. сумма должна получиться 400.
Формулой это можно реализовать СУММЕСЛИ, но как сделать на VBA?

Посоветуйте пожалуйста.

[SAS888]

Пусть диапазон ограничен 10 строками (для простоты).
Конкретно для ячейки "B1" это так:

Sheets(1).Activate
With Sheets(2)
    [B1] = Application.SumIf(.[A1:A10], [A1], .[B1:B10])
End With

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

[bud-dy]

Спасибо. Все получилось.

Правда я написал With Worksheets("Лист1") иначе при перемещении листа внутри книги отбиралась неверная информация.
Этого я не знал.
Еще раз спасибо.

[Karamantak]

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

Пусть диапазон ограничен 10 строками (для простоты).
Конкретно для ячейки "B1" это так:

Sheets(1).Activate
With Sheets(2)
    [B1] = Application.SumIf(.[A1:A10], [A1], .[B1:B10])
End With

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

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

[IgorGO]

укажите книгу и лист в ней перед самим диапазоном и суммуруйте

[Karamantak]

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

укажите книгу и лист в ней перед самим диапазоном и суммуруйте

Если не затруднит, помогите с этим вопросом. Буду благодарен.
Ссылка: http://www.programmersforum.ru/showthread.php?t=254233

[Роман-555]

Добрый день!!!! Подскажите, пожалуйста, столкнулся с такой проблемой, что при заполнении листа Excel не заполнить строку 65000 программа просто виснет... Заполнение идёт из формы через цикл For i = 2 To 65000.

[SAS888]

Сообщение от Роман-555

...Заполнение идёт из формы через цикл For i = 2 To 65000.

А что Вам мешает вместо 65000 использовать 64999 ?

Karamantak См. здесь