{quote}{login=Pavel55}{date=12.09.2010 02:18}{thema=}{post}Сократил ваш файл и немного доработал код. См. файл (76кб){/post}{/quote}  
 
Спасибо вам, Pavel55, огромное..  
Извините, если некорректный вопрос, можно с вами пообщаться вне форума?    
здесь множество правил и пр.. не хотелось бы создавать сотни тем, добавляя модераторам работы.    
Если вы можете, напишите мне - ICQ 561733867.

{quote}{login=}{date=12.09.2010 01:21}{thema=}{post}Нужно прочитать пункт №3 в этой теме http://www.planetaexcel.ru/forum.php?thread_id=8735{/post}{/quote}  
 
 
файл  
 
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Есть код:  
Private Sub CommandButton1_Click()  
'обработка вариантов стоимости жилья  
Dim N As Integer  
Dim M As Integer  
Dim L As Variant  
N = TextBox2.Value  
M = TextBox3.Value  
L = ComboBox1.Value  
Sheets("Аренда_Жилая").Select  
ActiveSheet.Range("$A$1:$G$55").AutoFilter Field:=5, Criteria1:=">=" & N, _  
       Operator:=xlAnd, Criteria2:="<=" & M  
 
' обработка варианта станций метро  
Sheets("Аренда_Жилая").Select  
ActiveSheet.Range("$A$1:$G$55").AutoFilter Field:=3, Criteria1:="" & L  
TextBox2.Value = ""  
TextBox3.Value = ""  
UserForm2.Hide  
End Sub  
 
Но если например, в TextBox 2 и 3 ничего не вводить, а только выбирать станцию метро - фильтр не работает. Что необходимо прописать для переменных N и M в таком случае?

Система новая (буквально 1,5 недели назад поставили), да и Office так же.

Почему при работе в редакторе VB, при сохранении Excel вылетает, автовосстановляется и заново открывается?    
Иногда пишет "Книга повреждена", но кто ее мог повредить, если я только записываю макросы, создаю формы и пр.? как сделать так, чтоб Excel не вылетал?

Исправила синтаксис - фильтр выполняется правильно.  
 
Pavel55 )))    
Я могу выложить файл, конечно, но там столько вопросов.... я думаю, только к НГ их все решу)

Доброго времени суток.  
Скажу сразу, что я вообще не программист, просто пытаюсь выполнить вычислительную практику, хотя учусь на другую специальность (и вообще не понимаю, зачем на нашем факультете это все)....  
 
Суть дела:  
Нужно на форме установить значения (в TextBox2 и TextBox3), которые соответствуют параметрам выбора "от ... до ..."    
При нажатии на CommandButton1, должен происходить автофильтр данных по параметрам "от ... до ...".  
 
Код:  
 
Private Sub CommandButton1_Click()  
Dim N As Double  
Dim M As Double  
N = Str(TextBox2.Value)  
M = Str(TextBox3.Value)  
 
Sheets("Аренда_Жилая").Select  
ActiveSheet.Range("$A$1:$G$55").AutoFilter Field:=5, Criteria1:=">=N", _  
       Operator:=xlAnd, Criteria2:="<=M"  
 
UserForm2.Hide  
End Sub  
что-то в нем неправильно, т.к. происходит фильтрация от N до M (а должно быть к примеру, от 20 до 25 - это зависит от введенных значений на форме)