run-time error '1004' (Application-defined or object-defined error)

[Oldy7]

Доброго времени суток!

Есть небольшая (надеюсь) проблема. Поставлена задача сделать посредством макроса автоматическую заявку поставщику исходя из собственного запаса и наличия свободных адресов хранения.

Вот текст макроса:
Sub Заказ()
'
' Макрос1 Макрос
'
' Сочетание клавиш: Ctrl+Е
'
Dim pn As String
Dim npl As Integer
Dim pla As Integer
Dim num As Integer
Dim dels As Integer
dels = 1
Sheets("Лист1").Range(Cells(1, 10), Cells(4000, 17)).ClearContents
For a = 1 To 188 Step 1
Sheets("Лист1").Range(Cells(a + 1, 1), Cells(a + 1, 7)).Select
num = ThisWorkbook.Worksheets("Лист1").Ce lls(a + 1, 5)
npl = ThisWorkbook.Worksheets("Лист1").Ce lls(a + 1, 3)
pla = ThisWorkbook.Worksheets("Лист1").Ce lls(a + 1, 4)
pn = ThisWorkbook.Worksheets("Лист1").Ce lls(a + 1, 1)
If npl < 1 Then
GoTo endfor
End If
If pla < npl Then
npl = pla
End If
Sheets("Лист2").Range(Cells(num, 1), Cells(num + npl - 1, 7)).Copy
Sheets("Лист1").Range(Cells(dels, 10), Cells(dels + npl - 1, 17)).Paste
del = dels + npl
endfor:
Next a
End Sub

[Oldy7]

Офис 2007. Т.к. я чайник в макросах, то возможно в 2007 иной синтаксис команд и пр., чем в тех примерах, которые я надергал на различных форумах.

[IgorGO]

все аналогично: офис 2007 и чайник в макросах.
исправьте:

Sheets("Лист2").Range(Cells(num, 1), Cells(num + npl - 1, 7)).Copy

на:

    Range(Sheets("Ëèñò2").Cells(num, 1), Sheets("Ëèñò2").Cells(num + npl - 1, 7)).Copy _
    Destination:=Range(Sheets("Ëèñò1").Cells(dels, 10), Sheets("Ëèñò1").Cells(dels + npl - 1, 17))

[VictorM]

Sheets("Лист2").Range(Cells(num, 1), Cells(num + npl - 1, 7)).Copy

Sheets("Лист1").Range(Cells(dels, 10), Cells(dels + npl - 1, 17)).Paste

Попробуйте заменить на

With Sheets("Лист2")
    .Range(.Cells(num, 1), .Cells(num + npl - 1, 7)).Copy Destination:=Sheets("Лист1").Range(Cells(dels, 10), Cells(dels + npl - 1, 17))
    End With

[Oldy7]

Пасиба) Сейчас опробуем...

[Hugo121]

Работает так - правда не понял, что делает (не вникал)

With Sheets("Лист2")
.Range(.Cells(num, 1), .Cells(num + npl - 1, 7)).Copy Sheets("Лист1").Cells(dels, 10)
End With

[Oldy7]

Run time error 13. Type mismatch.
Эксель обозвал это так. Куда он меня послал не ясно, но макрос так и не работает)

[VictorM]

Можно так написать код, чтобы не "селектить" на первом листе

Sub Заказ()
'
' Макрос1 Макрос
'
' Сочетание клавиш: Ctrl+Е
'
    Dim pn As String
    Dim npl As Integer
    Dim pla As Integer
    Dim num As Integer
    Dim dels As Integer
    dels = 1
    Sheets("Лист1").Range(Cells(1, 10), Cells(4000, 17)).ClearContents
    For a = 1 To 188 Step 1
        With Sheets("Лист1")
            num = .Cells(a + 1, 5)
            npl = .Cells(a + 1, 3)
            pla = .Cells(a + 1, 4)
            pn = .Cells(a + 1, 1)
        End With
        If npl < 1 Then
            GoTo endfor
        End If
        If pla < npl Then
            npl = pla
        End If
        With Sheets("Лист2")
            .Range(.Cells(num, 1), .Cells(num + npl - 1, 7)).Copy Destination:=Sheets("Лист1").Range(Cells(dels, 10), Cells(dels + npl - 1, 17))
        End With
        del = dels + npl
endfor:
    Next a
End Sub

но!
Вылетает в ошибку на 51-й строке
что-то там у Вас с данными не так на втором листе в этой строке

[VictorM]

Run time error 13. Type mismatch.

Эксель обозвал это так. Куда он меня послал не ясно, но макрос так и не работает)

Смотрите мое сообщение выше.

[VictorM]

Нашлось.
На Листе 2 нет значения 65196-1R300 которое ищется из яч.А51 Листа1
потому и вылетает в ошибку
надо такой вариант предусматривать и обрабатывать как-то