Суммировать значения по дате

[gavrylyuk]

Добрый день. Возникла задача. Есть книга в ней уплаченные деньги по датам. Нужно ссумировать суммы за одну дату и вставить в другую книгу в определенную ячейку.
Подскажите пожалуйста, как это сделать с поможью макроса
В приложении два файлика
исх - это откуда тянется, а оплаты - куда нужно затянуть

[gavrylyuk]

Есть код, но он не работает, может попробовать его подправить, но у меня не получается
Sub 1()
Dim x As Range, i As Long, fst As String
For i = 2 To Cells(Rows.Count, "a").End(xlUp).Row + 5
With Workbooks("исх.xls").Sheets("paymen t")
Set x = .Columns("d").Find(what:=Cells(i, "b"), lookat:=xlWhole)
If Not x Is Nothing Then
fst = x.Address
Do
If Cells(i, "b") = ??? Then Cells(i, "c") = Cells(i, "c") + .Cells(x.Row, "b")
Set x = .Columns("d").FindNext(x)
Loop While fst <> x.Address
End If
End With
Next
End Sub

[valerij]

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

Есть код, но он не работает, может попробовать его подправить, но у меня не получается

Sub 1()
If Cells(i, "b") = ??? Then Cells(i, "c") = Cells(i, "c") + .Cells(x.Row, "b")

1) Что эта за единица, поставьте любое, Sub zxc()
2) ??? - где вы их взяли, наверно, так
If Cells(i, "b") = fst Then Cells(i, "c") = Cells(i, "c") + .Cells(x.Row, "b")

С исправлениями макрос работает

[SAS888]

Посмотрите вложение. Запустите макрос "Main". Оба файла должны быть открыты.

[gavrylyuk]

Спасибо большое!!!