Помогите с кодом

[judge_arm]

Когда на одной рабочей книге то все работает нормально, а когда диапазон нужно скопировать на второй ексель файл то цикл останавливается!


Sub Import ()
Dim iG As Long
For iG = 1 To 80
If Range("A" & iG).Value = "260070530417" And Range("B" & iG).Value = "Дебет" Then
Range("A" & iG).Offset(0, 9).Copy
Windows("Plahta.xlsm").Activate
Sheets("Dani").Select
Dim i As Long: i = [A65536].End(xlUp).Row
Cells(i + iG, 7).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next iG
End Sub

[EducatedFool]

Попробуйте так:

Sub Import()
    Dim iG As Long
    For iG = 1 To 80
        If Range("A" & iG).Value = "260070530417" And Range("B" & iG).Value = "Дебет" Then
            Range("A" & iG).Offset(0, 9).Copy
            With Workbooks("Plahta.xlsm").Sheets("Dani")
                .Cells(.[A65536].End(xlUp).Row + iG, 7).PasteSpecial Paste:=xlPasteValues
            End With
        End If
    Next iG
End Sub

[judge_arm]

Спасибо! Кстати если создаю и вставляю второе условие в соседнюю столбец, почему-то диапазон по строкам смещается на количество строк первого условия ...)) Может кто сталкивался с такой проблемой, при импорте надо открывать последний измененный файл по дате, пробовал через Application. FileSearch, непошло, говорят в Ексели 2007 он не работает..