|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
18.07.2008, 17:45 | #1 |
Пользователь
Регистрация: 26.06.2008
Сообщений: 55
|
Суммировать значения по дате
Добрый день. Возникла задача. Есть книга в ней уплаченные деньги по датам. Нужно ссумировать суммы за одну дату и вставить в другую книгу в определенную ячейку.
Подскажите пожалуйста, как это сделать с поможью макроса В приложении два файлика исх - это откуда тянется, а оплаты - куда нужно затянуть |
18.07.2008, 18:34 | #2 |
Пользователь
Регистрация: 26.06.2008
Сообщений: 55
|
Есть код, но он не работает, может попробовать его подправить, но у меня не получается
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 |
18.07.2008, 19:48 | #3 | |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Цитата:
2) ??? - где вы их взяли, наверно, так If Cells(i, "b") = fst Then Cells(i, "c") = Cells(i, "c") + .Cells(x.Row, "b") С исправлениями макрос работает Последний раз редактировалось valerij; 18.07.2008 в 20:16. |
|
21.07.2008, 07:22 | #4 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Посмотрите вложение. Запустите макрос "Main". Оба файла должны быть открыты.
Чем шире угол зрения, тем он тупее.
|
21.07.2008, 12:52 | #5 |
Пользователь
Регистрация: 26.06.2008
Сообщений: 55
|
Спасибо большое!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Максимальное значение по дате | ZUZA | Microsoft Office Excel | 5 | 05.07.2008 19:30 |
Поиск по дате. в чем ошибка?? | missy | БД в Delphi | 6 | 20.06.2008 13:06 |
Добавление дня к дате | Askat | БД в Delphi | 2 | 03.03.2008 11:30 |
как организовать поиск по дате... | Pitbull | БД в Delphi | 18 | 24.06.2007 22:28 |
как суммировать только определенный месяц? | Алька | Microsoft Office Excel | 2 | 08.05.2007 08:50 |