Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » zeus12
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Значение из combobox в критерий автофильтра
 
#
27.01.2016 11:07:35
Всем спасибо. Работает как должно
 
Перейти    
Значение из combobox в критерий автофильтра
 
#
27.01.2016 10:50:26
Я нашелтакое решение. ЧТоб фильтр работал по значению СОДЕРЖИТ в самой форме при вводе даных комбобокса нужно ставить * перед и после текста, тогда фильтрует как содержит, а не ровно. Мжет кому-то пригодиться
 
Перейти    
Значение из combobox в критерий автофильтра
 
#
27.01.2016 10:38:30
Спасибо. Конечно же я пробовал записать критерий автофильтра как СОДЕРЖИТ просто с ручноф вставкой значения. И автофильтр прекрасно фильтрует. Но такая форма записи критеря из комбобокса не работает
Код
    ActiveSheet.Range("$A$43:$AD$40000").AutoFilter Field:=1, Criteria1:= _
        "=*акц*", Operator:=xlAnd
    ActiveSheet.Range("$A$43:$AD$40000").AutoFilter Field:=2, Criteria1:= _
        "=*ad*", Operator:=xlAnd
    Range("A45:E45777").Select
    Selection.Copy
    Sheets("PriceList_Filter").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("NewPriceList").Select
    Application.CutCopyMode = False
    ActiveSheet.ShowAllData
    Selection.AutoFilter
Изменено: zeus12 - 27.01.2016 10:39:57
 
Перейти    
Значение из combobox в критерий автофильтра
 
#
27.01.2016 10:11:29
Здравствуйте. Есть форма пользовательская и там значение комбобокса, по которому фильтруеться таблица. Значение критерий в автофильтре, значение из комбобокса. Все работает, но фильтрует как РАВНО значению, а мне нужно чтобы фильтровало как СОДЕРЖИТ. Как правильно записать Criteria1?
Код
    Sheets("NewPriceList").Activate
    ActiveSheet.Range("$A$43:$K$40000").AutoFilter Field:=1, Criteria1:=ItemBox.Value, Operator:=xlAnd
    ActiveSheet.Range("$A$43:$K$40000").AutoFilter Field:=2, Criteria1:=ProdecementBox.Value, Operator:=xlAnd
    Range("A45:E45777").Select
    Selection.Copy
    Sheets("PriceList_Filter").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("NewPriceList").Select
    Application.CutCopyMode = False
    ActiveSheet.ShowAllData
    Selection.AutoFilter
 
Перейти    
run-time error '1004', ошибка ВПР
 
#
25.03.2015 21:57:22
Код
    Cells(NextRow, 1) = TextOrderDate.Text
    Cells(NextRow, 2) = TextInternalOrderNumber.Text
    Cells(NextRow, 3) = TextInternalItemNumber.Text
    Cells(NextRow, 4) = Application.WorksheetFunction.VLookup(TextInternalItemNumber, Sheets("ItemNote").Range("R2C1:R5C11"), 3, False)
    Cells(NextRow, 5) = Application.WorksheetFunction.VLookup(TextInternalItemNumber, Sheets("ItemNote").Range("R2C1:R5C11"), 4, False)
    Cells(NextRow, 6) = TextCustomerOrderNumber.Text
    Cells(NextRow, 7) = TextDeliveryTimeCustomer.Text
    Cells(NextRow, 8)  = TextAmount.Text
    Cells(NextRow, 9) = TextProducingWeek.Text
 Добрый вечер. Я начинаю тольки делать первые шаги в ВБА и вот первая проблема. часть кода UserForm вставляет данные с помощью кнопки active-x.
Нужна помощь

   
Изменено: zeus12 - 25.03.2015 22:27:44
 
Перейти    
Страницы: 1
Наверх