Подскажите пожалуйста. Пытаюсь скопировать диапазон в ячейку на другом листе. Но вываливается в ошибку Run-time error '1004'. Application-defined or object-defined error
FirstCellcolumn = 15 i = 0 With Worksheets("Элементы Фасада") For Each tCell In .Range("ТЭлементыФасада[ID заказа]") If tCell.Value = MyID Then .Range(Cells(tCell.Row, 3), Cells(tCell.Row, 7)).Copy Destination:= _ Worksheets("Новый заказ").Range(Cells(FirstCellcolumn + i, 2)) i = i + 1 End If Next tCell End With
[/vba]
Мне думается, что ошибка в этой части строки: Worksheets("Новый заказ").Range(Cells(FirstCellcolumn + i, 2)) Потому что на этом же листе, но допустим, в диапазон Range("A333") все копируется прекрасно. Подскажите, где неправ?
Подскажите пожалуйста. Пытаюсь скопировать диапазон в ячейку на другом листе. Но вываливается в ошибку Run-time error '1004'. Application-defined or object-defined error
FirstCellcolumn = 15 i = 0 With Worksheets("Элементы Фасада") For Each tCell In .Range("ТЭлементыФасада[ID заказа]") If tCell.Value = MyID Then .Range(Cells(tCell.Row, 3), Cells(tCell.Row, 7)).Copy Destination:= _ Worksheets("Новый заказ").Range(Cells(FirstCellcolumn + i, 2)) i = i + 1 End If Next tCell End With
[/vba]
Мне думается, что ошибка в этой части строки: Worksheets("Новый заказ").Range(Cells(FirstCellcolumn + i, 2)) Потому что на этом же листе, но допустим, в диапазон Range("A333") все копируется прекрасно. Подскажите, где неправ?PATRI0T
Сообщение отредактировал PATRI0T - Понедельник, 07.12.2015, 20:40
Ренжи у Вас с точками и именами листов, а Кэллсы Вы почему-то повесили в неизвестности (что равносильно активному листу, если у Вас макрос в обычном модуле). Вот они и обижаются.
Добавлено Как раз про это в ссылке Андрея и написано (ближе к середине текста)
Ренжи у Вас с точками и именами листов, а Кэллсы Вы почему-то повесили в неизвестности (что равносильно активному листу, если у Вас макрос в обычном модуле). Вот они и обижаются.
Добавлено Как раз про это в ссылке Андрея и написано (ближе к середине текста)_Boroda_