Я когда-то задавал такой вопрос: сейчас найду выложу.

Вот кусок кода  
Selection.AutoFilter Field:=1, Criteria1:=">=" & Format(Range("F7"), "#"), Operator:=xlAnd _  
               , Criteria2:="<=" & Format(Range("G7"), "#")  
где, F7 и G7 - ячейки с датами.

{quote}{login=The_Prist}{date=07.10.2009 03:09}{thema=}{post}Selection.AutoFilter Field:=1, Criteria1:=">" & CDbl(DateValue("10.09.2009")), Operator:=xlAnd{/post}{/quote}  
Сегодня на работе было много мороки - переезд в новое здание, новое оборудование, новое ПО... Устал прилично. Читаю кусочек кода, Prist'а и никак не могу понять: на фига тут буква "Ы"? И только после третьего прочтения дошло до меня: не "CDЫ", а "CDbl".

помогите разобраться,плз.  
есть таблица с автофильтром.нужно часто менять его условия(по содержит)пытаюсь упростить с помощью текстовых полей для ввода этих условий,вот только не понятно - почему только первый макрос привязанный к первому TextBox1 работает как надо(фильтр по содержит)остальные же устанавливают условие равно и при этом не фильтруют даже если вбита полная информация.Вот то, что у меня получилось(в общем с вашей же помощью)  
Dim a_text, b_text, c_text As String  
 
 
Private Sub TextBox1_Change()  
 
If TextBox1.Text = "" Then  
Selection.AutoFilter Field:=2  
Else  
a_text = "*" & TextBox1.Text & "*"  
Selection.AutoFilter Field:=2, Criteria1:=a_text, Operator:=xlAnd  
End If  
 
End Sub  
 
Private Sub TextBox2_Change()  
 
If TextBox2.Text = "" Then  
Selection.AutoFilter Field:=7  
Else  
b_text = "*" & TextBox1.Text & "*"  
Selection.AutoFilter Field:=7, Criteria1:=b_text, Operator:=xlAnd  
End If  
 
End Sub  
 
Private Sub TextBox3_Change()  
 
If TextBox3.Text = "" Then  
Selection.AutoFilter Field:=15  
Else  
c_text = "*" & TextBox1.Text & "*"  
Selection.AutoFilter Field:=15, Criteria1:=c_text, Operator:=xlAnd  
End If  
 
End Sub  
 
Помогите подправить)

А можно задать условие для автофильтра по ссылке см. файл

Evgen777,  
вы при записи данных в переменные a_text, b_text, c_text везде по ошибке использовали одно и то же значение - TextBox1.Text:    
a_text = "*" & TextBox1.Text & "*"  
b_text = "*" & TextBox1.Text & "*"  
c_text = "*" & TextBox1.Text & "*"  
 
вот у вас всё по критерию "содержит" TextBox1.Text и фильтровалось  
И вообще, эти глобальные на уровне модуля переменные не нужны.  
 
Используйте непосредственно данные из TextBox'ов.  
Вот так работает. Проверил.  
 
Private Sub TextBox1_Change()  
  If TextBox1.text = "" Then  
     Selection.AutoFilter Field:=2  
  Else  
     Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox1.text & "*"  
  End If  
End Sub  
 
Private Sub TextBox2_Change()  
  If TextBox2.text = "" Then  
     Selection.AutoFilter Field:=7  
  Else  
     Selection.AutoFilter Field:=7, Criteria1:="*" & TextBox2.text & "*"  
  End If  
End Sub  
 
Private Sub TextBox3_Change()  
  If TextBox3.text = "" Then  
     Selection.AutoFilter Field:=15  
  Else  
     Selection.AutoFilter Field:=15, Criteria1:="*" & TextBox3.text & "*"  
  End If  
End Sub

спасибо Alex_ST  
все работает, просто и эффективно)))

Пробуйте:

Всем привет,  
 
И все таки не работает. Не стал заводить новую тему, потому как она была бы в точности идентична автору топа.  
 
Дату считаю функцией - последняя пятница от текущей даты.  
 
Function LastFriday(CurrentDate As Date) As Double  
 LastFriday = Fix(CurrentDate - Weekday(CurrentDate, vbSaturday)) + 0.6667  
End Function  
 
условие на автофильтр формирую так  
 
        On Error Resume Next  
        .ShowAllData  
        If Err <> 0 Then .Rows("9:9").AutoFilter  
        On Error GoTo 0  
        LastRow = .Range("C2").Value  
        .Range(.Cells(9, 1), .Cells(LastRow, 35)).AutoFilter Field:=18, Criteria1:=">" & LastFriday(Now)  
 
В результате пустая выборка.    
Открываю руками выборку, жму OK, все работает. Что можете посоветовать?

Всем привет!)  
 
Владимир, попробуйте вместо Double использовать Long.

Все понял, время не принимает, заработало так :  
 
Criteria1:=">" & LastFriday(Now) & "16:00"    
 
Всем спасибо.

Виноват торопился, жалко править нельзя:  
 
вместо Criteria1:=">" & LastFriday(Now) & "16:00"    
 
прошу читать    
Criteria1:=">" & LastFriday(Now), Criteria2:=">16:00"

немного покурив варианты сделал гибрид формулы и она заработала :  
Sheets("xxx").ListObjects("yyy").Range.AutoFilter Field:=1, Criteria1:="<=" & Format(TextBox2.Value, "#")

В допстолбец =месяц(...)