новичок в 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