Коллеги, добрый день! Нужна ваша помощь. Макрос выдает ошибку (метод pastespecial из класса range завершен неверно) по выделенной строке ниже.
При этом, макрос отлично работает, если вставка осуществляется в другой лист книги (отличный от листа, на котором копируются ячейки). Мне нужно, чтобы накопление информации и ее ввод осуществлялись на одном листе (в верхней строке ввод (B4:P4), в нижних (начиная с 6 строки) сохранение информации.
При этом, макрос отлично работает, если вставка осуществляется в другой лист книги (отличный от листа, на котором копируются ячейки). Мне нужно, чтобы накопление информации и ее ввод осуществлялись на одном листе (в верхней строке ввод (B4:P4), в нижних (начиная с 6 строки) сохранение информации.
| Код |
|---|
Sub 1()
Sheets("База данных").Select
Range("B4:P4").Select
Selection.Copy
Sheets("База данных").Select
Range("B6:P1000" & Cells(Rows.Count, 1).End(xlUp).Row).Select
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub |
