Включен автофильтр. При копировании активной ячейки в пустую ячейку того же столбца в сомом конце списка (скрытую автофильтром) выдается сообщение об ошибке.

Dim r As Range, g As Range ''Ищем первую пустую ячейку с столбце C
Set r = ActiveSheet.Range("C6:C4000")
Set g = r.Find(What:="") ''Запоминаем строку в перем. g

perem = Range("C" & ActiveCell.Row) ''В переменную perem наимен.оборуд из "C" & ActiveCell.Row
Range("C" & g.Row) = perem ''Вставляем

Может можно на время выполнения макроса отключать автофильтр.
При отключенном фильтре все работает

Пользователь2При включенном автофильтре все нормально отрабатывает.

Включи обработку ошибок.



1. Обрати внимание. Скорее всего автофильтр У ТЕБЯ не захватывае ячейку ку производится запись. т.е. она не СКРЫТА автофильтром.
2. А с on error попробую. Спасибо за подсказку !

on Error не помогает. Сообщение не выдается на и запись НЕ ПРИЗВОДИТСЯ

talgaton Error не помогает. Сообщение не выдается на и запись НЕ ПРИЗВОДИТСЯ

Может где нибудь в свойствах автофильтра можно задать " РАЗРЕШИТЬ ВСТАВКУ В СКРЫТЫЕ ЯЧЕЙКИ"

Пользователь2Я проверял на Excel 2000 Sp-3.

У тебя какой?

2000 SR-1

Пользователь2Книгу можешь прикрепить?
Вся не влезает попробую усечь до 70 кб

talgat Пользователь2Книгу можешь прикрепить?
Вся не влезает попробую усечь до 70 кб

Не умещается. Могу на E-male

Пользователь2Удали все лишние листы, данные, зазипь и выложи.

Хочу проверить факт ошибки, либо ошибка из-за версии, либо в книге.

Все равно >120 кб

Пришлось отказатся от использования автофильтра