VBA-1004 ОШИБКА - Попытка копирования в именованный диапазон - Новое в VBA - PullRequest
Новая
       33

VBA-1004 ОШИБКА - Попытка копирования в именованный диапазон - Новое в VBA

0 голосов
/ 04 февраля 2019

новичок в VBA и изо всех сил пытаюсь выяснить, что я делаю неправильно - я не могу.Мой код ниже.Я продолжаю получать сообщение об ошибке 1004 (ошибка приложения или объекта).

У меня есть два условия, которые должны быть выполнены, прежде чем значение ячейки можно будет скопировать в именованный диапазон на sheet2.Кажется, все идет хорошо, пока я не хочу скопировать его.

Любая помощь очень ценится !! 

Sub MoveHrs()

Dim i As Integer 'Loop
Dim Wb As Workbook, Ws As Worksheet 'Set objects
Set Wb = ThisWorkbook 'workbook
Set Ws = Wb.Worksheets("NDE2018") 'Sheets
Dim Ws2 As Worksheet
Set Ws2 = Wb.Worksheets("Sheet2") '2nd worksheet

'loop through each cell
For i = 24 To Ws.Cells(Ws.Rows.Count, "C").End(xlUp).Row 'from row 24 to last cell with data

    If Ws.Cells(i, 3) > 0 And Ws.Cells(i, 3).Offset(0, -1) = "18liist" Then 'find hours and copy to appropriate named range in ws2
        Ws.Cells(i, 3).Copy Ws2.Range("LIIST18" & Rows.Count).End(xlUp).Row + 1
    ElseIf Ws.Cells(i, 3) > 0 And Ws.Cells(i, 3).Offset(0, -1) = "18liiot" Then 'find hours and copy to appropriate named range in ws2
        Ws.Cells(i, 3).Copy Ws2.Range("LIIOT18" & Rows.Count).End(xlUp).Row + 1

  End If
Next i

Application.CutCopyMode = False 'suppress the marching ants
End Sub
...