Запустить макросом автофильтр в столбе, если есть данные

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

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

Запустить макросом автофильтр в столбе, если есть данные (Макросы/Sub)

Елена1969

Дата: Среда, 15.07.2020, 15:58 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2019

Добрый день.
Необходимо, чтобы при открытии книги в столбце F происходила автофильтрация от меньшего к большему, Но только если есть в столбце данные (это будут числа).
Мне удалось макрорекордером написать только без условия содержания данных в столбце. И фильтрация происходит даже, если столбец пустой, что мне совсем не надо.
Помогите, пожалуйста, не владею написанием функций макроса.
Вот что у меня получилось:

[vba]

Код

Private Sub Workbook_Open()
'
' Макрос1 Макрос
'

'
ActiveWorkbook.Worksheets("ИЕПР").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ИЕПР").AutoFilter.Sort.SortFields.Add Key:=Range( _
"F11:F10011"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("ИЕПР").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

[/vba]