Страницы: 1
RSS
VBA макрос для копирования строки на одном листе и вставления в другой
 
Добрый день.

Мне необходимо скопировать строку на одном листе и вставить ее в конец умной таблицы на другом листе.

Нашла на сайте статью о том, как написать макрос для этого.
https://www.planetaexcel.ru/techniques/11/1233/

Sub Add_Sell()
   Worksheets("Форма ввода").Range("A20:E20").Copy                        
   n = Worksheets("Продажи").Range("A100000").End(xlUp).Row                
   Worksheets("Продажи").Cells(n + 1, 1).PasteSpecial Paste:=xlPasteValues          
End Sub

Но в моем случае выдается ошибка "Object doesnt support this property or method".
И дебаггер выделяет строку Worksheets("Продажи").Cells(n + 1, 1).PasteSpecial Paste:=xlPasteValues  

Подскажите, пожалуйста, в чем может быть проблема и как исправить.
Спасибо!
 
Ольга,
а можно увидеть Ваш пример?

у меня вроде бы ок отрабатывает
 
Вот файл, спасибо
 
поправьте имена листов в макросе
с ‹ист1
на Лист1
и в строке
Worksheets("‹ист2").Sells(n + 1, 1).PasteSpecial xlPasteValues
(тоже Лист....)
и Sells
На Cells
Изменено: Ігор Гончаренко - 29.06.2022 11:41:54
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
:oops:  Боже, какие дурацкие ошибки :)
Спасибо. В оригинальном файле названия листов написаны корректно, но вот Sells вместо Cells... Спасибо еще раз)
Страницы: 1
Наверх