Исходя из моего предыдущего вопроса, я бы хотел скопировать значения вставки в диапазоне ячеек.
Код, использованный в моем предыдущем запросе:
Sub CopyYesInW()
Dim lastRow As Long, i As Long
'determine last row in column W
lastRow = Cells(Rows.Count, "W").End(xlUp).Row
For i = 1 To lastRow
'if Yes in W then copy from P to W in current row
If Cells(i, "W").Value = "Yes" Then
Cells(i, "P").Value = Cells(i, "P").Value
End If
If Cells(i, "W").Value = "Yes" Then
Cells(i, "U").Value = Cells(i, "U").Value
End If
Next
End Sub
Я изменил код в приведенном ниже скрипте, чтобы проверить диапазон ячеек C6:N6
для значений = Yes
, а затем скопируйте значения вставки в ячейки в C9:N9
. Однако я не уверен, что я делаю неправильно. Возникла ошибка времени выполнения '5', недопустимый вызов процедуры или аргумент
Sub CopyYesInForecast()
Dim lastRow As Long, i As Long
'determine last row in column W
lastRow = Cells("C6")
For i = 1 To lastRow
'if Yes in W then copy from P to W in current row
If Cells(i, "C6:N6").Value = "Yes" Then
Cells(i, "C9:N9").Value = Cells(i, "C9:N9").Value
End If
Next
End Sub