необходимо доработать файл, в котором автоматически по запуску макроса срабатывает фильтр на листе2 (по данным с другого листа3). При этом отфильтровывается от одной до .....строк (конечное количество строк зависит от много чего, обычно больше нескольких строк не отфильтровывается). Есть необходимость в отфильтрованных строках листа 2 в нужном мне столбце (допустим "С") записать букву"Р". (или что то другое, но это я надеюсь сам освоить по примеру того, что мне предложат)
необходимо доработать файл, в котором автоматически по запуску макроса срабатывает фильтр на листе2 (по данным с другого листа3). При этом отфильтровывается от одной до .....строк (конечное количество строк зависит от много чего, обычно больше нескольких строк не отфильтровывается). Есть необходимость в отфильтрованных строках листа 2 в нужном мне столбце (допустим "С") записать букву"Р". (или что то другое, но это я надеюсь сам освоить по примеру того, что мне предложат)ovechkin1973
With Лист1.AutoFilter.Range .Columns(3).Offset(1).SpecialCells(xlCellTypeVisible) = "p" .Offset(.Rows.Count)(1, 3).Clear End With
[/vba] Но только здесь есть скрытая засада - xlCellTypeVisible сработает только в том случае, если у Вас не больше 8172 (вроде так, если и ошибся, то ненамного) несвязанных диапазонов. Иначе "Выделить видимые ячейки" выделит всё подряд
[p.s.]Перенес тему в ветку про VBA[/p.s.]
Такой вариант [vba]
Код
With Лист1.AutoFilter.Range .Columns(3).Offset(1).SpecialCells(xlCellTypeVisible) = "p" .Offset(.Rows.Count)(1, 3).Clear End With
[/vba] Но только здесь есть скрытая засада - xlCellTypeVisible сработает только в том случае, если у Вас не больше 8172 (вроде так, если и ошибся, то ненамного) несвязанных диапазонов. Иначе "Выделить видимые ячейки" выделит всё подряд
xlCellTypeVisible сработает только в том случае, если у Вас не больше 8172 (вроде так, если и ошибся, то ненамного) несвязанных диапазонов. Иначе "Выделить видимые ячейки" выделит всё подряд
не совсем понял Ваш комментарий, точнее не понял наверно полностью. Код не будет адекватно работать, если у меня на листе больше 8172 строки или после включения фильтра их будет больше, чем 8172
xlCellTypeVisible сработает только в том случае, если у Вас не больше 8172 (вроде так, если и ошибся, то ненамного) несвязанных диапазонов. Иначе "Выделить видимые ячейки" выделит всё подряд
не совсем понял Ваш комментарий, точнее не понял наверно полностью. Код не будет адекватно работать, если у меня на листе больше 8172 строки или после включения фильтра их будет больше, чем 8172ovechkin1973
Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.