очистка скрытых фильтром строк

[pton]

Здравствуйте!

Задача состоит в маркировке определенных строк. В определенный столбец заносится определенный символ. При выборе фильтра и нажатии на определенную кнопку должны маркироваться выбранные записи. Соответственно предыдущая маркировка должна быть очищена

Подскажите пожалуйста как можно очистить значения в строках скрытых фильтром. Отключать фильтр и устанавливать, не вариант

Код типа

Код: (vb)

Columns(1).SpecialCells(xlCellTypeConstants, xlTextValues).Clear

или

Код: (vb)

Columns(1).Clear

или

Код: (vb)

Columns(1).ClearContents

очищают только отфильтрованные видимые ячейки

[Дмитрий Щербаков(The_Prist)]

Попробуйте так:

Код: (vb)

Range("A:A").Value = Empty

[pton]

Результат тот же. После снятия фильтра значения скрытых строк остались

[vikttur]

Чистить в цикле

Код: (vb)

    With Worksheets("Лист1")
        lRw = .UsedRange.Rows.Count
        If lRw < 2 Then Exit Sub ' только шапка, данных нет
        
        For i = 2 To lRw
            .Cells(i, 1).ClearContents
        Next i
    End With

Еще вариант: запомить фильтры, раскрыть, данные удалить, вернуть фильтры.

[vikttur]

Кросс
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=98809&TITLE_SEO=98809-ochistka-skrytykh-filtrom-strok&MID=816393&result=edit#message816393

[pton]

Еще вариант: запомить фильтры, раскрыть, данные удалить, вернуть фильтры.

Пробовал даже создать класс который будет сохранять и восстанавливать фильтр. Но параметр Criteria может быть и строкой и числом и объектом. Получается что я не каждый фильтр смогу восстановить

За пост темы на разных форумах простите. Не думал, что это запрещено и обидеть никого не хотел. Ответ решения задачи напишу во всех постах

[pton]

Решение найдено здесь http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=98809&TITLE_SEO=98809-ochistka-skrytykh-filtrom-strok&MID=816380&result=new#postform

Решение такое

Код: (vb)

    ActiveWorkbook.CustomViews.Add ViewName:="TempView", RowColSettings:=True
    ' -------------------------------------------------
    ' Отключаем фильтр и выполняем необходимые действия
    ' -------------------------------------------------
    ActiveWorkbook.CustomViews("TempView").Show

[Lis]

Решение найдено

При таком решении важно, чтоб в файле не было умных таблиц, а иначе возникнет ошибка '1004'.