Цитата |
---|
написал: =ЕСЛИОШИБКА(ВПР(A2;$C$2:$C$28;1;0);"") |

04.02.2010 19:03:15
Файл сводный отчет должен иметь определенный шаблон (здесь не полный) тянется из двух: просрочка и платежи. Просрочка выгружается дата в дату и подтягивается в сводный ежедневно (т.е.должники прибавляются, сумма просрочки изменяется по каждому из них и т.д.). А платежи формируются на два дня позже. Должники так же разные: сегодня заплатил один, а завтра другой. Основная задача состоит в том, что бы руководство видело какой должник когда заплатил и какую сумму (всю, больше, меньше и т.д., а так же , что бы подгрузить в программу новые данные. Предоставлять отчет нужно еженедельно в разбивке по датам.
Пример: Должник с суммой просрочки на 01.02.10 1000рублей, 03.02.10 приходят данные, что он внес сумму 950 рублей 01.02.10. Вот эта сумма должна быть видна в сводном на 01.02.10. |
|
|
04.02.2010 16:02:55
Здравствуйте уважаемые знатоки. Помогите, пожалуйста, написать правильный макрос. Уже четвертый день ползаю по форум и сижу с книгой Гарнаева, но ничего не могу понять. Есть два файла: сводный отчет и платежи. В сводный отчет в столбцы P "Дата посл, платежа" и Q "Сумма подтв, платежей" необходимо подтянуть данные из файла платежи из столбцов AM "Дата посл. платежа" и AP "Сумма подтв, платежей". Написала макрос с функцией ВПР, но получается какая-то фигня: лишние данные т.к.ВПР с запасом (количество строк всегда разное), а дата вообще подтягивается 00.00.1900 (эту функцию я из макроса удалила. Не работает так же макрос замены н/д на 0.
'Открывает файл Платежи Workbooks.Open Filename:= _ "C:\Documents and Settings\iny\Рабочий стол\Тест\Платежи.xls" 'Удаляет лишние столбцы Columns("A:B").Select Selection.Delete Shift:=xlToLeft 'Вставляет ВПР Windows("Сводный отчет010210.xls").Activate Range("Q2").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-16],'[Платежи.xls]Лист 1'!C1:C40,40,0)" Selection.AutoFill Destination:=Range("Q2:Q3000") Range("Q2:Q3000").Select Windows("Платежи.xls").Activate Windows("Сводный отчет010210.xls").Activate 'Убирает функцию Columns("Q:Q").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Заменяет #Н/Д на 0 Columns("Q:Q").Select Selection.Replace What:="#Н/Д", Replacement:="0", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Range("A2").Select 'Закрывает файл Платежи Windows("Платежи.xls").Activate ActiveWindow.Close 'Удаляет должников без оплаты 'Dim s As Range m1: Columns("Q:Q").Select Set s = Columns("Q:Q").Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If s Is Nothing Then Exit Sub Rows(s.Row).Delete GoTo m1 Range("A1").Activate End Sub Нужно ли приложить файлы или этой информации будет достаточно? |
|
|