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

[pivas]

Примерно так:
Sub Worksheet_Activate()
i = 1
Do While Cells(i, 1) <> ""
If Sheets("Лист1").Cells(i, 1).Value <> Sheets("Лист2").Cells(i, 1).Value Then GoTo 10
Sheets("Лист1").Cells(i, 3) = Val(Sheets("Лист1").Cells(i, 2)) - Val(Sheets("Лист2").Cells(i, 2))
10
i = i + 1
Loop
End Sub

[sttafi]

данный код не работает

[pivas]

Проверьте, у меня работает без проблем.

[EducatedFool]

Вот так тоже будет работать:

Sub Worksheet_Activate()
    Dim cell As Range: On Error Resume Next: Application.ScreenUpdating = False
    For Each cell In Intersect(Me.Cells.SpecialCells(xlCellTypeConstants), Me.Columns(1)).Cells
        If cell = Sheets("Лист2").Range(cell.Address) Then cell.Next.Next = cell.Next - Sheets("Лист2").Range(cell.Address).Next
    Next cell
End Sub

[sttafi]

вроде бы все делаю так же,а ошибку найти не могу ( посмотрите пожалуйста

[EducatedFool]

Странный у Вас какой-то файл...

Я заменил Ваш макрос на более простой:

Sub test()
    ' пусто
End Sub

И то, выполняется он только один раз, а при повторном запуске выдаёт ошибку 32809...
(у меня Excel 2003)

Впервые с таким сталкиваюсь. Посоветовать могу только перенести таблицы из этого файла в новый.

[pivas]

Вы не тот столбец отнимаете:
Sheets("Штатное расписание").Cells(i, 3) = Val(Sheets("Штатное расписание").Cells(i, 2)) - Val(Sheets("Физические лица").Cells(i, 3))

[sttafi]

про столбец да...не так формулу написала ((
исправила код:
Private Sub CommandButton1_Click()
With Sheets("Штатное расписание")
i = 2
Do While Sheets("Физические лица").Cells(i, 2) <> Sheets("Штатное расписание").Cells(i, 1)

Sheets("Штатное расписание").Cells(i, 3) = Val(Sheets("Штатное расписание").Cells(i, 2)) - Val(Sheets("Физические лица").Cells(i, 3))

i = i + 1

Loop
End With
End Sub
получается, что теперь программа сравнивает только i-ую строку обеих страниц...а нужно,чтобы сравнивала каждую строку второй с каждой строкой первой...переделала следующим образом:
Private Sub CommandButton1_Click()
i = 3
j = 2
Do While Sheets("Физические лица").Cells(i, 2) <> ""
If Sheets("Физические лица").Cells(i, 2).Value = Sheets("Штатное расписание").Cells(j, 1).Value Then


Sheets("Штатное расписание").Cells(j, 3) = Val(Sheets("Штатное расписание").Cells(j, 2)) - Val(Sheets("Физические лица").Cells(i, 3))

i = i + 1
j = j + 1
End If
Loop
End Sub

теперь эксель виснет....как изменить код?

[sttafi]

вот так эксель не виснет:
Private Sub CommandButton1_Click()
i = 3
j = 2
Do While Sheets("Физические лица").Cells(i, 2) <> ""
If Sheets("Физические лица").Cells(i, 2).Value <> Sheets("Штатное расписание").Cells(j, 1).Value Then GoTo 10


Sheets("Штатное расписание").Cells(j, 3) = Val(Sheets("Штатное расписание").Cells(j, 2)) - Val(Sheets("Физические лица").Cells(i, 3))
10
i = i + 1
j = j + 1

Loop
End Sub

но и правильно не считает ((

[pivas]

sttafi, у Вас не совсем верно организован цикл проверки. Если подождёте чуток, попробую нарисовать.