Копирование ячейки в последнюю строку с включенным фильтром

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Fly12

Дата: Вторник, 28.01.2020, 21:51 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день! Если просто копировать, то работает нормально. Если применить фильтр, то копирует не по порядку, а прыгает на первую строку. Как можно улучшить код? Нужно чтобы копировало одинаково с включенным фильтром и без фильтра - копирование в последнюю пустую ячейку, если ячейка с текстом, то копирует ниже в пустую.

[vba]

Код

Private Sub Copy()
ActiveCell.Copy
Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).PasteSpecial
End Sub

[/vba]

Ответить

Pelena

Дата: Вторник, 28.01.2020, 23:38 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Видимо, надо по-другому определять последнюю заполненную строку. Например, свойство CurrentRegion не обращает внимание на скрытые строки.
Подробнее при наличии файла с примером

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Fly12

Дата: Четверг, 30.01.2020, 19:15 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата Pelena, 28.01.2020 в 23:38, в сообщении № 2 ()

Подробнее при наличии файла с примером

Фильтр через textbox1

К сообщению приложен файл: 9544477.xlsm (32.2 Kb)

Ответить

Копирование ячейки в последнюю строку с включенным фильтром

Страница 1 из 1
1