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

[sttafi]

есть 2 таблице на листе1 и листе 2. Нужно написать след программу:
в столбце С листа1 должна быть разница столбца В листа 1 и столбца В листа 2 если данные в ячейках столбца А листа 1и 2 совпадают.


Private Sub Worksheet_Activate()
i = 1
Do While Cells(i, 1) <> ""
If Sheets("Лист1").Cells(i, 1).Text = Sheets("Лист2").Cells(i, 1).Text Then
Sheets("Лист1").Cells(i, 1) = Val(Sheets("Лист1").Cells(i, 2)) - Val(Sheets("Лист2").Cells(i, 2))
End If
Loop
i = i + 1
End Sub


выдает ошибку

[EducatedFool]

А чем Вас формулы не устраивают?

[sttafi]

а как это формулами реализовать?

[IFRSoff]

=ЕСЛИ(Лист1!A1=Лист2!A1;Лист1!B1-Лист2!B1;0)

[sttafi]

...я наверно неправильно объснила...если А1 листа1 = А1 листа 2 то да...
с листа 2 из столбца А программа ищет совпадающие ячейки на листе 1 столбца А и при совпадении выполняется "-". то есть необязательно ,что А1листа1 равно А1 листа 2 может получиться так, что она будет равна ну например А6 или А9 листа 2...

[IFRSoff]

Ну не правильно объяснила А отнимать что? Ячейки, которые расложены в столбце B напротив одинакоых ячеек столбца А? Т.е. Если А1 = А6, то В1-В6, верно? Значения в столбце А уникальны?

[sttafi]

да =)))) если А1листа1=А6листа2 то на листе1 в ячейке С1 = В1 листа 1-В6 (листа2)....и так нужно проверить весь лист 2

[IFRSoff]

{=ЕСЛИ(ИЛИ(Лист2!A:A=Лист1!A1);Лист 1!B1-ВПР(Лист1!A1;Лист2!A:B;2;0))} - формула массива
=ЕСЛИ(ПОИСКПОЗ(A1;Лист2!A:A;0);Лист 1!B1-ВПР(Лист1!A1;Лист2!A:B;2;0)) - обычная формула

[sttafi]

спасибо а как нужно исправить мой код, чтобы он заработал ( очень интересно )

[IFRSoff]

Не знаю как