Добрый день!
Создала новую тему.
Помогите, пожалуйста, очень очень нужна ваша помощь. Никак не могу понять в чем дело.
Макрос обрабатывает несколько листов с таблицами, но бывают листы пустые. При выборе автофильтром в колонке ВА по условию не пустые ячейки макрос должен вставить формулу в Колонку AZ. Но если в колонке ВА нет непустых ячеек, то он вместо - ничего тогда не вставлять в AZ макрос начинает вставлять во все пустые ячейки листа формулу. Ошибка начинается в этом месте:
Код |
---|
Range("B2").CurrentRegion.AutoFilter Field:=53, Criteria1:="<>"
On Error Resume Next
With ActiveSheet.AutoFilter.Range.Columns(52)
.Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).FormulaR1C1 = "=RC[1]"
End With
|
В примере на листе 1 макрос работает, на листе 2 не работает. Так же я в пример вставила исходные данные с двумя листами (когда работает макрос и когда нет), т.к. после работы макрос удаляет 1 столбец. Столбцы где он вставляет формулы и ставит фильтры, ранее тоже добавляются макросом и не имеют названия.