Добрый день! Проблема следующая: после применения фильтра, если нет строк с данными, то пропустить часть кода, а если есть, то выделить и скопировать на другой лист.
Перечитал несколько форумов и примерно накидал код, но все равно работает не так. Прошу уточнить код.
Перечитал несколько форумов и примерно накидал код, но все равно работает не так. Прошу уточнить код.
Код |
---|
'если нет отфильтрованных строк, кроме шапки таблице, то пропустить строчки кода, иначе выполнить код If ActiveSheet.Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Count = 1 Then Range("A2:F" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheets("16").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial End If |