Excel это не сложно

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

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

Комментарий администратора

Коды оформляйте тегами VBCode. п.п. 4.25 Правил форума (http://www.excel-vba.ru/forum/index.php?topic=2.0)

Как можно понять, что столбец F не пустой? Без макросов - просто понять, как Вам подсказать решение. Без макросов Вы как понимаете, что столбец пустой? Нет ни единой записи или можно опереться на ячейку F11, F12?

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

так это я и пытаюсь выяснить :) Мы же не знаем как выглядит Ваша пустая книга :) Она совсем пустая? Или только таблица пустая в ней, но есть заголовки и формулы
В общем случае можно сделать так:

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

'
    If ActiveWorkbook.Worksheets("ИЕПР").Range("F11").Value <> "" Then
      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 If
   End Sub

P.S. Коды в сообщениях оформляйте тегами VBCode. п.п. 4.25 Правил форума (http://www.excel-vba.ru/forum/index.php?topic=2.0)

Вы прописали, чтобы фильтрация в книге не происходила, если другие столбцы(F11)  пустые.
Правильно понимаю?
Наверное так.
Попробую.
Спасибо

нет, я прописал условие, что будет фильтрация, если ячейка F11 НЕ ПУСТАЯ:

If ActiveWorkbook.Worksheets("ИЕПР").Range("F11").Value <> "" Then

Поняла.
Работает, если указала ячейку F 12.
Спасибо большое!
Может надо было указать, что если другие столбцы пустые, то автофильтр при открытии книги не срабатывает.
Но так тоже отлично!
СПАСИБО!

Можно по сути с любым диапазоном проделать нечто подобное. Например, для проверки есть ли данные в ячейках A12:F3000 можно проверку записать так:

If IsNull(ActiveWorkbook.Worksheets("ИЕПР").Range("A12:F3000").Text) Then
'в диапазоне есть хотя бы одно значение

Добрый день, Дмитрий.
Извините, что опять беспокою.
Почему-то при открытии файла возникает ошибка:
#Run-time error '91':
Object variable or with block variable not set#
И эта новая команда (и в первом и во втором вариантах) подсвечивается желтым.

Убедитесь, что в активной книге есть лист "ИЕПР". А вообще, если все это надо делать именно в книге с кодом, то ActiveWorkbook везде надо заменить на ThisWorkbook, чтобы обращение шло всегда к книге, в которой записан код, а не к любой активной на этот момент.

Хорошо.
А я подумала, что требуется что-то объявить переменной.
но я не смогу, читаю, пробую, пока "0"   :'(
Спасибо Вам

Огромное СПАСИБО!
Работает :)

Добрый день, Дмитрий.
Возникли трудности с автофильтром.
В столбце «F» применён автофильтр от меньшего к большему (макрос при открытии книги ранее прописали).
Но теперь, если в столбце "Е" есть данные, а в столбце "F" пусто, то строки с таким условием оказываются вверху.
Надо, чтобы если в столбце «Е» есть данные, а в столбце «F» пусто, то переместить строки с такими данными вниз, поставить их сразу после строки в которой есть хоть какие то данные.
При этом условие фильтра от меньшего к большему в столбце "F" должно соблюдаться.
Буду очень благодарна за помощь.

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