Здравствуйте уважаемые знатоки. Помогите, пожалуйста, написать правильный макрос. Уже четвертый день ползаю по форум и сижу с книгой Гарнаева, но ничего не могу понять. Есть два файла: сводный отчет и платежи. В сводный отчет в столбцы 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
Нужно ли приложить файлы или этой информации будет достаточно?
