Автофильтр по заданную строку.

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

Автофильтр по заданную строку. (Макросы/Sub)

bumnik

Дата: Вторник, 01.12.2015, 00:34 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 185

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

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

Excel 2007,2010

Здравствуйте! Подскажите, как установить макросом автофильтр по 31-ю строку? Фамилии добавляются на листе "БДМ №1", а сортировка на листе "Общий табель". Фильтр работает, но на весь столбец.

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

Сообщение отредактировал bumnik - Вторник, 01.12.2015, 00:34

Ответить

_Boroda_

Дата: Вторник, 01.12.2015, 01:21 | Сообщение № 2

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

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

Сообщений: 17006

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Как я уже в Вашей прошлой теме писал, автофильтр в Excel иногда излишне умен и сам ставит диапазон. Поэтому костыль такой - вставляем пустую 32-ю строку, ставим автофильтр и удаляем 32 строку.
Кусок Вашего кода переписываем так
[vba]

Код

    r_ = 31
    With Sheets("Общий табель")
         Application.EnableEvents = 0
        .Range("A" & r_ + 1).EntireRow.Insert
        If .Range("C5:C" & r_).AutoFilter Then
            .Range("C5:C" & r_).AutoFilter
        End If
        .Range("C6:C" & r_).AutoFilter Field:=1, Criteria1:="<>" , VisibleDropDown:=False
        .Range("A" & r_ + 1).EntireRow.Delete
        Application.EnableEvents = 1
    End With

[/vba]

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

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995