Здравствуйте! При попытке скопировать после фильтрации видимые строки выдается ошибка:
"Не найдено ни одной ячейки, удовлетворяющей указанным условиям"
Код |
---|
With List4 lrv = Application.CountA(.Columns(1).SpecialCells(12)) If lrv > 2 Then .Range(.Cells(2, 1), .Cells(lrv, 3)).SpecialCells(12).Copy List3.[A1] End If End With |